Selasa, 25 Oktober 2011

If-then-Else

program kondisi_if;

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.

Tidak ada komentar:

Posting Komentar

array data mahasiswa

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...