DAFTAR KOMPONEN MENGGUNAKAN PASCAL

LISTING PROGRAM :

uses wincrt;

var pilihan1:string;

var a,b,c,d,e:real;

k1 : real;

var f,g,h,i,j:real;

k2 : real;

procedure komponen1(Ic,resistor,capasitor,transistor,led:real;

var k1:real);

begin

Ic := 5000; resistor := 200; capasitor:= 2000; transistor := 1500; led := 1000;

k1 := (Ic + resistor + capasitor + transistor + led) * 5;

end;

procedure komponen2(Ic,resistor,capasitor,transistor,led:real;

var k2:real);

begin

Ic := 5000; resistor := 200; capasitor:= 2000; transistor := 1500; led := 1000;

k2 := (Ic + resistor + capasitor + transistor + led) * 10;

end;

begin

writeln('-------paket pembelian-----------------------');

writeln('[1] Paket 1');

writeln('[2] Paket 2');

writeln('---------------------------------------------');

writeln('Pilih 1/2 : '); readln(pilihan1);

writeln;

if (pilihan1 = '1') then

begin

 writeln('Paket 1');

 writeln('============================================');

 writeln('komponen             | Harga    | total    |');

 writeln('============================================');

 writeln('Ic 7805              | 5000 x 5 | 25000    |');

 writeln('Resistor 220 ohm     | 200  x 5 | 1000     |');

 writeln('Capasitor 2,2nf /16v | 2000 x 5 | 10000    |');

 writeln('Transistor k2234     | 1500 x 5 | 7500     |');

 writeln('Led biru             | 1000 x 5 | 5000     |');

 writeln('============================================');

 readln;

 komponen1(a,b,c,d,e,k1);

 write('Total semua adalah : ',k1:2:2);

 readln;

 end

else

if (pilihan1 = '2') then

begin

 writeln('Paket 2');

 writeln('============================================');

 writeln('komponen             | Harga    | total    |');

 writeln('============================================');

 writeln('Ic 7805              | 5000 x 10 | 50000   |');

 writeln('Resistor 220 ohm     | 200  x 10 | 2000    |');

 writeln('Capasitor 2,2nf /16v | 2000 x 10 | 20000   |');

 writeln('Transistor k2234     | 1500 x 10 | 15000   |');

 writeln('Led biru             | 1000 x 10 | 10000   |');

 writeln('============================================');

 readln;

 komponen2(f,g,h,i,j,k2);

 write('Total semua adalah adalah : ',k2:2:2);

 readln;

 end

else

begin

writeln('salah input');

end;

readln;

end.


OUTPUT PROGRAM :

FLOWCHART PROGRAM :