Сделайте программку на языке Паскаль, которая будет определять: является ли данная
Сделайте программку на языке Паскаль, которая будет определять: является ли данная строчка, введенная юзером, палиндромом. ( ТИП Непременно CHAR) и использовать функцию Length. Безотлагательно пожалуйста!
Задать свой вопрос1 ответ
Нилопец
Галка
var
ac: array of char;
s: string;
len: integer;
i: integer;
fl: boolean;
begin
write(Введите строку =);
readln(s);
SetLength( length(s) );
for i:= 1 to length(s) do ac[i]:= s[i];
f:= true;
len:= length(ac);
for i := 1 to ( len div 2 ) do
begin
if ac[i] lt;gt; ac[len -i +1] then begin f:= false; break; end;
end;
if f then writeln(палиндромом)
else writeln(рядовая строчка);
end.
Палиндромом это строчка, которая читается одинаково с обоих сторон.
Вначале вводится строка "s", и проще было бы сходу проверить строчку. Но т.к. в условии сказано, что тип обязан быть "char", то строка посимвольно копируется в массив "ас[]". Размерность массива "ас" устанавливается процедурой "SetLength", равной количеству введенных с клавиатуры символов.
Логическая переменная "f" употребляется как флаг, если "f" равное "true", то строка палиндромом, по другому это обычная строчка.
В цикле каждый элемент массива "ac" сравнивается с симметричным ему элементом с оборотного конца массива.
Если находится хоть один такой элемент, "f" присваивается "false" и цикл прекращается.
По окончании цикла, в зависимости от значения переменной "f" выводится результат.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Облако тегов