Программа для определения количества букв «А» и «В»
В некоторых учебных пособиях по языку программирования Паскаль содержится интересная задача. Она требует создать исходник программы, которая определяет, каких букв больше: «А» и «В». Программа для выполнения цели задействует:
- функцию length;
- логический тип boolean;
- тип данных String.
Исходя из условий задачи, требуется написать программу, которая выводит True в случае, когда «А» в строке встречается чаще, чем «В». Если наблюдается обратная ситуация, программа выводит False.
Для решения этой задачи на Паскаль требуется продуманный алгоритм. По алгоритму нужно выполнить несколько последовательных действий:
- Считать строку.
- Задать цикл, (можно выяснить длину строки, поэтому лучше использовать цикл FOR с параметром).
- Проверить каждый символ в цикле.
Символы «А» или «В» добавляются к переменной, где хранится количество буквы и единица. Важно помнить, что символы «А» и «В» существуют как в латинском, так и в кириллическом алфавитах. В написании эти буквы одинаковы, но имеют различное значение для компьютера. Учитывая этот факт, нужно создавать для двух языков несколько условий. После цикла значения переменных проверяются и выводится итоговый результат.
Исходный код программы 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. //Конец программы
Файл: Вы не можете скачивать файлы с нашего сервера