Составить алгоритм программу, которая вводит строку текста - 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.

Объяснение кода листинга программы

  1. Ввод строки текста с помощью функции Writeln и Readln.
  2. Объявление переменных s, newS и i типа string и integer соответственно.
  3. Инициализация переменных A и B значением 0.
  4. Цикл For для перебора символов строки s.
  5. Внутри цикла проверяется, является ли текущий символ 'A' или 'B'. Если да, то значение переменной A или B увеличивается на 1.
  6. Создание новой строки newS и инициализация ее пустой строкой.
  7. Второй цикл For для перебора символов строки s.
  8. Внутри цикла проверяется, является ли текущий символ '+' или '-'. Если да, то новый символ для newS добавляется как '-!'. Если нет, то новый символ для newS добавляется как текущий символ.
  9. Вывод значений переменных A, B и newS с помощью функции Writeln.
  10. Вызов функции Readln для завершения ввода.

Оцени полезность:

8   голосов , оценка 4.125 из 5
Похожие ответы