Membuat Program menghitung nilai dengan pascal

Hallo programmer...
ketemu lagi dengan ane, ane mau bagi bagi lagi source code pascal, kali ini source code untuk menghitung nilai mahasiswa ataupun siswa.
mungkin bisa di jadikan referensi buat belajar bahasa pascal atau apapun.
kode nya sangat sederhana begitu pula hasilnya nanti.

• source code
  
  program NilaiMahasiswa;
  uses: crt;
  label awal;
  var
  nama :string(20);
  nim  :string(20);
  nitu, nimid :integer;
  nifi :integer;
  total :real;
  nh :char;
  lagi :char;
  begin
  awal:
  clrscr;
  write('NAMA MAHAISWA :'); readln(nama);
  write('NIM MAHASISWA :'); readln(nim);
  write('NILAI TUGAS   :'); readln(nitu);
  write('Nilai MID TES :'); readln(nimid);
  write('NILAI FINA TES:'); readln(nifi);
  total:=nitu+nimid+nifi;
  case round (total) of
  80..100 :nh :='A';
  70..79 :nh :='B';
  51..69 :nh :='C';
  41..50 :nh :='D';
  0..40 :nh :='E';
  end;
  writeln('TOTAL NILAI  :',total:10:0);
  writeln('NILAI HURUF  :',nh);
  writeln('______________________');
  write('apakah ingin menghitung lagi [y/n] ?'); readln(lagi);
  if lagi:='y' then goto awal;
  end.
  

gambar source code

sangat sederhana, hanya terdiri dari label untuk menghitung lagi dari awal atau tidak. dan case round of untuk memilih kode huruf nya. dan sebagainya, sangat sederhana...

semoga bermanfaat,

Share

Like

G+

Tweet

Tweet