ALGORITMA PEMROGRAMAN TEGAL 16 DESEMBER 2011 Khairul Fahmi

ALGORITMA & PEMROGRAMAN TEGAL, 16 DESEMBER 2011 Khairul Fahmi fahmikhairul@gmail. com

CONTOH PROGRAM 1. Membuat Program Menghitung Luas Persegi Panjang Program Luas. Persegi. Panjang; Var panjang, lebar, luas : integer; Begin write(‘Masukkan panjang = ‘); readln(panjang); write(‘Masukkan lebar = ‘); readln(lebar); luas : = panjang * lebar; Writeln(‘Luas Persegi Panjang = ‘, luas); End.

CONTOH PROGRAM 2. Membuat Program Untuk Menampilkan Kode Pos Dengan Menyebutkan Nama Kota. Padang : 25000 Bandung : 40100 Solo : 51000 Denpasar : 72000 Palu : 92300

CONTOH PROGRAM Program Kode. Pos Var kode: integer; kota : string; Begin write(‘Masukkan kota = ‘); readln(kota); if kota = ‘Padang’ then begin kode: = 25000; end else if kota = ‘Bandung’ then begin kode : =40100; end else if kota = ‘Solo’ then begin kode: = 51000; end else if kota = ‘Denpasar’ then begin kode: = 72000 end else if kota = ‘Palu’ then begin kode : = 92300; end; Write( ‘Kode Pos =‘, kode); End.

CONTOH PROGRAM Program Bil_genap_ganjil Var bil : integer; I : integer; Begin for I : = 0 to 10 do begin Write(‘Ketikkan bilangan sembarang’); Readln(bil); if bil mod 2 =0 then begin Write(‘Bilangan genap’); end else begin Write(‘Bilangan ganjil’); end; readln; end; End.

LATIHAN Buatlah Program Konversi Dari Jam Ke Detik. 2. Buatlah Program Konversi Dari Celcius Ke Fahrenheit dan Reamur. Fahrenheit = (Celcius x 1, 8) + 32 Reamur = Celcius x 0, 8 3. Buatlah Program Menampilkan lagu Anak Ayam Menggunakan Pengulangan. 4. Gabungkanlah Ke 3 Program Diatas Menjadi Satu Program Dengan Menggunakan Pemilihan. 1.

Terima Kasih Khairul Fahmi fahmikhairul@gmail. com 085718295334