Belajar Algoritma Dasar

Berikut adalah cara untuk membuat algoritma tentang cara mengitung komisi salesman :

 

Program Menghitung_Komisi_Penjualan;
Uses crt;
Var
Nama:string[20];
Nilai_penjualan:longint;
Komisi:real;
Begin
 Clrscr;
 Writeln('---------------------------------------------------');
 Writeln('MENGHITUNG KOMISI SALESMAN');
 Writeln('---------------------------------------------------');
 Write('  NAMA SALES                   : ');
 Readln(Nama);
 Write('  NILAI PENJUALAN        : Rp. ');
 Readln(Nilai_penjualan);
 Komisi:=Nilai_penjualan*0.05;
 Writeln('---------------------------------------------');
 Writeln('  KOMISI PENJUALAN  : Rp.',Komisi:9:2);
 Writeln('');
 Writeln('---------------------------------------------');
 Writeln('                   Copyright@                    ');
 Writeln('      technologic-b.blogspot.com        ');

 Writeln('---------------------------------------------');
 Readln;End.