Program pascal - aritmatika

Advertisemen

Masukan bilangan 1, setelah itu masukan bilangan 2, kemudian lakukan proses penjumlahan, perkalian pengurangan, dan pembagian. Hasil dari ke empat operasi aritmatika tersebut ditampilkan

Layout :

Bilangan 1       : 6

Bilangan 2       : 3

Hasil Penjumlahan      : 9

Hasil Pengurangan      : 3

Hasil Perkalian            : 18

Hasil Pembagian         : 2

Jawab:

uses crt;

var A,B:integer;

begin

    clrscr;

    Write('Bilangan 1: ');Readln(A);

    Write('Bilangan 2: ');Readln(B);

    Writeln('Hasil Penjumlahan= ',A+B);

    Writeln('Hasil Pengurangan= ',A-B);

    Writeln('Hasil Perkalian  = ',A*B);

    Writeln('Hasil Pembagian  = ',A/B:0:0);

    Readln;

end.

Advertisemen