конежно же неактуально уже но все же.
Алгоритм решения задачи:
1. Брать очередной символ с
начала строки и сравнивать его
с противоположным.
1. Если символы не равны,
то выдать сообщение "не
палиндром", изменить
значение флага и
остановить сравнение.
2. Если значение флага не было
изменено, то выдать
сообщение "палиндром".
s – строка;
f – флаг.
Программа на языке
Паскаль:
var
s : string ;
i ,f : byte ;
begin
write('String: ');
readln(s );
f := 0 ;
for i := 1 to length ( s) div 2 do
if s [i] <> s [ length (s )- i+ 1 ] then
begin
writeln( 'No palindrome' );
f := 1;
break
end ;
if f = 0 then
write( 'Palindrome') ;
readln
end .
сам по учебе изучаю паскаль, интересно повозиться бывает. впринципи в сети все можно найти
Рейтинг: 5
голосов: 2