Составить алгоритм программу, которая вводит строку текста - Pascal ABC
Формулировка задачи:
Составить алгоритм программу, которая вводит строку текста.
Подсчитать общее количество букв “А” и “В” и заменить каждый символ “+” на “-” и “!”.
Решение задачи: «Составить алгоритм программу, которая вводит строку текста»
textual
Листинг программы
Var s, newS : string; i, A, B : integer; begin Writeln('Enter s'); Readln(s); A:=0; B:=0; For i:=1 to length(s) do begin if (s[i]='A') then inc(A) else if (s[i]='B') then inc(B); end; newS:=''; For i:=1 to length(s) do begin if (s[i]='+') then newS:=newS+'-!' else newS:=newS+s[i]; end; Writeln('A=', A); Writeln('B=', B); Writeln('New string=', newS); Readln; end.
Объяснение кода листинга программы
- Ввод строки текста с помощью функции Writeln и Readln.
- Объявление переменных s, newS и i типа string и integer соответственно.
- Инициализация переменных A и B значением 0.
- Цикл For для перебора символов строки s.
- Внутри цикла проверяется, является ли текущий символ 'A' или 'B'. Если да, то значение переменной A или B увеличивается на 1.
- Создание новой строки newS и инициализация ее пустой строкой.
- Второй цикл For для перебора символов строки s.
- Внутри цикла проверяется, является ли текущий символ '+' или '-'. Если да, то новый символ для newS добавляется как '-!'. Если нет, то новый символ для newS добавляется как текущий символ.
- Вывод значений переменных A, B и newS с помощью функции Writeln.
- Вызов функции Readln для завершения ввода.