Contoh Program Sederhana - Nilai ,Grade , Dan Kelulusan Mahasiswa (Function IF , UpperCase , Label)

Contoh Program Sederhana - Nilai ,Grade , Dan Kelulusan Mahasiswa (Function IF , UpperCase , Label)
Nilai , Grade , Dan Kelulusan - Program Pascal
Penjelasan Sederhana :

  • Nilai_Mahasiswa , Ini Adalah Judul Program
  • var , ini adalah tempat dimana jika kita ingin menuliskan suatu variable fungsi
  • Label , ini adalah suatu fungsi yang digunakan untuk memanggil suatu badan program / Goto (nama badan program)
  • Sysutils , Digunakan untuk menggunakan fungsi ANSI (UpperCase , LowerCase)
  • Crt , Digunakan Untuk pengaturan layar dalam pengetikan program pascal 80 - 25 Baris
  • ClrScr , ini digunakan untuk membersihan layar tampilan form aplikasi
  • Goto , ini adalah suatu statmen dimana kita dapat memanggil badan program


Jika Ada Pertanyaan atau kurang dimengerti , silakan ajukan pertanyaan ke akun instagram saya @RonnyLiem.ID

Berikut Adalah Scriptnya :


program Nilai_Mahasiswa;
uses Crt,sysutils;

var
Nama,Rank,Status:string;
NPM:string[12];
Pilih,nT,nUT,nUA:integer;
Tn:LongInt;


Label Menu,Mulai,Penjumlahan,Pengurangan,Perkalian,Pembagian,SBagi,Pangkat,Keluar;

begin
Menu:
clrscr;
WriteLn('================ APLIKASI NILAI MAHASISWA/I ================');
WriteLn('> 1. Jalankan Program                                      <');
WriteLn('> 2. Keluar                                                <');
WriteLn('============================================================');
Write ('> Masukan Pilihan : '); ReadLn(Pilih);
if Pilih=1 then
begin
goto Mulai;
end
else
begin
goto Keluar;
end;

Mulai:
WriteLn('++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
Write ('|| Masukan NPM Anda : '); ReadLn(NPM);
Write ('|| Masukan Nama Lengkap Anda : '); ReadLn(Nama);
WriteLn('############################################################');
WriteLn('> Hallo , ' , (Uppercase(Nama)), ' ( ' , NPM , ' ) ');
WriteLn;
WriteLn('>>>>>>>>>>>>>>! Silakan Masukan Data Anda !<<<<<<<<<<<<<<<<');
Write ('|| Masukan Nilai Tugas Anda : '); ReadLn(nT);
Write ('|| Masukan Nilai UTS Anda : '); ReadLn(nUT);
Write ('|| Masukan Nilai UAS Anda : '); ReadLn(nUA);
nT:= nT * 20 Div 100;
nUT:= nUT * 50 Div 100;
nUA:= nUA * 30 Div 100;
Tn:= nT + nUT + nUA;
if (Tn>=90) and (Tn<=100) then
begin
Rank:='A';
Status:='Lulus';
end
else
if (Tn>=80) and (Tn<=89) then
begin
Rank:='A-';
Status:='Lulus';
end
else
if (Tn>=76) and (Tn<=79) then
begin
Rank:='B+';
Status:='Lulus';
end
else
if (Tn>=72) and (Tn<=75) then
begin
Rank:='B';
Status:='Lulus';
end
else
if (Tn>=68) and (Tn<=71) then
begin
Rank:='B-';
Status:='Lulus';
end
else
if (Tn>=62) and (Tn<=67) then
begin
Rank:='C+';
Status:='Lulus';
end
else
if (Tn>=56) and (Tn<=61) then
begin
Rank:='C';
Status:='Lulus';
end
else
if (Tn>=45) and (Tn<=55) then
begin
Rank:='D';
Status:='Tidak Lulus';
end
else
if (Tn>=0) and (Tn<=44) then
begin
Rank:='E';
Status:='Tidak Lulus';
end
else
begin
Rank:='Nilai Tidak Valid';
end;

WriteLn('============================================================');
WriteLn('|| >>>>>>>>>>>>>>>>>>>>> INFORMATION <<<<<<<<<<<<<<<<<<<< ||');
WriteLn('||++++++++++++++++++++++++++++++++++++++++++++++++++++++++||');
WriteLn('||===> ', (UpperCase(Nama)) , ' Dengan Hasil Berikut ... ');
WriteLn('||===> Total Nilai Anda Adalah : ' , Tn , ' ( ' , Rank , ' )' );
WriteLn('===================== ' , Status ,'  =========================');
ReadLn;
goto Menu;

Keluar:
WriteLn('>>>>>>>>>>>>> Thanks You For Using My Program <<<<<<<<<<<<<<');
WriteLn(' By : Ronny Liem ');
WriteLn('============================================================');
WriteLn(' Press Any Keys For Exit .... ');
ReadLn;
end.

Subscribe Untuk Mendapatkan Info Terbaru Dari Kami Lewat Email:

Tidak Ada Tanggapan Untuk "Contoh Program Sederhana - Nilai ,Grade , Dan Kelulusan Mahasiswa (Function IF , UpperCase , Label)"

Post a Comment