Page 35 - Microsoft Word - Modul pgds perulangan

Modul Pemrograman Dasar Kelas X

C. Assesment Diagnostik

1. Tulias program berikut :
program struktur_case;
uses crt;
var
makanan: integer;
begin
clrscr;
write('Silahkan input angka untuk makanan (1-3): '); readln(bulan);
case (bulan) of
1 : writeln('Soto');
2 : writeln('Bakso');
3 : writeln('Lalapan');
else
writeln('Maaf, format yang anda masukkan salah');
end;
readln;
end.

Bagaimana hasil running dari program tersebut ?
…………………………………………………………………………………………………………………………
…………………………………………………………………………………………………………………………
…………………………………………………………………………………………………………………………

C. Buatlah program percabangan case…of untuk menampikan predikat nilai A,B,C
lewat inputan nilai A >90, B>70 C>50, jika diinputkan yang lain maka keluar
'Maaf, format yang anda masukkan salah' !
…………………………………………………………………………………………………………………………
…………………………………………………………………………………………………………………………
………………………………………………………………………………………………………………………….

D. Buatlah program percabangan case…of untuk menampikan menampikan bulan
lewat inputan angka dari 1-12 jika diinputkan yang lain maka keluar 'Maaf,
format yang anda masukkan salah' !
…………………………………………………………………………………………………………………………
…………………………………………………………………………………………………………………………
………………………………………………………………………………………………………………………….

SMK Antartika 2 Sidoarjo, Dinas Pendidikan Provinsi JawaTimur 2020 29