Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.09.2016, 11:59   #1
Dr Rainman
 
Регистрация: 30.09.2016
Сообщений: 7
Сообщение Паскаль заставляет страдать

Нужно написать программу которая виводит слово задом наперёд, и также говорить есть ли это слово палиндром (читается так само задом наперёд). С первым все понятно, но как сделать чтобы выполнялось и второе?
Dr Rainman вне форума Ответить с цитированием
Старый 30.09.2016, 12:03   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

1 Запомнил слово и запомнил слово_задом_наперед.
2 сравнил их
3 если равны - палиндром
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 30.09.2016, 12:07   #3
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Так если вы сделали вывод задом наперед, то можно же просто сравнивать эту строку с исходной (одинаковы ли они).
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 30.09.2016, 12:10   #4
Dr Rainman
 
Регистрация: 30.09.2016
Сообщений: 7
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
1 Запомнил слово и запомнил слово_задом_наперед.
2 сравнил их
3 если равны - палиндром
У меня есть прога что поворачивает слово

Код:
uses crt;
var i:integer;
s:string;
begin
clrscr;
writeln('vvedite stroky');
readln(s);
for i:=length(s) downto 1 do
write(s[i]);
end.
Но как запомнить?

Последний раз редактировалось Alex11223; 30.09.2016 в 12:14.
Dr Rainman вне форума Ответить с цитированием
Старый 30.09.2016, 12:14   #5
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Записывать s[i] в новую строку.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 30.09.2016, 13:47   #6
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
uses crt;
var i:integer;
s:string;
s_rev:string;
begin
clrscr;
writeln('vvedite stroky');
readln(s);
s_rev:='';
for i:=length(s) downto 1 do
begin
write(s[i]);
s_rev:=s_rev+s[i];
end;
if (s=s_rev) then writeln('palindrom');
end.
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль ABC. Программа на языке Паскаль. Helen1 Паскаль, Turbo Pascal, PascalABC.NET 6 13.01.2018 21:46
паскаль abc. Используя графические средства языка Паскаль на одной координатной сетке построить графики функций кириллюк Помощь студентам 5 15.09.2013 12:11
Как можно в Паскаль АВС (Паскаль-Турбо) вставлять в результаты печати программы графики, таблицы, схемы, набранные формулы, выраже IZOPGRAM Паскаль, Turbo Pascal, PascalABC.NET 0 11.06.2012 10:54
Паскаль, Борланд Паскаль-в чем разница??? Vremya-Dengy Паскаль, Turbo Pascal, PascalABC.NET 13 31.05.2011 18:23
Код, который, заставляет задуматься... AlDelta Свободное общение 72 21.12.2009 15:19