Perintah Input dalam Bahasa Pemprograman Pascal (2)

Hai temen-temen,, gimana kabarnya nih? semoga baik" saja yah hehe
kemarin kita kan udah belajar mengenai input di dalam bahasa pemprograman pascal.
coba deh perhatikan input yang saya contohkan semuanya angka kan?

nah terus sekarang gimana kalau input nya itu berupa huruf/character? bisa kah?
kalau bisa bagaimana cara mengguanakannya?

dari pada ber lama - lama, yuk kita langsung aja,,

Tidak seperti dalam bahasa pemprograman lain. dalam Pascal tidak ada/ tidak perlu perlakuan khusus untuk mendapatkan nilai dari input.
jadi meskipun typenya adalah character/integer untuk mengambilnya caranya adalah sama.
tapi perlu di ingat bahwa input yang dimasukkan haruslah berjenis/ bertype yang sama dengan variable penampungnya.

semisal integer/float dll berarti haruslah 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.
saya tambahkan 1 khasus, yaitu saya ingin bisa melakukan perhitungan luas secara berulang kali tanpa harus keluar dari program yang kita buat.

jadi kita membutuhkan batuan dari perulangan tidak tetap / tidak pasti yaitu REPEAT-UNTIL, serta input parameter yang dapat mengindikasikan apakah tetap akan melakukan 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 adalah : ',Luas); 
   write('Apakah anda ingin melakukan perhitungan kembali[y/n] ? ');read(lagi);
   // mengambil indikator parameter, jika berisi n maka akan keluar dari program jika tidak maka program akan diulang/jalankan kembali
   Readln();
 end;
 UNTIL lagi = 'n';
 clrscr;
End.

hasilnya :

Masukkan Panjang : 20
Masukkan Lebar   : 30
Luas Persegi Panjangnya adalah : 600
Apakah anda ingin melakukan perhitungan kembali[y/n] ? y
Masukkan Panjang : 92
Masukkan Lebar   : 41
Luas Persegi Panjangnya adalah : 3772
Apakah anda ingin melakukan perhitungan kembali[y/n] ? n

B. Input string
Sama dengan input Character, seperti di awal tadi saya sebutkan, bedanya adalah di variable penampung nya.

contoh khasus : saya ingin menampilkan perulangan sebuah kata yang di inputkan sebanyak nilai variable yang di inputkan pula.

bagaimana caranya?
Kali ini karena perulanganya tetap (sebanyak nilai yang di inputkan) maka kita membutuhkan bantuan dari FOR.

Begini script lengkapnya :

program Contoh2;
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

DONE!!
Mudah bukan? sekarang yakin donk kalau pascal itu mudah? hehe..
cukup sekian dulu bahasan kita kali ini. semoga bermanfaat , sampai ketemu di article selanjutnya temen-temne :D