Wildhan outSIDer Jogja

Ini cuma salah satu program sederhana yg berisi array untuk memenuhi tugas Pemrograman Dasar.
so check this out..
kritik dan saran komen aja.

========================================================
uses wincrt;
type larik=array [1..20] of string;
     larik2=array [1..20] of longint;
var brg,alamat:larik;
    harga:larik2;
    i,n,posisi:byte;
    ketemu:boolean;
    cari:string;
    lagi:char;
    stop:string;
    total:longint;
    rata:real;
    max,min:longint;
label ulang;

begin
ulang:
begin
     writeln('----------------------------');
     writeln('TUGAS ALPRO II -- DATA ARRAY' );
     writeln('----------------------------');
     writeln('Jika ingin berhenti, masukkan "end" pada nama'); writeln('dan "0" pada harga. Tanpa tanda petik');
repeat
begin
     inc(n);
     writeln; write('Masukan nama brg ke ',n,' ===> ');
     readln(brg[n]);
     write('Masukkan harganya ===> '); readln(harga[n]); total := total + harga [n];
end
until (brg[n]='end') and (harga[n]=0);
dec(n);
clrscr;
writeln('TUGAS ALPRO II -- DATA ARRAY' );
writeln('  no        nama           harga');
writeln('------------------------------------');
for i:=1 to n do writeln(i:3,'   |   ', brg[i]:10,'   |  ', harga[i]:8);
writeln('------------------------------------');  


lagi :='y';;
write('mau mencari barang di dalam tabel? <y/t> ');readln(lagi);
while lagi='y' do
begin
writeln;
write('barang yang di cari? '); readln(cari);
ketemu:=false;
for i:=1 to n do
         if brg[i]=cari then
         begin ketemu:=true; posisi:=i; end;

writeln;
if ketemu then writeln(cari, ' ada dalam tabel pada posisi ke ', posisi) else
writeln ('Maaf ',cari,' tidak ada di dalam tabel');
writeln;write('Mau mencari nama yang lain? <y/t> ');readln(lagi);
end;


total := total;
rata:= total/n;
max:=harga [1]; min:= harga [1];
for i:=2 to n do
    begin
         if harga [i]>max then begin max:=harga [i];end;
         if harga [i]<min then begin min:=harga [i];end;
     end;                                                               
    writeln; writeln('Total harga dari ',n,' barang adalah ',total);
    writeln('Harga rata2 dari ',n,' barang adalah ', rata:4:2);
    writeln('Harga tertinggi adalah ',max);
     writeln('Harga terendah adalah ',min);

writeln; writeln;
write('Mau hentikan program atau teruskan input data? <henti/terus> '); readln(stop);

if stop='henti' then halt
else if stop='terus' then begin clrscr;goto ulang;end;
end;
end.
========================================================

Ya, sesuai judul.
Saya cuma mau upload tugas kuliah pemrograman dasar yang diampu Pak Afwan Anggara,S.Kom.
Sebetulnya tadi saya mau upload SS program ini jg, tp kgk sempet, ya sudahlah.. kapan-kapan aja ya.


Ini saya kasih link DL program + source codenya. Tapi y harap maklum, ini program cm sederhana, sederhana bgt. 
Program ini berisi 2 menu, yg pertama buat memberi nilai angka suatu IPK dan yg kedua buat menentukan kuadran dari suatu titik.


this is it....
buat DL dari 4shared klik disini.
buat DL dari ziddu klik disini.