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
- Aplikasi Free Pascal Download Gratis disertai Cara Download dan Cara Instal Lengkap
- Program Pascal : Cara Membuat Program Mencari Nilai Luas Trapesium
- Program Pascal : Contoh penggunaan PROCEDURE dan perulangan IF ELSE membuat piramid Bilangan
- Program Pascal : Contoh program pascal menggunakan Array
- Mempelajari Array Penyimpanan data dalam Pemrograman dunia IT
- Program Pascal : Membuat program untuk menghitung Nilai berpangkat dengan Procedure
- Pascal : Contoh Program menggunakan Perulangan For To Do, DIV dan MOD
- Program Pascal : Kalkulator Mencari Nilai rata-rata contoh kode Procedure dan Array
- Pascal : Menentukan Tahun Kabisat yang mengirimkan sebuah Boolean dengan Function
- Pemrograman Pascal : Mengenal Nilai Genap dengan Array
- Pascal : Membuat Perhitungan Gaji dengan Turbo Pascal
- Pemrograman Pascal : Contoh Array 1 dimensi
- Pascal : Menghitung nilai Jajar Genjang dengan Turbo Pascal For Windows (TPW 1.5)
- Pascal : Penggunaan script Repeat Until dan Case Break
- Pascal : Membuat Program Menghitung detik menggunakan DIV MOD
- Pascal : Program Konversi Suhu menggunakan Case
- Mempelajari Algoritma Pemrograman Berorientasi Objek dikenal OOP
- Web : Cara mengatur Paragraf html code menjadi lebih teratur
- HTML : Belajar HTML Memasukkan link Bahasa Pemrograman WEB
- Belajar HTML Pemrograman Web
No comments:
Post a Comment
Silahkan isi komentar, jika ada yang ingin ditanyakan...