Работа сo строками данных .

Задания по теме:

Работа сo строками данных.

Примеры решения задач

1. Дан текст. Найти в нем количество буквосочетаний 'st'.

Система тестов:

№	Значение переменной st	Результаты
	st ghhgst stjkj
	sthghjghghghst

Решение задачи:

Program Kolichestvo_ST;

var

st: string;

counter, i: integer;

begin

readln(st);

counter:=0;

for I:=1 to length(st)-1 do

if (st[i]=’s’) and (st[i+1]=’t’) then

inc(counter);

writeln(' counter = ', counter);

readln;

end.

2. Дан текст из цифp и стpочных латинских букв. Опpеделить, сколько гласных (a, e, i, o, u, y) и сколько согласных букв в этом тексте.

Система тестов:

№	Значение переменной st	Результаты
	123 erty asd	гласных – 3 согласных – 4
	sdfdg3 43 3rtg 23	гласных – 0 согласных – 8

Решение задачи:

Program Glasnie_Soglasnie;

const

gl=['i','o','u','a','e',’y’];

Digit=[' ',’0’,'1','2','3','4','5',’6’,’7’,’8’,’9’];

var

st: string;

gl_count, dig_count, i: integer;

begin

readln(st);

for I:=1 to length(st) do

begin

if st[i] in gl then

inc(gl_count);

if st[i] in digit then

inc(dig_count);

end;

writeln('glasn= ',gl_count');

writeln(‘soglasn= ', length(st)- gl_count - dig_count);

readln;

end.

3. Дан текст, В тексте везде заменить одно заданное слово на другое.

Система тестов:

№	Значение Text	st1	st2	Результаты
	I go to school.	school	shop	I go to shop..

Решение задачи:

Program Change_St1_to_St2;

var

text, st1,st2: string;

p, i: integer;

begin

Writeln(‘Введите текст?’);

readln(text);

Writeln(‘Введите слово которое следует заменить?’);

readln(st1);

Writeln(‘Введите слово на которое следует заменить?’);

readln(st2);

p:=Pos(st1,text);

while p > 0 do

begin

Delete(text,P,length(st1));

Insert(st2, text,P);

p:=Pos(st1,text);

end;

writeln(text);

readln;

end.

Варианты заданий для самостоятельной работы

1. Дан текст. Найти в нем удвоенные буквы.

2. 2.Дан текст. Напечатать текст в обратном порядке.

3. Дан текст. Найти в нем количество слов.

4. Дан текст. Найти количество слов, заканчивающихся буквосочетанием 'kk'.

5. Дан текст. Заменить все гласные на символ '*'.

6. Дан текст. Найти количество слов 'krokodil'.

7. Дан текст. Утроить все символы в тексте.

8. Дан текст. Удалить все гласные (a, e, i, o, u) в тексте.

9. Дан текст. Удалить в тексте лишние пробелы между словами, оставив по одному.

10. Найти самое длинное и самое короткое слово в заданном тексте.

11. Дан текст. Удалить каждую вторую букву.

12. Дан текст. Удалить все пробелы в тексте.

13. Дан текст из стpочных латинских букв. Напечатать:

а) все буквы, входящие в тетст не менее двух pаз;

б) все буквы, входящие в текст по одному pазу.

14. Дан текст. Вывести текст по две буквы в столбик.

15. Дан текст. После каждой второй буквы вставить символ '.'.

16. Дан текст. Напечатать все подслова, содержащие первую букву.

17. Дан текст. Найти количество слов, начинающихся буквосочетанием 'mk'.

18. Дан текст. Удвоить все буквы, но не пробелы.

19. Дан текст. Вставит '.' перед каждым словом.

20. Дан текст. Проверить соблюдается ли в записи данной математической формуле баланс открывающихся и закрывающихся скобок.

21. Дан текст. Из заданного предложения удалить все слова, которые уже встречались в нем ранее.

Дата добавления: 2015-11-04