membalik huruf pada pascal

Program MENGGUNAKAN PASCAL;

Manipulasi String

Membalik huruf

=================================================================

program balikhuruf;

uses wincrt;

var a,b: integer; c,d,e:string;

begin

c:='SAPEEL MAYA';  (*huruf yang akan dibalik dari belakang kedepan*)

a:=length(c); (*menghitung panjang string*)

e:=''; (*variable yang nantinya akan diisi dengan kata yang dibalik*)

            for b:= a downto 1 do (*memakai perulangan agar  tiap perintah diulang sebanyak karakater dari kata dimulai dari urutan terbelakang *)

            begin

                                  d:=copy(c,b,1);(*mengambil substring dari kata SAPEEL MAYA*)

                                e:=e+d;

           end;

 write(e);

end.

========================================================================

menggunakan turbopascal for windows

Output