Исходник программы, которая определяет каких букв больше: A или B?

Программа для определения количества букв «А» и «В»

В некоторых учебных пособиях по языку программирования Паскаль содержится интересная задача. Она требует создать исходник программы, которая определяет, каких букв больше: «А» и «В». Программа для выполнения цели задействует:

  • функцию length;
  • логический тип boolean;
  • тип данных String.

Исходя из условий задачи, требуется написать программу, которая выводит True в случае, когда «А» в строке встречается чаще, чем «В». Если наблюдается обратная ситуация, программа выводит False.

Для решения этой задачи на Паскаль требуется продуманный алгоритм. По алгоритму нужно выполнить несколько последовательных действий:

  1. Считать строку.
  2. Задать цикл, (можно выяснить длину строки, поэтому лучше использовать цикл FOR с параметром).
  3. Проверить каждый символ в цикле.

Символы «А» или «В» добавляются к переменной, где хранится количество буквы и единица. Важно помнить, что символы «А» и «В» существуют как в латинском, так и в кириллическом алфавитах. В написании эти буквы одинаковы, но имеют различное значение для компьютера. Учитывая этот факт, нужно создавать для двух языков несколько условий. После цикла значения переменных проверяются и выводится итоговый результат.

Исходный код программы Pascal:

var i, A, B :integer; //Описание переменных
str: string;
flag: boolean;
Begin //Начало программы
A:=0; //Зануление переменных
B:=0;
writeln(‘Введите строку: ‘);
readln(str); //Считывание строки
for i:=1 to length(str) do //Цикл для проверки каждого символа
Begin //Начало проверки
if str[i]=’А’ then inc(A); //Для русских букв
if str[i]=’В’ then inc(B);
if str[i]=’A’ then inc(A); //Для английских букв
if str[i]=’B’ then inc(B);
end; //Конец цикла/проверки
if A > B then flag:=true //Условие вывода
else flag:=false;
writeln(‘flag = ‘, flag); //Вывод результата
end. //Конец программы

Файл: Вы не можете скачивать файлы с нашего сервера

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *