Pascal Membalik Kata

Dalam melengkapi Algoritma dan belajar. diperlukan beberapa logika yang efisien dan kreatif. setiap pemikiran orang pasti berbeda-beda dalam meng-Expresikan koding di dalam Programnya meski konsep kadang sama tetapi koding tidak mungkin bisa sama. dan jikalau sama pun banyak kemungkinan bahwa dia copying atau mencontek, adapun untuk menghindari kegiatan copying diperlukan logika yang terus diasa dan semangat dalam memikirkan beberapa pola dan permutasi dalam coding. dalam pembahasan ini, akan dibahas beberapa bentuk umum dari coding pascal membalik kata
codingnya sebagai berikut


Program afif_membalik_kata;
uses wincrt;

var
   a,b:string;
   c,d,i:integer;
begin
     write('Masukan Kata:');read(a);
     c:=length(a);
     i:=1;
     for d:=c downto 1 do
     begin
         insert(a[d],b,i);
         inc(i);
     end;
     writeln('Kata Terbaliknya:',b);
     readln;
end.

copikan semua coding dari atas kebawah dan compile atau dengan menekan F9 dan kemudia klik run atau dengan Ctrl+F9. dan hasilnya akan seperti diatas.
Selamat belajar dan Semoga Sukses.


Contoh Program Pascal membalik kata
membalik kata pascal