Program Komisi Sales #pascal

 langsung ke soalnya aja gan , sederhana si , hhee ...  ya buat ngelatih algoritma dan logika aj dulu :D

Soal
Tulislah algoritma untuk menghitung komisi yang diterima sales berdasarkan nilai panjualan yang dicapai, Sales itu mendapatkan komisi 5% dari hasil penjualan. Algoritma menerima data nama sales dan nilai penjualan yang
dicapainya, menghitung komisi, lalu mencetak nama sales, dan besar komisi yang diperoleh.
(sumber : Buku Algoritma & Pemrograman dalam bahasa Pascal dan C - Rinaldi Munir )

kita selesaikan kembali di pascal,  ya baru tw nya pake pascal ane gan jadi blm bs pke program lain , hhhe

Jawab
==============================================
Program Hitung_komisi;
uses wincrt;
var
   nama_sales : string;
   nilai_penjualan : real;        
   komisi : real;

Begin
     write('masukan nama sales = '); readln(nama_sales);
     write('masukan nilai penjualan='); readln(nilai_penjualan);
     komisi := 0.05*nilai_penjualan;
     write('komisi sales sebesar= ',komisi);

end.

 ==============================================

ya demikian lah apa yang uda ane coba pelajari , kalau ada salah2 tolong dibenerin yak :D
mklum masi terus belajar ... hhhe