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

UptoLike

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

Рубрика:

140

В данном примере стоит обратить внимание на то, что, хотя строка и

является массивом символов, но ввод и вывод строки не требует цикла –

она вводится и выводится как единое целое. Заметим также, что ввод

строки необходимо производить при помощи процедуры ReadLN, но ни в

коем случае не при помощи процедуры Read (!).

Рассмотрим еще один пример обработки строки как массива символов.

Пример 2. Ввести строку. Все точки, запятые, двоеточия и тире из

строки удалить. Вывести получившуюся строку.

var

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

i, j : byte; {Счетчики}

begin

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

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

readln(s);

{Поиск и удаление символов}

I := 1;

while I <= ord( s[0] ) do

{Проверка – нужно удалять символ s[i] или нет}

if ( s[i] = '.' ) or ( s[i] = ',' ) or ( s[i] = ':' )

or ( s[i] = '-' )

{**1**}

then

begin

{Собственно удаление}

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

s[j] := s[j+1];

{Уменьшение длины строки}

s[0] := chr( ord(s[0]) - 1);

{**2**}

end