progam polindrom dan progam pengecek polindrom

progam polindrom

program membalikkalimat;

uses wincrt;

var

s,t,u,v,w,x,y,z:string;

p,q,i,j,k:integer;

pos : array[1..100] of integer;

a : char ;

begin

repeat

       writeln('masukan kalimat yang akan dibalik: ');

       readln(s);

       p:=length(s);

       i:=1;

       for j:=1 to p do

       begin

            if s[j]=' ' then

            begin

                 pos[i] := j;

                 inc(i);

            end;

       end;

pos[i]:=p+1;

k:=1;

for p:=1 to i do

begin

     if p = 1 then

     begin

          for q:= pos[p]-1 downto 1 do

          begin

               insert(s[q],t,k);

               inc(k);

          end;

     end

     else

     begin

          for q:=pos[p]-1 downto pos[p-1]+1 do

          begin

               insert(s[q],t,k);

               inc(k);

          end;

     end;

insert(' ',t,k);

inc(k);

end;

write(t);

readln(t);

write('coba lagi? [Y/T]:  ');readln(a);

until upcase (a)<>'Y';

end.

 progam pengecek polindrom

program mengecekpalindrom;

uses wincrt;

var

x: integer;

teks, teks1, teks2 : string[10];

i: integer;

ul: char;

begin

repeat

write('MASUKAN TEKS YANG ANDA INGINKAN: '); readln(teks);

x:= length(teks);

for i:= 1 to x do

teks1:=teks1 + teks[i];

for i:=x downto 1 do

teks2:=teks2 + teks[i];

if teks1 = teks2 then

writeln('TEKS YANG ANDA MASUKAN TERMASUK PALINDROM')

else

writeln('TEKS YANG ANDA MASUKAN BUKAN PALINDROM');

write('MAU COBA LAGI? [Y/T]: '); readln(ul);

until upcase (ul)<>'Y';

readln;

end.