Page 33 - Microsoft Word - Modul pgds perulangan
P. 33
Modul Pemrograman Dasar Kelas X
Contoh kode program :
program struktur_case;
uses crt;
var
hari : integer;
begin
clrscr;
write('Silahkan input angka untuk hari (1-7): ');
readln(hari);
case (hari) of
1 : writeln('Senin');
2 : writeln('Selasa');
3 : writeln('Rabu');
4 : writeln('Kamis');
5 : writeln('Jumat');
6 : writeln('Sabtu');
7 : writeln('Minggu');
else
writeln('Maaf, format yang anda masukkan salah');
writeln('Harap input hari berupa angka 1-7');
end;
readln;
end.
SMK Antartika 2 Sidoarjo, Dinas Pendidikan Provinsi JawaTimur 2020 27
