My world

<<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 : WRIT...

Ayoo Belajar!!  😊👾 ⇋ Permasalahan 3 : Menandai Bilangan Genap Atau Bilagan Ganjil 1. Mendefinisikan masalah Bagaimana menandai bilangan genap atau bilangan ganjil? Bilangan genap merupakan kumpulan bilangan bulat positif yang habis jika dibagi dua. Sedangkan bilangan ganjil merupakan bilangan bulat positif yang jika dibagi dua maka akan menyisakan hasil yaitu satu. Untuk mencarinya, pertama-tama kita harus menentukan nilai yang diinput. Kemudian kita harus menetukan rumus yang akan digunakan. Dan selanjutnya yaitu menentukan cara menampilkan output berupa menandai bilangan genap atau ganjil. 2. Menentukan solusi Cara membuat program untuk menandai bilangan genap atau ganjil sebagai berikut :    1. Tentukan input nilai, yaitu berupa  bilangan bulat positif.    2. Menentukan rumus untuk menampilkan suatu bilangan genap atau ganjil, rumusnya yaitu: if a mod 2 = 0 then write('Bilangan Genap') else write('Bilangan Ganjil'); a=merupakan i...