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

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


Как-то давно в учебнике Паскаль я увидел такую задачу. Нужно было написать программу, которая определяет каких букв в строке больше: A или B? Эта программа использует строковой тип данных String, логический тип boolean и функцию length.

Итак, условие задачи: Напишите программу, которая выводит True, если в строке буква A встречается чаще, чем буква B, и False в противном случае.
Для того, чтобы решить данную задачу на Паскаль, нужно продумать алгоритм. Итак, сначала нужно считать строку, затем задать цикл, в котором мы будем проверять каждый символ, так как мы можем узнать длину строки, то будем использовать цикл FOR, т.к. он с параметром. Затем мы будем проверять символ. если он A, то добавляем к переменной, в которой будем хранить количество буквы, единицу. Аналогично и с буквой B. Кстати, буквы A и B есть как в английском алфавите, так и в русском, хоть они и одинаковы по написанию, но для компьютера это абсолютно разные символы, поэтому нужно создать несколько условий для двух языков. После цикла нужно проверить какая переменная больше по значению и вывести результат.

Исходный код программы 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. //Конец программы


Скачать исходник: AorB.pas

Информация была предоставлена сайтом http://delphist.ru/.

Автор: Zed от 2013-02-21 17:41:19   Просмотров: 3763

Теги: Паскаль Pascal string исходники исходник скачать FOR