Упражнение 2 (Символьные переменные и строки)

Дана строка символов. Заменить в ней все восклицательные знаки на точки.

Данная программа представляет собой примитивный транслятор, который транслирует все символы в строке как они есть, а восклицательные знаки транслирует в точки.

PROGRAM PRG3_2;

VAR STR : STRING;

L, I: INTEGER;

BEGIN

WRITELN(‘BBEДИTE ТЕКСТ’);

READLN(STR);

L := LENGTH(STR);

WRITELN(‘ПРЕОБРАЗОВАННЫЙ ТЕКСТ’);

FOR I := 1 TO L DO

IF (STR[I] = ‘!’) THEN WRITE(‘.’)

ELSE

WRITE(STR[I]);

WRITELN

END.

Для решения задачи:

— формируем тело программы и описываем переменные;

— цикл FOR I := 1 ТО L DO осуществляет вывод строки с заменой ‘!’ на ‘.’

— после вывода закрываем строку оператором WRITELN.

Переменные:

I — переменная цикла;

L — длина строки;

STR — строка текста.