Quiss Pemagraman Dasar

1. Terangkan sejarah bahasa pemrograman pascal ! dan struktur bahasanya !

2. Sebutkan tipe data dan rangenya!

3. Buat program yang menampilkan biodata anda !

4. Jelaskan mengenai struktur keputusan !; berikan contoh penggunaannya !

5. Buat program dengan output sbb:

Menu Utama

Program Hitung Luas dan Keliling

TERLENGKAP

1. Luas dan Keliling Lingkaran

2. Luas dan Keliling Persegi Panjang

3. Luas dan Keliling Segitiga

4. Keluar

6. Jelaskan mengenai looping !; berikan contoh penggunaannya !

7. Buat program dengan output sbb:

Menu Utama

Toko ASIA Malang

1. Input pembelian barang

2. Lihat daftar pembelian barang

3. Keluar

Dengan ketentuan sbb:

• No. (input)

• Nama Barang (input)

• Jumlah (input)

• Harga Satuan (input)

• Jumlah Harga (output)

• Total Harga (output)

• Diskon (output)

 jika Total Harga > 100.000, maka mendapatkan diskon 5% dari Total Harga. Selain itu tidak mendapatkan diskon.

• Total_Bayar (output)

Proyeksi pada Lihat Daftar Pembelian Barang

Toko ASIA Malang

Daftar Pembelian Barang

No	Nama Barang	Jumlah	Harga Satuan	Jumlah Harga
1	Susu Kental	5	3500	17.500
2	Gula Pasir	3	4000	12.000
3	Teh Hijau	4	5500	22.000
…	……………..

Total Harga = Rp ………………

Diskon = Rp ………………

Total Bayar = Rp ………………

 GOOD LUCK 

Latihan Pemograman Dasar

program bilangan;
uses crt;
var
b1,b2,b3:integer;
ket:string;
begin
clrscr;
write('masukkan b1='); readln(b1);
write('masukkan b2='); readln(b2);
write('masukkan b3='); readln(b3);
begin
if b1>b2 then
begin
if b1>b3 then
ket:='bil1 paling besar'
else
ket:='bil3 paling besar'
end
else if b2>b3 then
ket:='b2 paling besar'
else
ket:='b3 paling besar';
end;
write('keterangan=',ket);
readln;
end.