Question

Написать программу, которая определяет, является ли введенное слово палиндромом ("перевертышем"),(подробно, при помощи write, lenght и т.п,через паскаль)

Answer 1

//PascalABC.NET v3.3 1633

var str: string;

begin

write('Введите слово: ');

readln(str);

if ReverseString(str) = str then

 writeln('Слово является палиндромом')

else

 writeln('Слово не является палиндромом');

end.

Answer 2

Для определения, является ли введенное слово палиндромом в Pascal, можно использовать следующую программу. При выполнении программы пользователь должен ввести слово, а затем программа проверит, является ли оно палиндромом.

pascalCopy code
program PalindromeChecker;

var
  inputWord, reversedWord: string;

function ReverseString(input: string): string;
var
  i: integer;
begin
  Result := '';
  for i := Length(input) downto 1 do
    Result := Result + input[i];
end;

begin
  Write('Введите слово: ');
  ReadLn(inputWord);

  reversedWord := ReverseString(inputWord);

  if inputWord = reversedWord then
    WriteLn('Введенное слово является палиндромом.')
  else
    WriteLn('Введенное слово не является палиндромом.');
end.

Программа определяет палиндром следующим образом:

1. Считывает введенное слово.
2. Создает отдельную функцию ReverseString, которая переворачивает введенное слово.
3. Сравнивает исходное слово с перевернутым словом, и если они равны, выводит сообщение, что это палиндром. В противном случае выводит сообщение, что это не палиндром.

Обратите внимание, что программа не учитывает регистр букв. Если вы хотите сделать её регистронезависимой, просто примените функцию LowerCase к обоим строкам перед сравнением, например:

pascalCopy code
if LowerCase(inputWord) = LowerCase(reversedWord) then

Теперь программа будет корректно обрабатывать слова независимо от регистра букв.