uses
wincrt;
var
nilai:integer;
begin
writeln('Program kondisi IF');
writeln('__________________');
write('Masukkan Sebuah Nilai : ');readln(nilai);
if nilai >= 60 then
writeln ('Lulus')
else
writeln('Gagal');
end.
program array_1Dimensi; uses winCrt; var nim,nm,smstr,mk,grade:array[1..4] of string; nh,uts,uas:array[1..4] of integer; na:array...
Tidak ada komentar:
Posting Komentar