jadi walaupunpun typenya ialah character/integer untuk mengambilnya tata caranya ialah sama.
tetapi perlu di ingat bahwasanya input yang dimasukkan mestilah berjenis/ bertype yang sama dengan variable penampungnya.
semisalnya integer/float dll berarti mestilah numerik (0-9)
sedangkan character/sctring bisa berisi semua character.
A. Input Character
Disini kita akan coba modifikasi program kita yang menghitung luas persegi panjang dari bahasan kita sebelumnya.
kita tambahkan 1 khasus, yakni kita ingin bisa melaksanakan perhitungan luas secara berulang kali tanpa mesti keluar dari program yang kita buat.
jadi kita membutuhkan batuan dari perulangan tak tetap / tak pastii yakni REPEAT-UNTIL, serta input parameter yang dapat mengindikasikan apa tetap akan melaksanakan perhitungan ataukah keluar dari program
Script lengkapnya seperti berikut :
Program LuasPersegiPanjang; Uses crt; Var Luas,p,l : integer; lagi : char; // mendeklarasikan indikator parameter Begin REPEAT begin Write('Masukkan Panjang : ');Read(p); Write('Masukkan Lebar : ');Readln(l); Luas := p * l; //perhitungan luas disimpan pada variable Luas Writeln('Luas Persegi Panjangnya ialah : ',Luas); write('Apakah anda ingin melaksanakan perhitungan kembali[y/n] ? ');read(lagi); // mengambil indikator parameter, jikalau berisi n maka akan keluar dari program jikalau tak maka program akan diulang/jalankan kembali Readln(); end; UNTIL lagi = 'n'; clrscr; End. hasilnya : Masukkan Panjang : 20 Masukkan Lebar : 30 Luas Persegi Panjangnya ialah : 600 Apakah anda ingin melaksanakan perhitungan kembali[y/n] ? y Masukkan Panjang : 92 Masukkan Lebar : 41 Luas Persegi Panjangnya ialah : 3772 Apakah anda ingin melaksanakan perhitungan kembali[y/n] ? n
B. Input string
Sama dengan input Character, seperti di awal tadi kita sebutkan, bedanya ialah di variable penampung nya.
contoh khasus : kita ingin menampilkan perulangan satu kata yang di inputkan sebanyak nilai variable yang di inputkan pula.
bagaimana tata caranya?
Kali ini karena perulanganya tetap (sebanyak nilai yang di inputkan) maka kita membutuhkan bantuan dari FOR.
Begini script lengkapnya :
program misal2; var y,i : integer; x : string; begin write('Masukkan kata : ');read(x); // variable penampung kata write('Kata akan diulang sebanyak ? ');read(y); for i := 1 to y do // var penampung batas perulanagan begin writeln(x); end; readln; readln; end. hasilnya : Masukkan kata : aku Kata akan di ulang sebanyak ? 10 aku aku aku aku aku aku aku aku aku aku
0 komentar: