Andaikan operasi terhadap dua bilangan dapat dipilih melalui satu “menu” sebagai berikut:
Pilih Operasi yang diinginkan:
+ Penjumlahan
- Pengurangan
/ Pembagian
* Perkalian
Jenis operasi:_
Masukkan angka 1:_
Masukkan angka 2:_
Hasil = ....
Masih mau coba (Y/T)?
Apabila jawaban untuk mencoba ulang adalah ‘Y’ maka menu operasi diatas dimunculkan kembali dan proses yang sama berulang kembali hingga jawaban pengguna program adalah ‘T’.
Algoritma MenuProgram
{ memilih operasi berdasarkan pilihan pada Menu program }
Deklarasi
real angka1, angka2, hasil;
char pilihan, ulang;
Deskripsi
ulang ‘Y’;
while (ulang = ‘Y’ || ulang = ‘Y’) do
write (“Pilih operasi yang diinginkan:”);
write (“+ Penjumlahan”);
write (“- Pengurangan”);
write (“/ Pembagian”);
write (“* Perkalian”);
write (“ “);
write (“Jenis operasi:”);
read (pillihan);
write (“Masukkan angka 1:”);
read (angka1);
write (“Masukkan angka 2:”);
read (angka2);
case (pilihan)
‘+’ : hasil angka1 + angka2;
‘-‘ : hail angka1 – anka2;
‘/’ : if ( angka2 = 0 )
then write (“hasil tak berhingga”);
else hasil angka1 / angka2;
endif.
‘*’ : hasil angka1 * angka2;
default : write (“Pilihan operasi salah !”);
Hasil 0;
endcase.
if (angka2 !=0)
then write (“Hasil=”, hasil);
endif.
write (“Masih mau coba (Y/T) ?”);
read ( ulang );
endwhile.
Tidak ada komentar:
Posting Komentar