Презентация на тему к уроку информатики на тему Обработка строк (9 класс)

задание

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

можно выполнять над строковыми переменными?

программы?
s:=‘Алгоритм’;
a:=Length(s);
b:=Pos(‘горит’,s);
s1:=Copy(s,5,4);
Delete(s,2,5);
Insert(‘о’,s,3);
writeln(s);

str, obr : string; i : integer;
Begin

writeln(‘Введите слово’);
readln(str);
obr:= ‘’;
for i:=1 to Length(str) do obr:=str[i]+obr;
writeln(obr);
End.

роза упала на лапу Азора». Написали? Теперь прочтите эту

волшебную фразу наоборот.

в обоих направлениях.
Например:
дед, казак, потоп,

шалаш
Аргентина манит негра
А в Енисее - синева

: string; i : integer;
Begin
writeln(‘Введите слово’);

readln(str);
obr := ‘’;
for i:=1 to Length(str) do obr:=str[i]+obr;
if str=obr then writeln(‘Это палиндром!’)
else writeln(‘Это не палиндром’);
End.

содержит знаков препинания
Сведем задачу к предыдущей: прежде чем формировать

слово-перевертыш, удалим из исходной фразы все пробелы

Решение

пробелы, так и знаки препинания
Заменим в исходной фразе все

знаки препинания пробелами
Воспользуемся решением предыдущей задачи

Решение

в этой строке.

: integer;
Begin
writeln(‘Введите фразу без знаков препинания’);

readln(str);
obr := ‘’;
While Pos(‘ ‘,str)>0 do Delete(str, Pos(‘ ‘,str),1);
for i:=1 to Length(str) do obr:=str[i]+obr;
if str = obr then writeln(‘Это палиндром!’)
else writeln(‘Это не палиндром’);
End.

А роза упала на лапу Азора

Pos(‘ ‘,str)=2 

Delete(str, 2, 1)

str[2]

Ароза упала на лапу Азора

Pos(‘ ‘,str)=2 

Delete(str, 2, 1)
Pos(‘ ‘,str)=6  Delete(str, 6, 1)

str[6]

Арозаупала на лапу Азора

Pos(‘ ‘,str)=2  Delete(str,

2, 1)
Pos(‘ ‘,str)=6  Delete(str, 6, 1)
Pos(‘ ‘,str)=11  Delete(str, 11, 1)

str[11]

Арозаупалана лапу Азора

Pos(‘ ‘,str)=2  Delete(str, 2,

1)
Pos(‘ ‘,str)=6  Delete(str, 6, 1)
Pos(‘ ‘,str)=11  Delete(str, 11, 1)
Pos(‘ ‘,str)=13  Delete(str, 13, 1)

str[13]

Арозаупаланалапу Азора

Pos(‘ ‘,str)=2  Delete(str, 2, 1)
Pos(‘

‘,str)=6  Delete(str, 6, 1)
Pos(‘ ‘,str)=11  Delete(str, 11, 1)
Pos(‘ ‘,str)=13  Delete(str, 13, 1)
Pos(‘ ‘,str)=17  Delete(str, 17, 1)

str[17]

АрозаупаланалапуАзора

Pos(‘ ‘,str)=2  Delete(str, 2, 1)
Pos(‘ ‘,str)=6

 Delete(str, 6, 1)
Pos(‘ ‘,str)=11  Delete(str, 11, 1)
Pos(‘ ‘,str)=13  Delete(str, 13, 1)
Pos(‘ ‘,str)=17  Delete(str, 17, 1)
Pos(‘ ‘,str)=0  Цикл завершен

obr : string; i : integer;
Begin
writeln(‘Введите

фразу’);
readln(str);
obr := ‘’;
for i := 1 to Length(str) do
if Pos(str[ i ],znaki)>0 then str[ i ] := ‘ ‘;
While Pos(‘ ‘,str)>0 do Delete(str, Pos(‘ ‘,str),1);
for i:=1 to Length(str) do obr:=str[i]+obr;
if str = obr then writeln(‘Это палиндром!’)
else writeln(‘Это не палиндром’);
End.

:= 1 to Length(str) do
if

Pos(str[ i ],znaki)>0 then str[ i ] := ‘ ‘;

str А в Енисее - синева

i =
Pos(str[ i ],znaki)=0  Delete(str, 2, 1)

12