Contoh
Rumus Pascal Sederhana
03 Nov 2010 Tinggalkan Sebuah Komentar
by bellahendra in Info Kaitkata:Contoh Rumus Pascal Sederhana, rumus,
rumus menggunakan turbo pascal, rumus program sederhana, rumus sederhana
Program Tugas_Hendra;
uses wincrt;
var
Nama, NRP, Jurusan:string[40];
UTS,UAS,TGS:integer;
NA:real;
const
X=0.3;
Y=0.2;
Z=0.5;
begin
clrscr;
write(‘Nama : ‘);readln(Nama);
write(‘NRP
: ‘);readln(NRP);
write(‘Jurusan
:’);readln(Jurusan);
writeln(‘############################################’);
write(‘tugas
: ‘);readln(TGS);
NA:=(X*TGS)+(Y*UTS)+(Z*UAS);
writeln(‘Nilai
Akhir : ‘,NA:0:0);
writeln(‘############################################’);
writeln(‘___________SELASAI___________’);
write(‘by :
Hendra’);
readln;
end.
