پالیندروم (Palindrom)

[only4u-m]

در مورد اعداد پالیندروم (Palindrom) سوال داشتم. چطور می شه برنامه ای براش نوشت.

[sinaaeeni]

در مورد اعداد پالیندروم (Palindrom) سوال داشتم. چطور می شه برنامه ای براش نوشت.

سلام دوست عزیز
ببین این کد بدردت میخوره امیدوارم مورد استفاده قرار گیرد

program palindram;
{uses crt;}
uses strings;
var
str : array [0..90] of char ;
reverse,half1,half2 : string;
count,len,i : integer ;
begin
{clrscr;}
writeln ('Please enter a string (maximum 50 characters) :');
readln (str);
if (str[0] = '') or (str[0] = #0)then
begin
writeln('Please enter the string !');
end
else
begin
if (StrLen(str)<50) then
begin
len := StrLen(str);
if (len > 1) then
begin
if (len mod 2 = 0) then
begin
count := strLen(str) div 2;
half1 := copy(str,1,count);
half2 := copy(str,count+1,len-count);
for i:=count-1 downto 0 do
reverse := reverse + str[i];
end
else
begin
count := round((strLen(str) div 2+(0.6)));
half1 := copy(str,1,count-1);
half2 := copy(str,count+1,len-count);
for i:=count-2 downto 0 do
reverse := reverse + str[i];
end;
if(reverse = half2)then
writeln ('String is palindram !')
else
writeln ('String is not palindram !');
end;
end
{
else
writeln ('your string is only one character');
}
else
writeln('Your string is bigger than fifty characters !');
end;
end.

[only4u-m]

خیلی از آقای sinaaeeni ممنونم ولی این برنامه به زبان پاسکاله، نه؟

خودم از دیروز تا حالا داشتم روی این برنامه فکر می کردم این کدشه که خودم نوشتم:

' palindrome Numbers.
Module T410
Sub Main()
Dim checkNumber, equalNumber, number, ba AsInteger
Console.Write("Please enter an integer: ")
number = Console.ReadLine
equalNumber = number
While number >= 10
ba = number Mod 10
number \= 10
checkNumber &= ba
EndWhile
checkNumber &= number
Console.WriteLine()
If equalNumber = checkNumber Then
Console.WriteLine("Yes, it's a palindrome")
Else
Console.WriteLine("No, it's not a palindrome")
EndIf
EndSub' Main
EndModule