Contoh Rumus Pascal Sederhana

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.