IF Majemuk
untuk > 1 statement
contoh coding if dalam free pascal:
Contoh 1 :
untuk mengetahui nilai siswa
jika nilai >= 85 maka nilai A
>=75 maka nilai B
>=65 maka nilai C
< 65 maka nilai D
program penilaian;
uses crt;
var nilai:integer;
begin
write('masukkan nilai anda :'); readln(nilai);
if nilai >=85 then writeln('nilai A')
else if nilai>=75 then writeln('nilai B')
else if nilai>=65 then writeln('nilai C')
else writeln('nilai D');
readln;
end.
Contoh 2 :
jika nilai > 70 maka LULUS, jika tidak maka GAGAL
program kelulusan;
uses crt;
var nilai:integer;
begin
write('masukkan nilai anda :'); readln(nilai);
if nilai>70 then writeln('LULUS')
else writeln('GAGAL');
readln;
end.
Nama : SHELY
Nim : 201712041
Out Of Topic Show Konversi KodeHide Konversi Kode Show EmoticonHide Emoticon