Работа со строками в Delphi. Часть 1

Определим, является ли строка палиндромом.

program palindrom;

var
  str, str1: String;
  i: Integer;


begin
  writeln('Enter string:');
  readln(str);
  SetLength(str1, length(str));
  for i := 1 to length(str) do
    str1[i] := str[length(str) - i + 1];
  if str = str1 then writeln('Eto palindrom') else writeln('Eto ne palidrom');
  writeln('Press Enter to exit... Copyright (c) Lyamkin Ilya');
  readln;
end.

В этом коде, в цикле for идет создание новой строки из данной, но в обратном порядке. Затем получившуюся строку сравниваем с данной и определяем - палиндром или нет.
Как видите, алгоритм достаточно прост и компактен, так что используйте на здоровье.

Если вы хотите скачать курсовые и лабораторные работы на Paskal, то вам в помощь ресурс bpascal.ru.

Удачи! SourceExpert.Blogspot.com