Mencari Nilai Mahasiswa ( Delphi 7 )

Materi kali ini berasal dari tugasku di semester satu yaiyu makul Algoritma dan Pemrograman. Dibuat dengan menggunakan program Borland Delphi 7. Yaitu membuat program yang berjudul Menghitung Nilai Mahasiswa.
Sebelum membuat program tersebut kita buat terlebih dahulu flowchartnya, seperti gambar dibawah ini :

Ketentuan Penilaian :










Untuk coding programnya adalah seperti ini :

program Menentukan_Nilai_Mahasiswa;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var
  NilaiAngka:Real;
  NilaiHuruf:string[50];
  Procedure Input;

begin
Write('Masukan Nilai Angka : ');
readln(NilaiAngka);
end;
Procedure Proses;
begin
if(9<=NilaiAngka)and(NilaiAngka<10)then NilaiHuruf:='A'
else
if(8<=NilaiAngka)and(NilaiAngka<9)then NilaiHuruf:='B'
else
if(6<=NilaiAngka)and(nilaiAngka<8)then NilaiHuruf:='C'
else
if(5<=NilaiAngka)and(NilaiAngka<6)then NilaiHuruf:='D'
else
if(0<=NilaiAngka)and(NilaiAngka<5)then NilaiHuruf:='E'
else NilaiHuruf:='Nilai yang anda masukan salah';
end;
Procedure output;
begin
Writeln('Nilai Anda= ',NilaiHuruf);
end;
begin
input;
proses;
output;
readln;
end.

Dan ini hasilnya :

Diharuskan komputer/laptop anda sudah terinstal Aplikasi Borland Delphi 7.
Semoga bermanfaat , dibuat oleh Dwi Rahmadi

Follow @Rahmadi_Dwi