contoh program if di dalam pascal

program struktur_if_then_else_nested;
uses crt;
var
angka:integer;
begin
clrscr;
write('Masukkan sebuah angka: ');
readln(angka);
if (angka mod 2 = 0) then
begin
write('Angka yang anda masukkan merupakan bilangan genap ');
if (angka > 10) then
begin
writeln('dan besar dari 10');
end
else
begin
writeln('dan kecil dari 10');
end;
end
else
begin
write('Angka yang anda masukkan merupakan bilangan ganjil ');
if (angka > 10) then
begin
writeln('dan besar dari 10');
end
else
begin
writeln('dan kecil dari 10');
end;
end;
readln;
end.

NAMA : SEPTIANI NENO
KELAS : REGULAR A
NIM : 201712042

Share :

Tweet

✚

Related Post