«Решения задач на Pascal Строки» - Контрольная работа

Содержание

6.4. Лабораторная работа 6

Тема: Строки

Вариант Задания

1

2 1. Дана строка, содержащая английский текст. Найти количество слов, начинающихся с буквы b.

2. Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой.

4 1. Дана строка . Определить, сколько в ней символов *, ;, :.

2. В строке удалить символ «двоеточие» (:) и подсчитать количество замен

6 1. Дана строка символов, среди которых есть двоеточие (:). Определить, сколько символов ему предшествует.

2. Удалить часть символьной строки, заключенной в скобки (вместе со скобками)

8 1. Дана строка. Преобразовать ее, удалив каждый символ * и повторив каждый символ, отличный от *.

2. В строке имеется точка с запятой (;). Подсчитать количество символов до точки с запятой и после нее.

9 1. Дана строка. Определить, сколько раз входит в нее группа букв abc.

2. Дана строка. Преобразовать ее, заменив точками все двоеточия, встречающиеся среди первой половины символов строки, и заменив точками все восклицательные знаки во второй половине символов.

11 1. Дана строка. Подсчитать, сколько различных символов встречается в ней. Вывести их на экран.

2. В записке слова зашифрованы – каждое из них записано наоборот. Расшифровать сообщение.

12 1. Дана строка. Подсчитать самую длинную последовательность подряд идущих букв a.

2. Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке.

15 1. Дана строка. Указать те слова, которые содержат хотя бы одну букву k.

---

Выдержка из текста работы

var

s,s1:string;

i,j,k,l:integer;

begin

readln(s);

k:=0;

for i:=1 to length(s) do

begin

if (s[i]='(')then k:=1;

if k<>1 then s1:=s1+s[i];

if s[i]=')' then k:=0;

end;

writeln(s1);

readln

end.

---

Заключение

var

max,i,j,k,l,m:integer;

f,d:string;

a:array[1.100] of string;

begin

readln(d);

max:=0;

d:=' '+d+' ';

l:=0;

for i:=1 to length(d)-1 do

begin

if (d[i]=' ')and(d[i+1]<>' ') then

begin

k:=i;

l:=l+1;

repeat k:=k+1;a[l]:=a[l]+d[k];until d[k]=' ';

for m:=length(a[l]) downto 1 do write(a[l][m]);write(' ');

end;

end;

end.

---

Список литературы

1. Зуев Е.А. Язык программирования Турбо- Паскаль 6.0. – М., Унитех, 1992.

2. Немнюгин С.А. Турбо- Паскаль. – СПб.: Питер, 2000.

3. Федоренко Ю. Алгоритмы и программы на Turbo Pascal. Учебный курс.- СПб: Питер, 2001.

4. Семакин И. Г., Шестаков А. П. Основы программирования. – М.; Мастерство, 2002.

5. Могилев А.В. и др. Информатика: учебное пособие для ВУЗов. – М.; Изд. Центр «Академия», 2002.

---

Примечания

Готовые решения задач на языке Паскаль

К работе прилагается все исходники с расширением .pas.