Program Ramalan pada Pascal

-
<<Program pascal : Ramalan>>


PROGRAM ramalan;
USES CRT;
VAR bln_anda, bln_pacar, nilai_ramal : byte;
    nama_anda, nama_pacar : string[30];
BEGIN
     CLRSCR;
     WRITE('Siapa nama anda? ');READLN(nama_anda);
     WRITE('Bulan ke berapa anda lahir? ');READLN(bln_anda);
     WRITE('Siapa nama pacar anda? ');READLN(nama_pacar);
     WRITE('Bulan ke berapa dia lahir? ');READLN(bln_pacar);
     nilai_ramal:=(bln_anda + bln_pacar) mod 13;
     CASE nilai_ramal OF
          0 : WRITELN('Anda berdua tidak cocok');
          1,3 : WRITELN('Anda berdua memang cocok');
          5..7 : WRITELN('Kalian berdua harus saling mengalah');
          2,4,8 : WRITELN('Cinta bukanlah segalanya. Berpikirlah logis!');
          9..12 : WRITELN('Masa depan lebih penting bagi kalian');
     END;
     READLN;
END.

Komentar

Posting Komentar

Postingan populer dari blog ini

Pemrograman 1 - Gaji (Menggunakan Statement Case Of)

-
Gambar
Program Gaji Source Code pada Turbo Pascal   PROGRAM GAJI; USES CRT; VAR gol:integer;     g_pokok,TJ,g_total :real; BEGIN      CLRSCR;      TEXTCOLOR(LIGHTGREEN+BLINK);WRITELN('Program Menghitung Gaji');      TEXTCOLOR(WHITE);WRITELN('-----------------------');      WRITE('Berapa golongan anda?  ');READLN(gol);      CASE gol OF           1: begin {golongan 1}              g_pokok:=100000;              TJ:=0.05*g_pokok;              g_total:=g_pokok+TJ;              end;           2: begin {golonga...
Baca selengkapnya

Matematika Terapan 1 - Matriks

-
Gambar
Tiga Metode Penyelesaian Matriks dan Motode Invers Untuk menyelesaian system persamaan linear dapat digunakan tiga cara, yaitu aturan Cramer,  eliminasi Gauss, dan metode eliminasi Gauss-Jordan beserta m etode Invers Matriks. Penggunaan aturan Cramer Contoh: Tentukan nilai i 1 , i 2 dan i 3 dari persamaan berikut ini.   i 1 +  i 2  +  i 3  =  0                     .................       (I) 2 i 1 +5 i 2 +3 i 3 =  1                    .................       (II) - i 1 +2 i 2 +   i 3  =  2                    .................       ...
Baca selengkapnya

Pemrograman 1 - Bunyi (Menggunakan Statement For To Do)

-
Gambar
PROGRAM BUNYI  PROGRAM TAMPIL_ASCIL; USES CRT; VAR HURUF:CHAR;     i:INTEGER; BEGIN      CLRSCR;      FOR i:=1 TO 10 DO      BEGIN        WRITE('Tulis sebuah huruf : ');        HURUF:=readkey;        WRITELN('Kok hurufnya tidak muncul?');        SOUND(300); DELAY(1000); NOSOUND;        SOUND(600); DELAY(1500); NOSOUND;        WRITELN;        WRITELN('Huruf yang anda masukkan adalah huruf ',HURUF);        WRITELN('No ASCII dari huruf di atas adalah ', ord(HURUF));      END;      READLN; END.
Baca selengkapnya