var
bil : integer;
i : byte;
st, balikan : string[12];
Begin
write('Ketik suatu bilangan integer : ');
readln(bil);
str(bil, st);
balikan := '';
for i:=1 to length(st) do
begin
balikan := st[i] + balikan;
end;
if balikan = st then
begin
writeln(st, ' adalah PALINDROM');
end
else
begin
writeln(st, ' adalah Bukan PALINDROM');
end;
end.
1 komentar:
bisa dibuat lebih efisien kalo nggak dibuat variabel balikan, jadi cek aj variabel st dari ujung ke ujung
misal
for i := 1 to length(st) do
if st[i] = st[length(st)-i+1]
bol = true
else
begin
bol := false;
break;
end;
maaf kodenya salah, sudah lupa pake pascal
Posting Komentar