Menampilkan jumlah yang harus dibayar menggunakan pascal

Algoritma :

Algoritma
    hitung_jumlah_bayar
Deklarasi
    var JMLBYR, JML, HRG : real;
Deskripsi
    input (JML);
    input (HRG);

    JMLBYR <--- JML * HRG;

    write (JMLHRG);

Flowchart :

 

 

 

 

 

 

 

 

 

 

 

Pascal :

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

program jmlbyr;
uses crt;
    var JMLBYR, JML, HRG : Real;
begin
    clrscr;
        Writeln('MENGHITUNG JUMLAH YANG HARUS DIBAYAR');
        Writeln('=================================');
        WriteLn;
        Write('Masukan Jumlah Barang = ') ; ReadLn(JML);
        Write('Masukan Harga Barang = ');readln(HRG);
        JMLBYR:=JML*HRG;
        writeln('-----------------------------------------');
        Write('Jumlah yang dibayar adalah ',JMLBYR);
        Writeln;
        Writeln;
        Writeln('===============================');
        Writeln('SEKIAN DAN TERIMA KASIH');
        Writeln('===============================');
        Writeln('Kunjungi www.pradanaziq.com') ;
    readln;
end.

dan hasilnya akan seperti ini, bisa diberi variasi semiajinasi kalian

Berbagi :