Mungkin banyak yang uda paham m pascal saya cuma ingi share apa yang saya dapat waktu kuliah, ini merupakan praktek jaman semester 3. Jauh sekali dari harapan semester 3 baru dapat pascal sungguh ironis sekali. tapi tak apa yang penting terlambat dari pada tidak sama sekali. berikut ini scrip pascal pembuatan array, procedur dan function.
Program arr_pro_fun;
uses crt;
var
km,mt,wk:array[1..15] of string;
kw:array[1..15] of char;
b1,b2,tl: array [1..15] of longint;
nm,al:string[25];
tb:longint;
i,n:byte;
jwb:char;
procedure garis;
begin
writeln('-------------------------------------------------------');
end;
procedure input;
begin
tb:=0;
clrscr;
garis;
writeln(' LPK GLOBAL NETWORK');
garis;
writeln('| Kode | Materi Kursus | Biaya1 | KW | Waktu | Biaya2 |');
garis;
writeln('| MT01 | Visual Basic | 150.000| A | Pagi | 75.000|');
writeln('| MT02 | Visual Foxpro | 175.000| B | Sore | 100.000|');
writeln('| MT31 | Internet | 200.000|----------------------');
garis;
writeln;
write('Masukan Nama = ');readln(nm);
write('Masukan Alamat = ');readln(al);
write('Masukan Jumlah Kursus = ');readln(n);
garis;
for i:=1 to n do
begin
writeln('Materi Kursus Ke-',i);
writeln;
write('Masukan Kode Materi = ');readln(km[i]);
if (km[i]='MT01') or (km[i]='mt01') then
begin
mt[i]:='Visual Basic';
b1[i]:=150000;
end
else if (km[i]='MT02') or (km[i]='mt02') then
begin
mt[i]:='Visual Foxpro';
b1[i]:=175000;
end
else
begin
mt[i]:='Internet';
b1[i]:=200000;
end;
write('Masukan Kode Waktu = ');readln(kw[i]);
writeln;
if upcase(kw[i])='A' then
begin
wk[i]:='Pagi';
b2[i]:=75000;
end
else
begin
wk[i]:='Sore';
b2[i]:=100000;
end;
end;
end;
function hitung:longint;
begin
for i:=1 to n do
begin
tl[i]:=b1[i]+b2[i];
end;
end;
procedure output;
begin
clrscr;
writeln(' LPK GLOBAL NETWORK');
garis;
writeln('Nama = ',nm);
writeln('Alamat = ',al);
garis;
writeln('NO MATERI KURSUS WAKTU BIAYA1 BIAYA2 TOTAL');
garis;
for i:=1 to n do
begin
gotoxy(2,7+i);writeln(i);
gotoxy(4,7+i);writeln(mt[i]);
gotoxy(18,7+i);writeln(wk[i]);
gotoxy(24,7+i);writeln('Rp.',b1[i]);
gotoxy(35,7+i);writeln('Rp.',b2[i]);
gotoxy(46,7+i);writeln('Rp.',tl[i]);
tb:=tb+tl[i];
end;
garis;
writeln('Total bayar = ','Rp.':34,tb:4);
writeln;
end;
begin
input;
hitung;
output;
readln;
end.
