Dasar-dasar Pemrograman Tugas Pertemuan 4 Soal 1. Buatlah flowchart dan program untuk menentukan potongan harga di suatu toko dengan ketentuan sbb: – Jika pembelian di.

Download Report

Transcript Dasar-dasar Pemrograman Tugas Pertemuan 4 Soal 1. Buatlah flowchart dan program untuk menentukan potongan harga di suatu toko dengan ketentuan sbb: – Jika pembelian di.

Dasar-dasar Pemrograman
Tugas Pertemuan 4
Soal
1. Buatlah flowchart dan program untuk menentukan
potongan harga di suatu toko dengan ketentuan
sbb:
– Jika pembelian di bawah Rp 250.000 maka tidak mendapat
diskon.
– Jika pembelian di antara Rp 250.000 dan Rp 500.000, maka
mendapat diskon sebesar 10%.
– Jika pembelian di antara Rp 500.000 dan Rp 1.000.000, maka
mendapat diskon sebesar 15%.
– Jika pembelian di atas Rp 1.000.000 maka mendapat diskon
sebesar 20%.
Soal
2. Buatlah flowchart dan program untuk menentukan
potongan harga di suatu toko dengan ketentuan
sbb:
– Jika pembelian di bawah Rp 250.000 dan barang yang dibeli
di bawah 10 item, maka tidak mendapat diskon.
– Jika pembelian di antara Rp 250.000 dan Rp 500.000 dan
barang yang dibeli 10-20 item, maka mendapat diskon
sebesar 10%.
– Jika pembelian di antara Rp 500.000 dan Rp 1.000.000, atau
barang yang dibeli di atas 20 item, maka mendapat diskon
sebesar 15%.
– Jika pembelian di atas Rp 1.000.000 atau barang yang dibeli
di atas 50 item, maka mendapat diskon sebesar 20%.
Soal
3. Buatlah program untuk mencari bilangan
terbesar dan terkecil dari dua buah masukan!
4. Buatlah program untuk mengecek apakah
bilangan tersebut habis dibagi 3 atau tidak!
Soal
5.
var x,y:integer;
begin
x := 5;
x := 10;
if ((2*x)=y) then
x := y – 1;
end.
Berapa nilai variabel x ?
Soal
6.
var x,y:integer;
begin
x:=10;
y:=10;
x:=x*x;
y:=x;
if (x<y) then x:=y–1
else if (x>y) then x:=y + 1
else x:=x div x;
end.
Berapa nilai variabel x?
Soal
7.
var x,y,z,t:integer;
begin
if x>y then
if z>x then
t:=z;
else t:=x;
else if z>y then
t:=z;
else t:=y;
writeln(t);
end.
Jika x=3, y=5, z=8, apa hasilnya?
Soal
8.
var x,y:integer;
begin
x:=10; y:=10;
x:=x*x; y:=x;
if (x<y) then
x:=y–1
else if (x>y) then
x:=y+1
else
x:=x div x;
end.
Berapa nilai x?