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

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

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

Дан текст из цифр и строчных латинских букв. Определить, каких букв – гласных (a, e, i, o, u) или согласных – больше в этом тексте.

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

textual
Листинг программы
const g:set of char=['a','e','u','i','o'];
var a:string;
i,so,gl:integer;
s:set of char;
BEGIN
so:=0;
gl:=0;
s:=['a'..'z']-g;
Readln(a);
For i:=1 to Length(a) do
  IF a[i] in s
    THEN inc(so)
    ELSE IF a[i] in g
      THEN inc(gl);
IF so>gl
  THEN Writeln ('Согласных больше')
  ELSE IF so<gl
    THEN Writeln ('Гласных больше')
    ELSE IF so>0
      THEN Writeln ('Букв поровну')
      ELSE Writeln ('В тексте нет гласных и согласных букв');
END.

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

В данном коде на языке Pascal ABC происходит следующее:

  1. Создается константа g, которая представляет собой множество символов, включающее гласные буквы ['a','e','u','i','o'].
  2. Создается переменная a типа string, которая будет содержать введенный пользователем текст.
  3. Создаются три переменные-счетчика i, so и gl типа integer, которые будут использоваться для подсчета количества согласных, гласных и общего количества букв соответственно.
  4. Создается множество s типа set of char, которое представляет собой все буквы от 'a' до 'z', исключая гласные.
  5. С помощью функции Readln(a) происходит чтение введенного пользователем текста в переменную a.
  6. Затем происходит цикл For, который проходит по каждой букве введенного текста.
  7. Внутри цикла происходит проверка: если текущая буква присутствует в множестве s, то увеличивается счетчик so, если же она присутствует в множестве g, то увеличивается счетчик gl.
  8. После завершения цикла проверяется условие so>gl. Если оно истинно, то выводится сообщение Согласных больше, если ложно - выводится сообщение Гласных больше.
  9. Если условие so>0 истинно, то выводится сообщение Букв поровну, если ложно - выводится сообщение В тексте нет гласных и согласных букв. Таким образом, данный код позволяет определить, каких букв больше в тексте: гласных или согласных.

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

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