RamdhaniBlog: Listing Program Perhitungan Nilai Mahasiswa

Pada artike kali ini saya akan bahas bagaimana cara membuat program menggunakan array dan Function dengan bahasa pascal. Sebenarnya cih banyak contoh yang kita bisa implementasikan pada program ini akan tetapi sebagai contoh saya gunakan contoh yang paling sederhana pada sistem perhitungan nilai mahasiswa .

uses crt;
label
awal,akhir;
type
bb=longint;
bp=real;
function garis:string;
begin
garis:=('______________________________________________________________');
end;
function hitung (var tn:bp;abs,tgs,uts,uas:bb):bb;
begin
tn:=(abs*0.1)+(tgs*0.2)+(uts*0.3)+(uas*0.4);
end;

var
i,jml:byte;
nmk:string;
nm:array [1..10] of string;
tt:array [1..10] of bp;
a,t,ut,ua:array [1..10] of bb;
j:char;
begin
awal:

clrscr;
textcolor(3);gotoxy(25,2);writeln('Perhitungan Nilai Mahasiswa');
gotoxy(27,3);writeln('Bina Sarana Informatika');
writeln(garis);
write('Nama Mata Kuliah:');readln(nmk);
write('Masukan Jumlah data:');readln(jml);
for i:= 1 to jml do
begin
writeln('Data Mahasiswa ke-',i);
write('Nama Mahasiswa:');readln(nm[i]);
write('Nilai Absen :');readln(a[i]);
write('Nilai Tugas :');readln(t[i]);
write('Nilai UTS :');readln(ut[i]);
write('Nilai UAS :');readln(ua[i]);
hitung(tt[i],a[i],t[i],ut[i],ua[i]);
end;
clrscr;

textcolor(5);gotoxy (23,2);writeln('Hasil Perhtungan Nilai Mahasiswa');
writeln(garis);
gotoxy(28,3);writeln('Nama Mata Kuliah');
writeln(garis);
textcolor(7);writeln('No Nama Mahasiswa N.Absen N.Tugas N.UTS N.UAS Total Nilai');
writeln(garis);
for i:= 1 to jml do
writeln(i:1,nm[i]:12,a[i]:12,t[i]:12,ut[i]:10,ua[i]:10,tt[i]:10:2);
writeln(garis);
write('Masukan data lagi:');textbackground(3);readln(j);
if j='Y' then
goto awal
else
goto akhir;
akhir:
readln;
end.

Rancangan Input