ALGORITMA

Jawaban soal nomor 1

Perkalian

Program P0102;

Uses crt;

Var

Bil1, bil2, jumlah : integer;

Begin

Writeln(‘Program Perkalian’);

Writeln(‘***************’);

Write(‘Masukkan Bilangan Pertama :’); readln(bil1);

Write(‘Masukkan Bilangan Kedua :’); readln(bil2);

Jumlah:=bil1 * bil2;

Writeln(‘Jumlah bilangan setelah perkalian =’,jumlah); readln;

End.

Pengurangan

Program P0102;

Uses crt;

Var

Bil1, bil2, jumlah : integer;

Begin

Writeln(‘Program Pengurangan’);

Writeln(‘***************’);

Write(‘Masukkan Bilangan Pertama :’); readln(bil1);

Write(‘Masukkan Bilangan Kedua :’); readln(bil2);

Jumlah:=bil1 - bil2;

Writeln(‘Jumlah bilangan setelah pengurangan =’,jumlah); readln;

End.

Pembagian

Program P0102;

Uses crt;

Var

Bil1, bil2 : integer;

Jumlah : real;

Begin

Writeln(‘Program Pembagian’);

Writeln(‘***************’);

Write(‘Masukkan Bilangan Pertama :’); readln(bil1);

Write(‘Masukkan Bilangan Kedua :’); readln(bil2);

Jumlah:=bil1 / bil2;

Writeln(‘Jumlah bilangan setelah pembagian  =’, round (,jumlah)); readln;

End.