Sekarang saya akan mencoba flash back kembali mata kuliah algoritma dgn memposting beberapa bahasa pemograman pascal... kali aja ni program bisa memudahkan & membantu anda dalam memahami pascal...
Program Stok Barang
uses crt;
var nama,bp: string[20];
kode,harga : array [1..100] of string[20];
barang : array [1..100] of string;
keluar : boolean;
lagi : char;
n,i: integer;
begin
clrscr;
write('Nama anda : '); readln(nama);
write('No BP : '); readln(bp);
writeln;
n:=0;
i:=1;
keluar := false;
while keluar=false do
begin
write('Nama barang : '); readln(barang[i]);
write('Kode barang : '); readln(kode[i]);
write('Harga barang : '); readln(harga[i]);
n:=n+1;
i:=i+1;
write('Ada lagi: '); readln(lagi);
if (lagi='y') or (lagi='Y') then keluar:=
false
else keluar:= true;
end;
clrscr;
writeln;
i :=0;
while i<n do
begin
writeln(i+1, ' ' ,barang[i+1]);
writeln('
', kode[i+1]);
writeln('
', harga[i+1]);
writeln;
i:=i+1;
end;
readln;
end.
Pascal running
