Gallery Blog




















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