Лекция 26.

Вопросы:

Что такое строка, как описать.

Какие выражения называются строковыми. Охарактеризовать строковые операции.

Охарактеризовать основные процедуры и функции работы со строками

Основные задачи по теме строки:

Написать программу, которая определяет и выводит на экран длину введенной с клавиатуры строки.

Program _;

Uses CRT;

Var s: string;

Begin

ClrScr;

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

Readln(s);

Writeln(‘длина строки=’, length(s));

Readkey;

End.

Удалить из строки 4 символа, начиная со 2.

Program _;

Uses CRT;

Var s: string;

Begin

ClrScr;

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

Readln(s);

Delete(s,2,4);

Writeln(‘новая строка=’,s);

Readkey;

End.

Удалить половину введенной с клавиатуры строки.

Program _;

Uses CRT;

Var s: string;

Begin

ClrScr;

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

Readln(s);

Delete(s,length(s) div 2 +1, length(s) div 2);

Writeln(‘новая строка=’,s);

Readkey;

End.

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

Program _;

Uses CRT;

Var s, st: string;

Begin

ClrScr;

Writeln(‘введите первую строку’);

Readln(s);

Writeln(‘введите вторую строку’);

Readln(st);

If pos(s, st)=0

then writeln(‘строка ’, s, ‘не входит в строку ’, st)

else writeln(‘строка ’, s, ‘входит в строку ’, st);

Readkey;

End.

В предложении произвольной длины все буквы «а» русского алфавита заменить на «*».

Program _;

Uses CRT;

Var s: string;

Begin

ClrScr;

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

Readln(s);

For i:=1 to length(s) do

If s[i]=’a’ then s[i]:=’*’;

Writeln(‘новая строка=’,s);

Readkey;

End.

В предложении произвольной длины все цифры заменить на «!»

Program _;

Uses CRT;

Var s: string;

Begin

ClrScr;

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

Readln(s);

For i:=1 to length(s) do

If (s[i]>=’0’) and (s[i]<=’9’) then s[i]:=’!’;

Writeln(‘новая строка=’,s);

Readkey;

End.

В предложении произвольной длины посчитать количество латинских букв «а»

Program _;

Uses CRT;

Var s: string;

Kol:byte;

Begin

ClrScr;

Kol:=0;

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

Readln(s);

For i:=1 to length(s) do

If s[i]=’a’ then kol:=kol+1;

Writeln(‘количество букв а=’,kol);

Readkey;

End.