Page 19 - Microsoft Word - Modul pgds perulangan

Modul Pemrograman Dasar Kelas X

Contoh program :

program struktur_if_else_if_else;
uses crt;
var
bilangan: integer;
begin
clrscr;
writeln('Masukkan bilangan : '); readLn(bilangan);
If (bilangan mod 2 = 0) then
Begin
writeln('Bilangan merupakan bilangan genap');
end
ELSE
Begin
writeln('Bilangan merupakan bilangan ganjil');
end;
If (bilangan >10) then
Begin
writeln('Bilangan merupakan bilangan lebih dari sepuluh');
end
ELSE
begin
writeln('Bilangan merupakan bilangan kurang dari sepuluh');
end;
readln;
end.

SMK Antartika 2 Sidoarjo, Dinas Pendidikan Provinsi JawaTimur 2020 13