Дана строка символов. Заменить в ней все восклицательные знаки на точки. Данная программа представляет собой примитивный транслятор, который транслирует все символы в строке как они есть, а восклицательные знаки транслирует в точки. 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 — строка текста. |