Kata Terbalik --- Program Pascal Kali ini, kita akan membahas tentang cara membuat program generator tulisan terbalik. Contoh kata 'kursi' menjadi 'isruk'.
Nah, seperti contoh tersebut yang akan kita buat programnya. Program tersebut akan kia gunakan dalam berbagai hal salah satunya menjadi pengaman enkripsi.
Barangkali ada teman-teman yang punya kuliah tentang membuat program membalikkan kata atau kalimat bisa menggunakan program ini.
Langsung ke intinya, berikut listing kode pascal membuat generator tulisan terbalik.
Saya menggunakan compiler free pascal.
Bagi yang belum punya compilernya bisa download dulu dengan klik link dibawah.
http://www.tekprogapp.com/2017/12/free-pascal-download-gratis.htmlListing kode generator tulisan terbalik.
program balik_kata;
uses crt;
var
i:integer;
teks,tampung_data:string;
begin
clrscr;
write('Masukkan Teks Yang Akan Dibalik :');readln(teks);
FOR i:=length(teks) downto 1 do
begin
tampung_data:=tampung_data+teks[i];
end;
writeln('Hasil Pembalikan : ',tampung_data);
readln;
end.
uses crt;
var
i:integer;
teks,tampung_data:string;
begin
clrscr;
write('Masukkan Teks Yang Akan Dibalik :');readln(teks);
FOR i:=length(teks) downto 1 do
begin
tampung_data:=tampung_data+teks[i];
end;
writeln('Hasil Pembalikan : ',tampung_data);
readln;
end.
Hasil Running
Setelah menulis listing kodenya, selanjutnya program dijalankan untuk melihat hasilnya.
Tekan combinasi tombol ctrl + f9 atau klik run - run
Dengan menekan tombol tersebut maka program generator tulisan terbalik berjalan, seperti gambar dibawah.
Gambar diatas merupakan hasil running program, kita diminta untuk memasukkan kata atau teks yang akan dibalik.
Saya menulis tekprogapp. untuk melihat hasil setelah kata dibalik maka akan seperti gambar berikut:
Generator tulisan terbalik telah selesai dibuat dan hasil dari kata tekprogapp setelah dibalik menjadi 'ppagorpket'.
Nah, seperti itu generator tulisan terbalik yang telah dbuat, untuk penjelasan setiap listng kodenya silahkan teman-teman perhatikan penjelasan berikut.
Penjelasan Listing kode
Pertama yang kita lakukan yaitu seperti pada tutorial lainnya dengan membuat variabel yang akan kita gunakan dalam membuat program pascal.
var
i:integer;
teks,tampung_data:string;
i:integer;
teks,tampung_data:string;
variabel yang saya gunakan yaitu
- i dengan tipe data integer
- teks dan tampung_data bertipe data string
teks merupakan variabel yang nantinya akan menampung tulisan atau kata yang akan dibalik
i merupakan variabel yang akan kita gunakan untuk menampung perulangan yang digunakan
tampung_data merupakan variabel yang menjadi penyimpanan teks yang telah dibalikkan, ini berfungsi sebagai tempat proses seperti tempat menulis rumus saat kita membuat program perhitungan.
berikut beberapa program perhitungan yang tersedia di tekprogapp.
- http://www.tekprogapp.com/2017/12/pascal-cara-membuat-program-mencari-nilai-luas-trapesium.html
- http://www.tekprogapp.com/2017/12/program-pascal-contoh-program-pascal-array.html
- http://www.tekprogapp.com/2017/11/program-pascal-membuat-program-untuk.html
- http://www.tekprogapp.com/2017/11/pascal-kalkulator-mencari-nilai-rata-kode-procedure.html
- http://www.tekprogapp.com/2017/11/perhitungan-gaji-dengan-turbo-pascal.html
- dan lain-lain.
Selanjutnya, penjelasan tentang perulangan yang digunakan yaitu perulangan for downto do tentu hal ini punya alasan kenapa kita menggunakan perulangan for downto do dibanding perulangan lainnya.
Ini lebih cocok digunakan karena perulangan ini memulai pembacaan data dari bawah keatas sesuai dengan namanya yaitu downto yang berarti bawah ke.
penulisan listingnya seperti berikut:
FOR i:=length(teks) downto 1 do
begin
tampung_data:=tampung_data+teks[i];
end;
tampung_data:=tampung_data+teks[i];
end;
Dari listing diatas dapat dilihat penggunaan perulangan For downto do dan variabel tampung_data sebagai tempat proses berlangsung.
Terakhir, untuk menampilkan proses yang telah dilakukan kita hanya perlu menulis listing kode seperti berikut:
writeln('Hasil Pembalikan : ',tampung_data);
dan jangan lupa berikan readln yang berfungsi supaya program tidak langsung keluar setelah selesai melakukan proses.
Selesai, Program generator tulisan terbalik telah kita buat.
Program ini bisa kita gunakan untuk membalik kata, teks ataupun kalimat. silahkan berkreasi sesuai keinginan masing-masing.
Sekian. Semoga Bermanfaat. Wassalam