Основы программирования на языке Turbo Pascal. Беляева И.В. - 139 стр.

UptoLike

Составители:

Рубрика:

139

Writeln(‘Вы ввели строку ‘’’,S,’’’’); {Вывод введенной

строки}

Writeln(‘Она содержит ’,N,’ символов’); {вывод количества

символов во введенной строке}

Writeln(‘Она содержит ’,ord(s[0]),’ символов’);{То же самое}

Writeln(‘Она содержит ’,Length(S),’ символов’);{Снова то же

самое, но теперь уже с использованием

стандартной функции Length}

End.

Поскольку строка типа String, по сути дела, является массивом, то

обработка строк сводится к обработке массивов. То есть со строками

можно делать абсолютно все то же, что можно делать с любыми другими

массивами. Только нужно помнить, где и как хранится количество

элементов в строке.

Пример 1:

Необходимо ввести строку. Заменить все пробелы на символ ‘#’.

Вывести строку после обработки.

var

s : string; {Строка}

I : byte; {Счетчик для прохода по всем символам строки S}

begin

{Ввод строки}

write('Введите строку: ');

readln(s);

{Замена пробелов на ‘#’}

for i:=1 to ord(s[0]) do

if s[i]=' ' then s[i]:='#';

{Вывод получившейся строки}

writeln('Получили строку: ',s);

end.