Menampilkan jumlah komisi karyawan menggunakan pascal

Algoritma ;

Algoritma
    Hitung_jumlah_komisi
Deklarasi
    Var komisi, nilai: real;
    nama : string;
Deskripsi
    input (nama);
    input (nilai);

    komisi <--- nilai * 10%;

    write (komisi);

Flowchart :

 

 

 

 

 

 

 

 

 

 

Pascal : 

 

program komisi;
uses crt;
    Var komisi, nilai :Real;
          nama :String;
          const pkomisi:Real=0.1 ;
begin
    clrscr;
        Writeln('MENGHITUNG JUMLAH KOMISI YANG DIDAPAT');
        Writeln('=================================');
        WriteLn;
        Write('Masukan Nama Salesmen                   = ');ReadLn(nama);
        Write('Masukan Nilai Penjualan yang didapat = ');readln(nilai);
        komisi:=pkomisi*nilai;
        writeln('-------------------------------------------');
        Write('Nama salesmen ',nama, ' ', 'mendapatkan komisi sebesar ',komisi);
        Writeln;
        Writeln;
        Writeln('==============================');
        Writeln('SEKIAN DAN TERIMA KASIH');
        Writeln('===============================');
        Writeln('Kunjungi www.pradanaziq.co m');
    readln;
end.


dan hasilnya akan seperti ini, bisa diberi variasi semiajinasi kalian

 

Berbagi :