Определить, какая буква: "о" или "а" входит в него чаще и насколько - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

2)Определить какая буква о или а входит в него чаще и на сколько их надо написать множеством

Решение задачи: «Определить, какая буква: "о" или "а" входит в него чаще и насколько»

textual
Листинг программы
var
  s: string;
  i, counta, counto: integer;
 
begin
  counta := 0;
  counto := 0;
  write('Введите строку: ');
  readln(s);
  for i := 1 to length(s) do
  begin
    if s[i] = 'a' then 
      inc(counta);
    if s[i] = 'o' then 
      inc(counto);      
  end;
  if counta > counto then 
    writeln('Буква "а" чаще на ', counta - counto)
  else 
  if counto > counta then 
    writeln('Буква "o" чаще на ', counto - counta)
  else
    writeln('Одинаково.');
end.

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

  1. Создается переменная s типа string, которая будет хранить введенную пользователем строку.
  2. Создаются две переменные counta и counto типа integer, которые будут использоваться для подсчета количества вхождений букв а и о соответственно.
  3. Выводится сообщение Введите строку: для ввода строки пользователем.
  4. В цикле for происходит обработка каждого символа введенной строки.
  5. Если символ равен а, то значение переменной counta увеличивается на единицу.
  6. Если символ равен о, то значение переменной counto увеличивается на единицу.
  7. После обработки всех символов выводится результат сравнения counta и counto.
  8. Если counta больше counto, то выводится сообщение Букваачаще на, и вычисляется разница между counta и counto.
  9. Если counto больше counta, то выводится сообщение Букваочаще на, и вычисляется разница между counto и counta.
  10. Если counta и counto равны, то выводится сообщение Одинаково.

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

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