TURBOPASCAL (04jul09)

penting dan rahasia



uses crt;
var
kode, i, k, m : byte;
nama, identitas: string;
lagi: char;
kodebar, nambar: array[1..10] of string;
totbay, hargabar: array[1..10] of real;
bykbar, jumbar: array [1..10] of integer;

procedure input;
var
begin
writeln('Data Pelanggan');
writeln('-----');
write('Nama Pelanggan : ');
write('No Identitas : ');
end;

procedure barang
var
begin
write('Input Jumlah Barang : '); readln(jumbar[i]);
m := jumbar[i];
jumtotbay := 0;
totbay := 0;

for k := 1 to m do
begin
clrscr;
write('Input Jumlah Barang : ', m);
write('Kode Barang [',k,'] :'); readln(kodebar[k]);
write('Nama Barang [',k,'] :'); readln(nambar[k]);
write('Banyak Barang [',k,'] :'); readln(bykbar[k]);
write('Harga Barang: '); readln(hargabar[k]);
totbay[k] := bykbar[k] * hargabar[k];
end;
end;

procedure output;
begin
writeln('Daftar Pembelian Barang');
writeln(' Juni 2009 ');
writeln('---');
writeln(' No Kode_Barang Jumlah Harga Total_Bayar');
writeln(k, ' ',kodebar[k],' ',bykbar[k],' ',hargabar[k],' ',totbay[k]);
end;

begin
clrscr;
repeat
begin
clrscr;
input;
barang;
output;
write('masukan data lagi?'); readln(lagi);
end;
until(lagi='t') or (lagi='T');
if(lagi='Y') or (lagi='y') then input;
readln;
END.

TURBOPASCAL (04jul09)

penting dan rahasia




uses crt;
var
kode, i, k, m : byte;
nama, identitas: string;
lagi: char;
kodebar, nambar: array[1..10] of string;
totbay, hargabar: array[1..10] of real;
bykbar, jumbar: array [1..10] of integer;

procedure input;
var
begin
writeln('Data Pelanggan');
writeln('-----');
write('Nama Pelanggan : ');
write('No Identitas : ');
end;

procedure barang
var
begin
write('Input Jumlah Barang : '); readln(jumbar[i]);
m := jumbar[i];
jumtotbay := 0;
totbay := 0;

for k := 1 to m do
begin
clrscr;
write('Input Jumlah Barang : ', m);
write('Kode Barang [',k,'] :'); readln(kodebar[k]);
write('Nama Barang [',k,'] :'); readln(nambar[k]);
write('Banyak Barang [',k,'] :'); readln(bykbar[k]);
write('Harga Barang: '); readln(hargabar[k]);
totbay[k] := bykbar[k] * hargabar[k];
end;
end;

procedure output;
begin
writeln('Daftar Pembelian Barang');
writeln(' Juni 2009 ');
writeln('---');
writeln(' No Kode_Barang Jumlah Harga Total_Bayar');
writeln(k, ' ',kodebar[k],' ',bykbar[k],' ',hargabar[k],' ',totbay[k]);
end;

begin
clrscr;
repeat
begin
clrscr;
input;
barang;
output;
write('masukan data lagi?'); readln(lagi);
end;
until(lagi='t') or (lagi='T');
if(lagi='Y') or (lagi='y') then input;
readln;
END.

TURBOPASCAL (04jul09)

penting dan rahasia




uses crt;
var
kode, i, k, m : byte;
nama, identitas: string;
lagi: char;
kodebar, nambar: array[1..10] of string;
totbay, hargabar: array[1..10] of real;
bykbar, jumbar: array [1..10] of integer;

procedure input;
var
begin
writeln('Data Pelanggan');
writeln('-----');
write('Nama Pelanggan : ');
write('No Identitas : ');
end;

procedure barang
var
begin
write('Input Jumlah Barang : '); readln(jumbar[i]);
m := jumbar[i];
jumtotbay := 0;
totbay := 0;

for k := 1 to m do
begin
clrscr;
write('Input Jumlah Barang : ', m);
write('Kode Barang [',k,'] :'); readln(kodebar[k]);
write('Nama Barang [',k,'] :'); readln(nambar[k]);
write('Banyak Barang [',k,'] :'); readln(bykbar[k]);
write('Harga Barang: '); readln(hargabar[k]);
totbay[k] := bykbar[k] * hargabar[k];
end;
end;

procedure output;
begin
writeln('Daftar Pembelian Barang');
writeln(' Juni 2009 ');
writeln('---');
writeln(' No Kode_Barang Jumlah Harga Total_Bayar');
writeln(k, ' ',kodebar[k],' ',bykbar[k],' ',hargabar[k],' ',totbay[k]);
end;

begin
clrscr;
repeat
begin
clrscr;
input;
barang;
output;
write('masukan data lagi?'); readln(lagi);
end;
until(lagi='t') or (lagi='T');
if(lagi='Y') or (lagi='y') then input;
readln;
END.