Pneumatic Marble Rifle

Beberapa minggu yang lalu, sekolahku diliburkan. nah, daripada nganggur, aku coba-coba bikin mainan sendiri. nah, jadilah senapan mainan ini. bahannya cuma pipa sama botol pepsi 1,5 liter. pipanya pake pipa ukuran 1/2 inci. total biayanya 49.000 belum termasuk pepsinya. untuk pembuatannya aku pake 4 sambungan pipa T, 1 sambungan pipa L, 1 dop, 2 sambungan pipa buka-tutup, dan 2 meter pipa. nah, ini dia hasilnya

 inti cara kerjanya mirip senapan angin. jadi udara dipompa ke dalem lewat lubang yang takbuat di bagian belakang, abis itu tutup semua krannya. masukin pelurunya, arahkan, buka kran bagian depan, keluar deh pelurunya.. walau keliatan kayak mainan anak kecil, senapan ini bener-bener bisa nembak lho..

Gambar yang di atas ini ruang kompresinya, karena males bikin ruang kompresi dari pipa, aku pake botol pepsi. kenapa botol pepsi? alasannya ada 2 :

                                 1. botol pepsi tahan tekanan udara tinggi

                                 2. pepsi lebih enak dari coca cola

kalo mau bikin ruang kompresi dari botol kayak punyaku, jangan lupa pake botol minuman berkarbonasi, soalnya kalo pake botol selain botol minuman berkarbonasi, waktu dipompa bisa meledak. satu lagi yang nggak boleh sampe lupa. jangan sampe bocor. saranku, ngelemnya pake lem G aja. itu lho..lem yang labelnya warnanya kuning-putih sama tulisannya pake huruf cina semua.

Nah, kalo buat pelurunya, aku pake kelereng yang dibungkus kertas. kenapa harus dibungkus kertas? supaya ngepas di pipanya. kalo ada celah antara pipa sama kelereng, udaranya bakal cuma lewat, ga akan ndorong kelerengnya.
Pokoknya intinya itu. kalo ada kritik dan saran, saya terima dengan senang hati. kalo ada yang menganggap saya jenius, itu sudah biasa...

Program Kecocokan Jodoh ver.1

Program Ramalan_Jodoh;

uses wincrt;

label balik;

var

tanggal : integer;
bulan : integer;
tahun : integer;
nama : char;
tanggal1 : integer;
bulan1 : integer;
tahun1 : integer;
nama1 : char;
begin

balik:

writeln('**Ini Adalah Ramalan Jodoh**');
Write('*Silahkan masukkan tanggal lahir anda* :');read(tanggal);
Write('*Silahkan masukkan bulan kelahiran anda[dalam angka]* :');read(bulan);
write('*Silahkan masukkan tahun kelagiran anda* :');read(tahun);
Write('*Silahkan masukkan nama panggilan anda* :');readln(nama);
writeln;
Write('*Silahkan masukkan tanggal lahir pasangan anda* :');read(tanggal1);
Write('*Silahkan masukkan bulan kelahiran pasangan anda[dalam angka]* :');read(bulan1);
write('*Silahkan masukkan tahun kelahiran pasangan anda* :');read(tahun1);
Write('*Silahkan masukkan nama panggilan pasangan anda* :');readln(nama1);
writeln;

if tanggal<tanggal1 then
writeln('**tingkat kecocokan anda** : 79%');

if tanggal>tanggal1 then
writeln('**tingkat kecocokan anda** : 67%');

if tanggal=tanggal1 then
writeln('**tingkat kecocokan anda** : 82%');

if tahun<tahun1 then
writeln('**alur hubungan anda** : lancar tanpa masalah');

if tahun>tahun1 then
writeln('**alur hubungan anda** : agak berliku dan bermasalah');

if tahun=tahun1 then
writeln('**alur hubungan anda** : lancar walau terkadang terhambat masalah');

if bulan<bulan1 then
writeln('**rejeki anda** : Lancar mengalir seperti iler');

if bulan>bulan1 then
writeln('**rejeki anda** : Sedikit seret seperti umbel');

if bulan=bulan1 then
writeln('**rejeki anda** : Lumayanlah, cukup untuk kebutuhan sehari-hari');


end.

Sebelumnya saya peringatkan, program ini tidak ada hubungannya dengan perhitungan kecocokan asli, hanya main2.......tapi nyatanya program ini sudah memakan banyak korban teman2 saya yang tidak berdosa..........

{Download program jadi : http://www.4shared.com/file/cXEPJCDe/ramalanj.html }
{Download program+code pascal : http://www.4shared.com/file/zvySHo-J/ramalanj.html }

Program Perhitungan Luas Bangun Datar ver.1

Program XxX;

uses wincrt;

label balik;

var
nomer_rumus : char;
tinggi : integer;
lebar : integer;
alas : integer;
jar : integer;
panjang : integer;
rusuk : integer;
luas : real;
volum : real;
pi : real;
keliling : real;
sisi : integer;
begin

balik:
writeln;
writeln('1.LUAS SEGITIGA');
writeln('2.LUAS LINGKARAN');
writeln('3.LUAS SEGI EMPAT');
write('masukkan nomer rumus (1-3): ');readln(nomer_rumus);
writeln;

case nomer_rumus of

'1':begin
    writeln('menghitung luas segitiga');
    writeln('.......................');
    write('Masukkan Tinggi:');read(tinggi);
    write('masukkan alas:');read(alas);
    writeln;

    luas:= 1 / 2 * alas * tinggi;

    writeln('HASIL');
    writeln('..............................');
    writeln('LUAS:',luas:2:2);

    end;

'2':begin

    pi:= 3.1415;

   writeln('Menghitung Luas Lingkaran');
   writeln('....................');
   write('Masukkan Jari-jari  : ');read(jar);
   writeln;

    luas:= pi * jar * jar;

    writeln('HASIL');
    writeln('...............');
    Writeln('LUAS:',luas:2:2);

    end;

'3':begin

    writeln('menghitung luas persegi panjang');
    writeln('...........................');
    write('masukkan panjang : ');read(panjang);
    write('masukkan lebar : ');read(lebar);
    writeln;

    luas:= panjang * lebar;

    writeln('HASIL');
    writeln('...................');
    Writeln('LUAS:',luas:2:2);


    end;

else

begin

writeln('MAAF INPUT SALAH');

end;

end;

goto balik;
writeln;
writeln;



end.

{download program jadi : http://www.4shared.com/file/y1vbsEdG/hitunglu.html }
{download program jadi+code pascal : http://www.4shared.com/file/l_PV7cFQ/hitunglu.html }