Pemrograman Dasar: Jawaban Quiz

1. Sejarah pemrograma PASCAL
-Bahasa PASCAL pertama kali dikembangkan pada awal tahun 70-an oleh NICLAUS WIRTH di Technical University, Zurich - Swiss. -Nama PASCAL diambil dari nama seorang ahli Matematika bangsa Perancis, yaitu BLEISE PASCAL yang telah berjasa menemukan alat hitung mekanis pertama didunia pada abad ke-17

-Struktur Bahasanya:
1. Bagian Judul Program 2. Blok Program a. Bagian deklarasi - Deklarasi tipe data (TYPE) - Deklarasi variabel (VAR) - Deklarasi konstanta (CONST) - Deklarasi label (LABEL) - Deklarasi sub-program (PROCEDURE dan FUNCTION) b. Bagian ProgramUtama Perintah-perintah atau Pernyataan.

2.

program biodata;

uses crt;

begin clrscr;

textcolor(9);

writeln('-+-;+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-++');

writeln(' PROGRAM BIODATA');

writeln('-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-++');

writeln('Nama = Rino Dwi Priambodo');

writeln('Tempat/tgl lahir = Malang/3 Mei 1991');

writeln('Jenis Kelamin = Laki-laki');

writeln('Golongan darah = O');

writeln('Alamat = Jl. perumahan Asabri Bumiayu blok A.7 Malang');

writeln('Agama = Kristen Protestan');

writeln('Status = Belum Kawin');

writeln('-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-');

readln;

end.

4. Struktur keputusan
Struktur keputusan adalah struktur program yang melakukan proses pengujian untuk mengambil suatu keputusan apakah suatu baris atau blok instruksi akan diproses atau tidak. Pengujian kondisi ini dilakukan untuk memilih salah satu dari beberapa alternatif yang tersedia.

5.

Program menu;
uses crt;

var

r: integer;

pi,Kl: real;

pil,p,l:integer;

ls,kp,d:real;

sisi1,sisi2,sisi3:integer;

Ks:real;

begin

clrscr;

textcolor(12);

writeln('!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!^!');

writeln('! MENU UTAMA !');

writeln('^ PROGRAM HITUNG LUAS DAN KELILING ^');

writeln('! TERLENGKAP !! !');

writeln('($_$) (-_-) (@_@) (^_^)');

writeln;

writeln('1. Mengitung Keliling Lingkaran ');

writeln('2. Mengitung Keliling Persegi Panjang ');

writeln('3. Mengitung Keliling Segitiga ');

writeln('4. Keluar Program ');

writeln;

write('Pilihan Anda = ');readln(pil);

case pil of

1:begin

clrscr;

writeln('^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^');

writeln('^ ^');

writeln('^ Menu 1 ^');

writeln('^ Menghitung Keliling lingkaran ^');

writeln('^ ^');

writeln('^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^');

writeln;

writeln(' 1. Menghitung keliling lingkaran ');

pi:=22/7;

write('masukkan nilai r =');readln(r);

Kl:=2*p*r;

writeln('hasil keliling lingkaran =',Kl:3:2);

end;

2:begin

clrscr;

writeln('^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^');

writeln('^ ^');

writeln('^ Menu 2 ^');

writeln('^ Menghitung Keliling Persegi Panjang ^');

writeln('^ ^');

writeln('^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^');

writeln;

writeln(' 2. Menghitung Keliling Persegi Panjang');

write(' # Masukkan Lebar : ');readln(l);

write(' # Masukkan Panjang : ');readln(p);

kp:=2*(p+l);

writeln;

writeln(' Hasil Keliling Persegi Panjang = ',kp:3:2);

end;

3:begin

clrscr;

writeln('^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^');

writeln('^ ^');

writeln('^ Menu 3 ^');

writeln('^ Menghitung Keliling segitiga ^');

writeln('^ ^');

writeln('^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^');

writeln;

write('masukkan nilai sisi 1 = ');readln(sisi1);

write('masukkan nilai sisi 2 = ');readln(sisi2);

write('masukkan nilai sisi 3 = ');readln(sisi3);

Ks:=sisi1+sisi2+sisi3;

writeln('Hasil keliling Segitiga anda adalah = ',Ks:3:2);

end;

4:begin

clrscr;

writeln(' TERIMA KASIH TELAH MENGGUNAKAN PROGRAM KAMI');

end;

else

writeln(' Inputkan 1 - 4 saja');

end;

readln;

end.

readln;

end.