[DolpHo] Tugas Array Pulsa

Uses crt;

type
pulsa = record
tgl : string[20];
nohp : string[15];
produk : string[20];
jenis : string[20];
hrg : string[20];
hrgdasar : string[20];
dep : string[20];
nama : string[30];
ket : string[30];

end;
Var
fpulsadb,fpulsadb2 : text;
huruf : string[100];
p : array [1..5] of pulsa;
baris,kolom,i,j : integer;

BEGIN
clrscr;
huruf:='';
assign(fpulsadb,'PulsaFT.txt');
reset(fpulsadb);
assign(fpulsadb2,'PulsaFT2.txt');
reset(fpulsadb2);
for baris := 1 to 5 do
begin
readln(fpulsadb,huruf);
j:=length(huruf);
for kolom := 1 to 9 do
case kolom of
1 : begin
i:=1;
repeat
p.tgl[baris]:=p.tgl[baris]+huruf[i];
i:=i+1;
until huruf[i]=',';
end;
2 : begin i:=i+1;
repeat
p.nohp[baris]:=p.nohp[baris]+huruf[i];
i:=i+1;
until huruf[i]=',';
end;
3 : begin i:=i+1;
repeat
p.produk[baris]:=p.produk[baris]+huruf[i];
i:=i+1;
until huruf[i]=',';
end;
4 : begin i:=i+1;
repeat
p.jenis[baris]:=p.jenis[baris]+huruf[i];
i:=i+1;
until huruf[i]=',';
end;
5 : begin i:=i+1;
repeat
if i > 50 then
begin
readln(fpulsadb2,huruf);
i:=1;
end;
p.hrg[baris]:=p.hrg[baris]+huruf[i];
i:=i+1;
until huruf[i]=',';
end;
6 : begin i:=i+1;
repeat
if i > 50 then
begin
readln(fpulsadb2,huruf);
i:=1;
end;
p.hrgdasar[baris]:=p.hrgdasar[baris]+huruf[i];
i:=i+1;
until huruf[i]=',';
end;
7 : begin i:=i+1;
repeat
if i > 50 then
begin
readln(fpulsadb2,huruf);
i:=1;
end;
p.dep[baris]:=p.dep[baris]+huruf[i];
i:=i+1;
until huruf[i]=',';
end;
8 : begin i:=i+1;
repeat
if i > 50 then
begin
readln(fpulsadb2,huruf);
i:=1;
end;
p.nama[baris]:=p.nama[baris]+huruf[i];
i:=i+1;
until huruf[i]=',';
end;
9 : begin i:=i+1;
repeat
if i > 50 then
begin
huruf:='';
readln(fpulsadb2,huruf);
i:=1;
end;
p.ket[baris]:=p.ket[baris]+huruf[i];
i:=i+1;
until huruf[i]=',';
end;

end;

if seekeof(fpulsadb) then break;
end;
for i := 1 to 5 do
begin
writeln('Tanggal : ',p.tgl[i]);
writeln('Nomor HP : ',p.nohp[i]);
writeln('Produk : ',p.produk[i]);
writeln('Jenis Voucher : ',p.jenis[i]);
writeln('Harga Jual : ',p.hrg[i]);
writeln('Harga Dasar : ',p.hrgdasar[i]);
writeln('Sisa Deposit/Stock: ',p.dep[i]);
writeln('Nama : ',p.nama[i]);
writeln('Keterangan : ',p.ket[i]);
writeln('');
end;
close(fpulsadb);
close(fpulsadb2);
readln;
END.