Jawaban Kuis Bahasa Pemrograman

1.      Sejarah 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 Bahasa

•   Bagian Judul Program

•   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 Program Utama Perintah-perintah atau Pernyataan.

2.      Type Data dan Rangenya

 

2.      Membuat Biodata

Program biodata;

uses crt;

begin

clrscr;

textcolor(5);

writeln('===================================================');

writeln('=                      BIODATA                    =');

writeln('=                 M. Chabib Setiawan              =');

writeln('===================================================');

writeln;

writeln('Nama                 = Mohammad Chabib Setiawan');

writeln('Tempat,tanggal lahir = Jombang, 30 Januari 1991');

writeln('Alamat               = Jl. Brantas No.18 Jombang');

writeln('Status               = Single');

writeln('Agama                = Islam');

writeln('Email                = mxsetiawan@gmail.com');

writeln('Sekolah              = Perguruan Tinggi ASIA Malang');

writeln;

writeln('===================================================');

readln;

end.

Tampilan

2.      Unsur – unsur Pemrograman

a.       Mendapatkan data dengan membaca data dari default input (key board, file atau sumber data lainnya).

b.      Menyimpan data ke dalam memori dengan struktur data yang sesuai.

c.       Memproses data dengan instruksi yang tepat.

d.      Menyajikan atau mengirimkan hasil olahan data ke default output (monitor, file.

5.      Menu Utama

Program Menu_Utama;

uses crt;

var

phi,r,p,l,al,t,s1,s2,s3,LL,KL,LP,KP,LS,KS:real;

pil:byte;

begin

clrscr;

textcolor(14);

phi:=22/7;

writeln('##>=========================================<##');

writeln('##>               Menu Utama                <##');

writeln('##>    Program Hitung Luas dan Keliling     <##');

writeln('##>             Persegi Panjang             <##');

writeln('##>=========================================<##');

writeln('##                                           ##');

writeln('=> 1. Luas dan Keliling Lingkaran');

writeln('=> 2. Luas dan Keliling Persegi Panjang');

writeln('=> 3. Luas dan Keliling Segitiga');

writeln('=> 4. Keluar');

writeln('##>=========================================<##');

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

Case pil of

1 :begin

clrscr;

writeln('##>=========================================<##');

writeln('##>         Program Perhitungan             <##');

writeln('##>      Luas dan Keliling Lingkaran        <##');

writeln('##>=========================================<##');

write('=> Masukkan Jari - Jari = ');readln(r);

writeln('##>=========================================<##');

LL:=phi*r*r;

KL:=2*phi*r;

writeln;

writeln('##>=========================================<##');

writeln('=> Luas Lingkaran     = ',LL:3:0);

writeln('=> Keliling Lingkaran = ',KL:3:0);

writeln('##>=========================================<##');

end;

2 :begin

clrscr;

writeln('##>=========================================<##');

writeln('##>         Program Perhitungan             <##');

writeln('##>      Luas dan Keliling Persegi Panjang        <##');

writeln('##>=========================================<##');

write('=> Masukkan Panjang = ');readln(p);

write('=> Masukkan Lebar = ');readln(l);

writeln('##>=========================================<##');

LP:=p*l;

KP:=2*(p+l);

writeln;

writeln('##>=========================================<##');

writeln('=> Luas Persegi Panjang     = ',LP:3:0);

writeln('=> Keliling Luas Persegi Panjang = ',KP:3:0);

writeln('##>=========================================<##');

end;

3 :begin

clrscr;

writeln('##>=========================================<##');

writeln('##>         Program Perhitungan             <##');

writeln('##>      Luas dan Keliling Segitiga        <##');

writeln('##>=========================================<##');

write('=> Masukkan Alas = ');readln(al);

write('=> Masukkan Tinggi = ');readln(t);

write('=> Masukkan s1 = ');readln(s1);

write('=> Masukkan s2 = ');readln(s2);

write('=> Masukkan s3 = ');readln(s3);

writeln('##>=========================================<##');

LS:=1/2*al*t;

KS:=s1+s2+s3;

writeln;

writeln('##>=========================================<##');

writeln('=> Luas Segitiga     = ',LS:3:0);

writeln('=> Keliling Segitiga = ',KS:3:0);

writeln('##>=========================================<##');

end;

4 :begin

clrscr;

writeln('##>=========================================<##');

writeln('                 Terima Kasih ');

writeln('##>=========================================<##');

end;

else

writeln('Masukkan 1-4');

end;

readln;

end.

 Tampilan

6.      Looping

Looping adalah pengalihan arus diagram alur kembali keatas sehingga beberapa arus berulangkembali beberapa kali.

 contoh :