Hacker Cga

Rabu, 19 Oktober 2011

keuangan

Keseketariatan
a. Stempel Kegiatan : 80.000
b. Undangan & Proposal : 200.000
c. Honorium pemateri : 3.000.000
d. Kokat Panitia @ Rp. 5.000 x 16 : 80.000
e. Hand out @ 3.000 x 250 : 750.000
f. Sertifikat @ 2.500 x 250 : 625.000
g. Kertas HVS 2 Rem : 75.000

Konsumsi
a. Makan @ Rp. 5.000 x 250 : 125.000
b. Aqua 7 Kardus x @ 12.500 : 87.500
c. Konsumsi Pembicara : 250.000
d. Undangan VIP @ 15.000 x 30 : 450.000
e. Konsumsi Panitia 10.000 x 16 : 160.000

Akomodasi dan Perlengkapan
a. Transport Panitia : 250.000
b. Sewa tempat + Kursi : 750.000
c. Sewa sound system : 150.000
d. Komunikas/Pulsa Hand Phone : 150.000
e. Cindera mata @ Rp. 25.000 x 5 : 125.000
f. CD Master Linux @ 5.000 x 250 : 125.000
g. Transport Pesawat PP : 3.000.000

Duplikasi dan Dokumentasi
a. Pamflet 1.000 eksemplar x @ Rp. 1000 : 1.000.000
b. Banner @ Rp. 75.000 x 3 : 250.000
c. Batery Alkaline @ Rp. 10.000 x 2 : 20.000
d. Camera Digital : 100.000
e. Handy Cam : 150.000

Selasa, 18 Oktober 2011

looping in pascal

Perulangan Pascal :

1. User crt;
i=*
var
a, b : integer;
begin
for a:=1 to i do
begin
for b:=1 to a do
write (a);
writeln;
end;
end.

2. User crt;
i=*
var
a, b : integer;
begin
for a:=i downto 1 do
begin
for b:=a downto 1 do
write (a);
writeln;
end;
end.

3. User crt;
var
x, y, z:integer;
begin
clrscr;
writeln ('------------');
writeln ('program bingtang');
writeln ('------------');
writeln ('masukan tinggi :');
for y:=1 to x do
begin
for z:=1 to x-y do
begin
write ('------------');
end;
for z :=1 to y do
begin
write ('*');
end;
writeln ();
readln ();
end.

4. Uses crt;
var
i, j : integer;
begin
i:=1;
j:=1;
while i<=5 do
begin
j:=1;
while j<=i do
begin
write ('*')
j:=j+1
end;
i=i+1
writeln;
end;
end.

5. Uses crt;
Var
i,j : integer;
Begin
For i := 1 to 5 do
Begin For j := 1 to i do
Write(i);
Writeln;
End;
End.