Page 29 - Microsoft Word - Modul pgds perulangan

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');
end;
readln;
end.

Hasil running program :

SMK Antartika 2 Sidoarjo, Dinas Pendidikan Provinsi JawaTimur 2020 23