Berikut ini contoh program sederhana menggunakan kondisi [if ... then ... else] pada pascal :
Maka, outputnya akan seperti ini :
Logikanya :
Uses crt untuk menampilkan monitor.
Var nilai:integer untuk variable nilai integer. Begin untuk mengawali program.
Clrscr untuk membersihkan layar. Write ‘masukan nilai’ untuk memasukan nilai.
Readln nilai untuk membaca nilai. Jika nilai lebih besar dari 80 dan lebih
kecil dari 100 maka akan mencetak ‘nilai anda A’. Jika nilai lebih besar dari
70 dan lebih kecil dari 79 maka akan mencetak ‘nilai anda B’. Jika nilai lebih
besar dari 60 dan lebih kecil dari 69 maka akan mencetak ‘nilai anda C’. Jika nilai
lebih besar dari 50 dan lebih kecil dari 59 maka akan mencetak ‘nilai anda D’.
Jika nilai lebih kecil dari 49 maka akan mencetak ‘nilai anda E’. Readln untuk
membaca program. End untuk mengakhiri program.
Jika menggunakan kondisi [switch case] inputnya seperti ini :
Maka Outputnya :
Logikanya :
Uses crt untuk menampilkan monitor. Var pil:byte;
a,t,npm:integer; nama,kelas:string; luas:real; untuk menentukan variable yang
dipakai yaitu integer, string, dan real. Begin untuk mengawali program. Clrscr
untuk membersihkan layar. Cetak program menu, biodata, luas segitiga, dan
exit. Masukan pilihan. Readln pil untuk
membaca pilihan. Case pil of untuk menyeleksi pilihan yang dipilih. 1: Begin
untuk memulai pilihan pertama. Write nama,npm,kelas untuk memasukan data.
Readln nama, npm, kelas untuk mencetak data. Readln membaca data. End untuk
mengakhiri program. 2: Begin untuk memulai pilihan kedua. Writeln untuk
mencetak data. Write alas,tinggi untuk memasukan data. Readln a,t untuk
mencetak data. Proses data. Readln untuk membaca data. End untuk mengakhiri
program. 3: Begin untuk memulai pilihan ketiga. End untuk mengakhiri program.
0 komentar:
Posting Komentar
Danke !