Kabar Terbaru

Contoh Program Sederhana Pascal - Nilai Mahasiswa/i & Rank (Function IF & Goto Label)
Nilai Mahasiswa/i & Rank (Function IF & Goto Label)
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)
> 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;



var

Nama,Rank:string;

NPM:string[12];

Pilih,nT,nUT,nUA,Tn:integer;





Label Menu,Main,Keluar;

begin

Menu:

clrscr;

WriteLn('================ APLIKASI NILAI MAHASISWA/I ================');

WriteLn('> 1. Jalankan Program <');

WriteLn('> 2. Keluar Program <');

WriteLn('============================================================');

Write ('> Masukan Pilihan : '); ReadLn(Pilih);

if Pilih=1 then

begin

goto Main;

end

else

begin

goto Keluar;

end;

Main:

WriteLn('++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');

Write ('|| Masukan NPM Anda : '); ReadLn(NPM);

Write ('|| Masukan Nama Lengkap Anda : '); ReadLn(Nama);

WriteLn('############################################################');

WriteLn('> Hallo , ' , 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<=44 then

begin

Rank:='E';

end

else

if Tn<=55 then

begin

Rank:='D';

end

else

if Tn<=61 then

begin

Rank:='C';

end

else

if Tn<=67 then

begin

Rank:='C+';

end

else

if Tn<=71 then

begin

Rank:='B-';

end

else

if Tn<=75 then

begin

Rank:='B';

end;

if Tn<=79 then

begin

Rank:='B+';

end

else

if Tn<=89 then

begin

Rank:='A-';

end

else

if Tn<=100 then

begin

Rank:='A';

end;

WriteLn('============================================================');

WriteLn('|| >>>>>>>>>>>>> INFORMATION <<<<<<<<<<<<< ||');

WriteLn('||++++++++++++++++++++++++++++++++++++++++++++++++++++++++||');

WriteLn('||===> Total Nilai Anda Adalah : ' , Tn , ' ( ' , Rank , ' )' );

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 to receive free email updates: