Program Pascal menggunakan Aritmatika

                                         

disini saya akan sedikit membrikan contoh program pascal menggunakan operator aritmatika

berikut contohnya :

program operatoraritmatika;

uses
  crt;

var
  x,y: integer;

begin
  clrscr;


(memasukan nilai ke dalam x dan y)
write ( 'masukan nilai x : '); readln (x);
write ( 'masukan nilai y : '); readln (y);
writeln;

(melakukan operasi aritmatika terhadap x dan y)
writeln ('x + y     = ', x + y);
writeln ('x - y      = ', x-y);
writeln (' x * y    =', x * y);
writeln (' x / y     =', x/y) : 0 : 3);
writeln ('x div y  =', x div y );
writeln ('x mod y= ', x mod y );

readln;
end.



nb : yang dalam kurung jangan ikut di tulis ya
thx