lagi Ga Bener NgePosting Yeeh....

Ada Pe'er Pemograman :

Ne suru Buat Program PASCAL
Scriptnya :

Program if_then;
uses crt;
var
   nilai : integer;
   mhs,nim,ket:string;
   rank:char;
begin
   clrscr;
   writeln ('=====:NIlai Ujian Mahasiswa:======');
   writeln ('===========================');
   writeln;
   write ('NIM                    : ');
   readln(nim);
   write ('Nama Mahasiswa : ');
   readln(mhs);
   write ('Nilai ujian             : ');
   readln(nilai);
   if nilai>=60 then ket:='lulus' else ket:='tidak lulus';
   if nilai>=85 then rank:='A' else
   if nilai>=75 then rank:='B' else
   if nilai>=60 then rank:='C' else
   if nilai>=50 then rank:='D' else
   if nilai<50  then  rank:='E';
   writeln;
   writeln('Nama Mahasiswa  :',mhs);
   writeln('Ketetangan            :',ket);
   writeln('Nilai                      :',rank);
   readln
end.

:::::::::::::::::::::: and
Mu liad hsilnya/File yang udah jadi? ni download aje..
Bay...