18 Juni 2011

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.

1 komentar:

gan,, makasih referensinya buat tugas kuliah
ane terbantu
kunjungan baliknya dong hehe
http://roisyahya.blogspot.com/

Poskan Komentar

Silahkan TInggalkan Komentar Anda di Blog Saya..
No SPAM and No PORN...
Terimakasih Telah meninggalkan Jejak Anda

Related Posts Plugin for WordPress, Blogger...
Award Pertama
Photobucket
Langganan Artikel Si Boersan :

Enter your email address:

Delivered by FeedBurner

Monggo Di Copy Linknya :
Text Link

Banner Link

Komunitas Blogger Indonesia Komunitas Blogwalking