Latihan Pembuatan Array,procedure dan function menggunakan Pascal Part 3

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.

Posted in: Belajar Array,Belajar Function,Belajar Pascal,Belajar Procedure