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 }