PROGRAM PASCAL

PROGRAM ARITMATIKA PASCAL

Program  OPERASI ARITMATIKA;

            Usescrt;

            Var

            a, b : integer;

            Begin

Clrscr;

Write (‘BILANGAN A : ‘);

Readln (a);

Write (‘BILANGAN B :’);

Readln ;

Write (‘HASIL OPERASI :’);

Readln;

Write (‘----------------------‘);

Writeln (‘  ‘);

Writeln (‘a + b := ‘, a + b);

Writeln (‘a – b :=’, a – b);

Writeln (‘a / b :=’, a / b);

Writeln (‘a mod b :=’, a mod b);

Writeln (‘a div b := ‘, a div b);

Writeln (‘UNIVERSITAS GUNADARMA-2KA07’);

Readln;

End.

Output :

BILANGAN A : 3

BILANGAN B : 7

HASIL OPERASI :

-----------------------

a + b = 10

a – b = -4

a / b = 4.2857142857E-01

a mod b = 3

a div b = 0