Memilih Operasi Berdasarkan Data Input

Memilih Operasi Berdasarkan Data Input


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 mencoba (Y/T)?
Apabla jawaban untuk mencoba ulang adalah ‘Y” maka menu operasi di atas dimunculkan kembalidan 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’;
write (ulang = ‘Y’ ║ulang = ‘y’) do
write (“pilih operasi yang diinginkan:”);
write (“ + Penjumlahan”);
write (“- pengurangan”);
write (“/ pembagian”);
write (“* perkalian “);
write (“ “);
write (“jenis operasi:”);
read (pilihan);

write (“masukkan angka 1:”);
read (angka 1)
write (“masukkan angka 2:”);
read (angka2);
case (pilihan)
‘+’ : hasil ← angka 1+ angka 2;
‘-‘ : hasil ← angka 1 – angka2;
‘/’ : if (angka2=0)
then write (“hasl tak berhingga”);
else hasil ← angka 1 / angka 2;
endif.
‘*’ : hasil ← angka 1 * angka 2;
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.