Классы

[TeleSky]

Помогите мне написать программу "Палиндром" через классы! Как известно это слова и числа "перевертыши". Помогите!

Заранее спасибо!

[Тупой]

TeleSky, вот если бы вы были программистом с 20-летним стажем, вы бы сами помогли комунить написать программу "Палиндром" через классы? Вам бы было понятно, на чем нужно это писать, что вообще это за перевертыши? Да, и самое главное: в чем должна заключаться помощь то? Объяснить, что такое классы?

[TeleSky]

Нет, показать пример решения через консоль, с использованием рекурсии.

[StarWorm]

Я что-то не понял немного... То тебе нужно класс создать, палиндром... То тебе уже рекурсия в консоли... Так ты определись что надо то?!

Палиндром - это может быть метод класса, на проверку является ли слово палиндромом, или нет?!

[TeleSky]

Просто можно палиндром прописать через классы.

[StarWorm]

Сам палиндром нельзя прописать через классы... Класс - это что-то наподобие ТИПА объекта...
Например в нем будут храниться строки... И в нем будет метод

bool palindrom();

который и будет возвращать false или true

P.S. какой смысл делать Класс палиндром?
т.е. в конструктолре ты передаешь строку, а он тебе либо создает объект, либо нет?! Гыгы... Это уже приехали называется... Как ваше задание звучит?

[TeleSky]

Вот так у меня получилось написать палиндром через классы в форме консоли, но полученная программка ответ не выдает:
program _1_;

{$APPTYPE CONSOLE}

uses
SysUtils, StrUtils;
type
Tpalin = class
private
slovo : string;
constructor create;
destructor destroy;
procedure setSlovo(x : string);
function getSlovo : string;
function analyze : boolean;
end;
//=================================== =================================== =======
procedure Tpalin.setSlovo(x : string);
begin
self.slovo := x;
end;
//=================================== =================================== =======
function Tpalin.getSlovo : string;
begin
result := slovo;
end;
//=================================== =================================== =======
constructor Tpalin.create;
begin
end;
//=================================== =================================== =======
destructor Tpalin.destroy;
begin
end;
//=================================== =================================== =======
function Tpalin.analyze : boolean;
begin
if(self.getSlovo = reverseString(self.getSlovo)) then
begin
result := true;
end
else
begin
result := false;
end;
end;
//=================================== =================================== =======
var
palin : Tpalin;
input : string;
begin
palin := Tpalin.create();

write('Vvedite slovo dlya analiza: ');
readln(input);
palin.setSlovo(input);

if(palin.analyze) then
begin
writeln('Palindrom');
end
else
begin
writeln('Ne palindrom');
end;
palin.Free();
readln;
end.

Посмотрите может подскажите и увидите ошибку мою!???

[StarWorm]

Я программлю на C++/Си... Но и в Delphi разобраться могу... Что именно не получается?!
P.S. Данную ветку видел на другом форуме...

[TeleSky]

Ответа нет. Программа не выдает ответ.

[StarWorm]

Т.е. ты вводишь слово, а она ничего не делает??? Так что ли получается7???