Setelah kita melakukan percobaan bagaimana menuliskan pesan ke keluaran console, sekarang kita juga akan membaca masukan dari pengguna. Pada percobaan ini kita menggunakan beberapa variabel. Buatlah sebuah aplikasi console dengan cara seperti pada contoh sebelumnya. Setelah itu, buatlah listing program seperti berikut ini:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | program HitungUmur; {$APPTYPE CONSOLE} var Nama:string; TahunSekarang,TahunLahir,Umur:integer; begin //proses pengambilan data Write('Masukkan nama depan Anda : '); Readln(Nama); Write('Masukkan Tahun Anda lahir: '); Readln(TahunLahir); Write('Tahun berapakah sekarang : '); Readln(TahunSekarang); //proses perhitungan Umur:= TahunSekarang - TahunLahir; //proses menampilkan hasil Write('Hallo ',Nama,', umur Anda adalah ',Umur); WriteLn(' tahun'); //menunggu penekanan Enter untuk memberi //kesempatan pemakai melihat hasil Writeln('Tekan Enter'); Readln; end. |
Jalankan program dengan menekan tombol F9, kemudian masukkan data-data yang diminta…