Урок 20 апреля.
Программирование обработки строк символов
1. Закрепим материал, изученный на прошлом уроке.
Последовательно выполните упражнения
1.1. на проверку знаний строковых переменных String и Char
1.2. на проверку знаний переменных String и Char, Real и Integer
1.2. на проверку знаний переменных String и Char, Real и Integer
1.4. Посмотрите презентацию
Практическая работа
1. Составить программу, записывающую любое слово в обратном порядке
var s,s1:string;
i:byte;
begin
writeln('Введите строку ');
readln(s1);
for i:= length(s1) downto 1 do
s:=s+s1[i];
writeln(s);
end.
2. Составить программу, удваивающую каждую букву слова
var s,sn:string;
i:byte;
begin
writeln('Word');
readln(s);
for i:=1 to length(s) do
sn:= sn+s[i]+s[i];
writeln ('NewWord ', sn);
end.
3. Составить программу, подсчитывающую количество букв "f" в тексте
var s:string[30];
n,i:integer;
begin
writeln('введите текст');
readln(s);
n:=0;
for i:=1 to length(s)
do
if s[i]='f' then
n:=n+1;
write('в тексте букв f = ',n)
end.
4. Определить, является ли слово палиндромом.
var a,b,c:string;
i:longint;
begin
write('введите слово:');
readln(a);
b:='';
for i:=1 to length(a) do
b:=a[i]+b;
if a=b then
write('перевертыш')
else
write('не
перевертыш');
end.
Домашнее задание
1. Прочитать п.п. 27- 28.
2. Подумать и решить задания № 3 и 4 со стр.190.
3. Пройдите теcт>>
3. Пройдите теcт>>