Практикум по решению задач "Работа со строками в Паскале"

Практикум «Работа со строками в Паскале»

? Как обратится к определенному символу в строке?

? как обратится к последнему символу в строке?

Задача № 1. Дана строка. Определить является ли первый символ строки символом «А». (Идея программы: вводится строка S. Ответ «ДА» выдается, если строка не пустая и ее первый символ равен «А».)

var S: string;

begin

writeln (‘ввести строку’);

readln(S);

if (length(S)>0) and (S[1]=’A’) then writeln (‘ДА’) else writeln (‘НЕТ’);

end.

Задача № 2. Дана строка. Подсчитать количество символов «А» в строке. (Идея программы: вводится строка S. Программа подсчитывает количество символов «А» согласно поставленному условию.)

var S:string;

c, i:byte;

begin

writeln (‘ввести строку’);

readln(S);

for i:=1 to length(S) do

if s[i]=’A’ then c:=c+1;

writeln(‘число вхождений буквы А=’, с);

end.

Задача № 3. Дана строка. Подсчитать количество латинских гласных букв в строке. (Идея программы: для реализации алгоритма целесообразно использовать символьную функцию поиска подстроки в строке POS(S1, S2) (результат целое число), которая обнаруживает первое появление в строке S2 подстроки S1.)

var S:string;

c, i:byte;

begin

writeln (‘ввести строку’);

readln(S);

c:=0;

for i:=1 to length(S) do

if pos(s[i],’AEIUOYaeiuoy’)<>0 then c:=c+1;

writeln (‘количество гласных букв=’, c);

end.

Самостоятельно:

Ход работы.  Решить задачи по аналогии в паскале, скопировать решение в файл word и сохранить его в конце урока.

Задача 1А	Задача 2А
Задача 3А	Задача 4А

Задача № 1А. Дана строка. Определить является ли последний символ строки символом «А».

Задача № 2А. Дана строка. Заменить все вхождения символа «А» на символ «В».

Задача № 3А. Дана строка. Подсчитать количество цифр в строке.

Задача № 4А. Дана строка S=’Алгоритмизация’. Получить слова заяц, зима, азалия разными способами.