Buat Algoritma, Flowchart, Pseudecode dan Program untuk menghitung pembelian peralatan komputer, dengan ketentuannya sebagai berikut : •Harga barang Nama barang
TI
miasrianggraeni
Pertanyaan
Buat Algoritma, Flowchart, Pseudecode dan Program untuk menghitung pembelian peralatan komputer, dengan ketentuannya sebagai berikut :
•Harga barang
Nama barang:
-Printer
-Mouse
-Monitor
-Speaker
merk dagang:
-Canon
-ogitech
-Samsung
-Simbada
harga satuan:
-500000
-200000
-800000
-350000
•Total = harga satuan * banyak barang
•Besar diskon :
total:
* <= 1 Juta
* 1- 3 Juta
* 3 – 6 juta
* >6 juta
diskon:
* 2,5% dari total
* 5,0% dari total
* 7,5% dari total
* 10,0% dari total
bonus:
* Mouse Pad
* Mouse
* Keyboard
* Speaker
•Bayar = total – diskon
Input : Nama, kode barang, banyak barang
Output : Nama barang, merk barang, harga satuan, total, diskon dan bayar
•Harga barang
Nama barang:
-Printer
-Mouse
-Monitor
-Speaker
merk dagang:
-Canon
-ogitech
-Samsung
-Simbada
harga satuan:
-500000
-200000
-800000
-350000
•Total = harga satuan * banyak barang
•Besar diskon :
total:
* <= 1 Juta
* 1- 3 Juta
* 3 – 6 juta
* >6 juta
diskon:
* 2,5% dari total
* 5,0% dari total
* 7,5% dari total
* 10,0% dari total
bonus:
* Mouse Pad
* Mouse
* Keyboard
* Speaker
•Bayar = total – diskon
Input : Nama, kode barang, banyak barang
Output : Nama barang, merk barang, harga satuan, total, diskon dan bayar
1 Jawaban
-
1. Jawaban dhanders16
PASCAL UNTUK PENJUALAN
=======================
uses crt;
const banyakjenis=20;
type rek=record
kode:string[8];
nama:string[15];
jum:integer;
sat:string[10];
hargasat:real;
end;
daftar=array[1..banyakjenis] of rek;
var barang:daftar;
jumbar:integer;
procedure pemasukkan(var jumbar:integer; var barang:daftar);
var indekbar:1..banyakjenis;
begin
clrscr;
write('Ada brp jenis barang ? '); readln(jumbar);
for indekbar:=1 to jumbar do
begin
clrscr;
writeln('Ketik barang ke ',indekbar);
write('Kode Barang'); readln(barang[indekbar].kode);
write('Nama Barang'); readln(barang[indekbar].nama);
write('Jumlah Barang'); readln(barang[indekbar].jum);
write('Ukuran/satuan'); readln(barang[indekbar].sat);
write('Harga Satuan'); readln(barang[indekbar].hargasat);
end;
end;
procedure sortirdata(Jumbar:integer;var barang:daftar);
var i,j:integer; titip:rek;
begin
for i:=1 to jumbar do
for j:=i+1 to jumbar do
if barang[i].kode>barang[j].kode then
begin
titip:=barang[i];
barang[i]:=barang[j];
barang[j]:=titip;
end;
end;
procedure cetak(var jumbar:integer;var barang:daftar);
var indekbar:integer;
totjual, totharga:real;
begin
clrscr;
writeln('Daftar Penjualan ');
write('No Kode Barang Nama Barang Banyak ');
writeln('Satuan Harga Total');
{write(' ');
write('Satuan Unit');}
write('======================================');
writeln('=====================');
totjual:=0;
for indekbar:=1 to jumbar do
begin
totharga:=Barang[indekbar].hargasat*barang[indekbar].jum;
totjual:=totjual+totharga;
write(indekbar:2,barang[indekbar].kode:11);
write(barang[indekbar].nama:13,barang[indekbar].jum:8);
write(barang[indekbar].sat:8,barang[indekbar].hargasat:7:0);
writeln(totharga:8:0);
end;
write('======================================');
writeln('=====================');
writeln('Jumlah: ':40,totjual:18:2);
end;
begin
clrscr;
pemasukkan(jumbar,barang);
sortirdata(jumbar,barang);
cetak(jumbar,barang);
write('Tekan enter'); readln;
end.