bE miNe

bE miNe

Senin, 30 Agustus 2010

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 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