My world

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

DERET FIBONACCI Membuat sebuah larik dengan kapasitas 100 ruang data yang bertipe data integer. Isilah nilai larik pada index ke-1 dan index ke-2 dengan bilangan 1. Larik ini akan mengisi index ke-3 dan seterusnya berdasarkan penjumlahan pada dua buah bilangan sebelumnya, sehingga menjadi sebuah deret yang dinamakan dengan deret Fibonacci. Kemudian menampilkan deret tersebut. Berikut Source Code menggunakan Turbo Pascal. Program Fibonaci; uses crt; type larik = array [1..100] of integer; var deret : larik;     n, a : integer; begin      clrscr;      write('Masukkan jumlah deret : '); readln(n);      writeln;      for a:=0 to n-1 do      begin           if (a=0) or (a=1) then              begin       ...

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

REKURSI Rekursi adalah suatu proses berupa pemanggilan dirinya sendiri berupa statement perulangan. Proses rekursif juga memungkinkan terjadinya komputasi yang tidak bekesudahan sampai memori yang digunakan tidak dapat menampung lagi, sehingga perlu diperhatikan akan akan adanya kondisi untuk menghentiksn proses eksekusi program. Sebagai contoh sederhana dari proses rekursif yaitu proses menghitung nilai faktorial dari bilangan bulat positif, dan mencari deret fibonacci dari suatu bilangan bulat, dan sebagainya. Contoh Permasalahan : Menghitung nilai faktorial. 1.       Mendefinisikan Masalah Bagaimana cara menghitung nilai faktorial. Dalam matematika, faktorial dari bilangan asli n adalah hasil perkalian antara bilangan bulat positif yang kurang dari atau sama dengan n. Faktorial ditulis sebagai n! Dan disebut n faktorial.secara umum dapat dituliskan dengan rumus n! = n . (n-1) . (n-2) . (n-3) . ...  Untuk menghitung nilai faktori...

👟🎓 Mahasiswa, Bukan Lagi Anak SMA … Dunia mahasiswa tidak sama dengan dunia SMA. Kebebasan dalam atmosfer mahasiswa lebih besar dan lebih kuat daripada kebebasan yang ada di masa SMA. Bebas bukan saja dalam hal seragam atau upacara, tetapi lebih daripada itu bebas menentukan prioritas dan jadwal kegiatan sehari-hari untuk dirinya. Salah satu tanda bahwa seseorang mahasiswa mulai menapaki jalan hidupnya yang ‘baru’ adalah ketika dia memilih dengan orang seperti apa dia berteman dan mengambil nasihat dan arahan. Bisa jadi seorang pemuda yang di kala SMA rajin ikut kegiatan rohis kemudian berubah drastis setelah mencium aroma kebebasan yang ada di atmosfer perkuliahan. Shalat berjamaah di masjid pun mulai dia tinggalkan. Menghadiri pengajian pun seolah menjadi beban dan momok dalam aktifitas keseharian. Al-Qur’an pun ditinggalkan, tidak dibaca atau direnungkan. Di sisi lain, ada juga anak-anak muda yang kembali menemukan taman-taman surga di majelis ilmu agama. Mereka me...

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