Лабораторная работа №6 Инициализация и использование в программах данных строкового типа

Пример

Из заданной строки выделить подстроку, расположенную между первой и второй запятой.

Program Stroka;
Var st1, st2: string;
l,n,m,i:integer;
begin
     write('   Введите   строку:    ');
     readln(st1); 
     l:=length(st1);
     n:=pos(',',st1); 
     m:=0;
     for i:=n+1 to l do
               if st1[i]=',' then
                               begin
                                 m:=i; 
                                 break;
                               end;
     if m<> 0 then
                begin
                   st2:=copy(st1,n+1,m-n);
                   Writeln(st2);
                end
     else Writeln('  Нет второй точки! ');
     readln;
end.

Задания

 Составьте блок-схемы и программы к задачам своего варианта:

Вариант 1.

1.Задана строка. Определить, сколько цифр, содержится в этой строке.

2.Определить, содержится ли в заданном предложении введенное слово.

Вариант 2.

1.Задана строка. Определить, сколько знаков препинания содержится в этой строке.

2.В строке заменить все слова 'на' на слово 'по'.

Вариант 3.

1.Задана строка. Определить, сколько прописных русских букв содержится в этой строке.

2.Определить и вывести из строки все слова, начинающиеся на 'с', с окончанием 'на'.

Вариант 4.

1.Задана строка. Определить, сколько строчных русских букв содержится в этой строке.

2.Заданы две строки. Определить, есть или нет в них общие слова.

Вариант 5.

1.Задана строка. Определить, сколько целых чисел от 0 до 9 содержится в этой строке

2.Задана строка. Образовать из нее вторую строку, содержащую только слова, длина которых равна 3.

Вариант 6.

1.Задана строка. Определить, содержаться ли в строке цифры и знаки препинания.

2.В предложение возможны повторы слов. Удалить эти повторы.

Вариант 7.

1.Задана строка. Определить, содержаться ли в строке цифры или знаки препинания.

2.Заданы несколько строк. Исправить в строках ошибки: запятая должна "прижиматься" к слову, за которым она стоит.

Вариант 8.

1.Задана строка. Определить, содержаться ли в строке буквы а, б, в, г, д или буквы a, b, c, d, f, g.

2.Заданы несколько строк. Исправить в строках ошибки:после 'ж' и 'ш' пишется 'и', а не 'ы'.

Вариант 9.

1.Задана строка. Определить, содержаться ли в строке буквы W, R, P, A, B, C, D и символ 'пробел'.

2.Задана строка. Определить, содержит ли строка достаточно букв,чтобы составить слово, введенное с клавиатуры.

Вариант 10.

1.Задана строка. Сформировать из символов этой строки два множества: множество цифр и множество знаков арифметических и логических операций.

2.В заданной строке заменить слово 'майор' на 'капитан'. Если такого слова нет, то сообщить об этом. Если слово встречается несколько раз, то заменять все слова.