ex turbo pascal 2
PROGRAM BUS_MALAM;
USES CRT;
VAR
N,I:BYTE;
NAMA:ARRAY[1..20] OF STRING;
JUMLAH,TOTAL:ARRAY[1..20]OF LONGINT;
TP:LONGINT;
BEGIN
CLRSCR;
WRITE(‘MASUKKAN JUMLAH PENUMPANG : ‘);READLN(N);
FOR I:=1 TO N DO
BEGIN
CLRSCR;
WRITELN(‘AGEN BUS MALAM “SUMBER ALAM”‘);
WRITELN;
WRITELN(‘DATA KE-’,I);
WRITE (‘NAMA PENUMPANG :’);READLN(NAMA[I]);
WRITE (‘JUMLAH BELI :’);READLN(JUMLAH[I]);
TOTAL[I]:=JUMLAH[I]*25000
END;
CLRSCR;
WRITELN(‘DATA PENJUALAN TIKET’);
WRITELN(‘AGEN BUS MALAM “SUMBER ALAM”‘);
WRITELN(‘——————————————————’);
WRITELN(‘NO. NAMA PENUMPANG JUMLAH BELI JUMLAH PEMBAYARAN’);
WRITELN(‘——————————————————’);
FOR I:= 1 TO N DO
WRITELN(I:2,NAMA[I]:16,JUMLAH[I]:15,’Rp.’,TOTAL[I]:12);
WRITELN;
WRITELN(‘——————————————————’);
FOR I:=1 TO N DO
TP:=TP+TOTAL[I];
WRITELN(‘TOTAL PEMBAYARAN Rp. ‘,TP:10);
WRITELN;
WRITELN(‘——————————————————’);
READLN;
END.
ex turbo pascal
program Uts;
uses crt;
var
total:real;
n,i:byte;
np,jenis:array[1..10]of string;
kd:array[1..10]of char;
jumbel:array[1..10]of integer;
harga,pot,jml_byr,hrg_bersih:array[1..10]of real;
begin
clrscr;
writeln(‘ BARANG ELEKTRONIK’);
writeln(‘—————————–’);
writeln;
write(‘Input Jumlah Data:’);readln(n);
for i:=1 to n do
begin
writeln(‘Data Ke-’,i);
write(‘nama pembeli:’);readln(np[i]);
write(‘kode[A/B/C/D/E]:’);readln(kd[i]);
write(‘Jumlah beli:’);readln(jumbel[i]);
writeln;
case kd[i] of
‘A’,'a’:begin
Jenis[i]:=’Komputer’;
Harga[i]:=3000000;
end;
‘B’,'b’:begin
Jenis[i]:=’TV’;
Harga[i]:=1500000;
end;
‘C’,'c’:begin
Jenis[i]:=’Mesin Cuci’;
harga[i]:=1000000;
end;
‘D’,'d’:begin
Jenis[i]:=’Radio’;
harga[i]:=800000;
end;
‘E’,'e’:begin
Jenis[i]:=’Mesin Tik’;
Harga[i]:=1300000;
end;
end;
jml_byr[i]:=jumbel[i]*harga[i];
if jumbel[i]>15 then
pot[i]:=0.1*jml_byr[i]
else
if jumbel[i]>10 then
pot[i]:=0.05*jml_byr[i]
else
pot[i]:=0.03*jml_byr[i];
hrg_bersih[i]:=jml_byr[i]-pot[i];
end;
writeln(‘—————————————————-’);
writeln(‘No Nama Jenis Barang Harga Potongan Harga Bersih’);
writeln(‘—————————————————-’);
for i:= 1 to n do
begin
writeln(i:2,np[i]:5,jenis[i]:13,harga[i]:15:0,pot[i]:13:0,hrg_bersih[i]:20:0);
end;
writeln(‘—————————————————-’);
for i:=1 to n do
begin
total:=total+hrg_bersih[i];
end;
writeln(‘total Pendapatan:’,total:0:0);
readln;
end.