Menghitung Dua Buah Bilangan
program Menghitung_Dua_Buah_Bilangan;
uses
crt;
var
x,y : real;
kali,tambah : real;
begin
clrscr;
write('Masukkan Bilangan ke 1= ');
readln(x);
write('Masukkan Bilangan ke 2= ');
readln(y);
kali := x * y;
tambah := x + y;
writeln;
writeln('Hasil Perkalian : ', x:0:0, '*', y:0:0, '= ', kali:0:0);
writeln('Hasil Penambahan : ', x:0:0, '+', y:0:0, '= ', tambah:0:0);
readln;
end.
hasil output:
Masukkan Bilangan ke 1 = 2(misalkan)
Masukkan Bilangan ke 2 = 4(misalkan)
Hasil Perkalian : 2*4= 8
Hasil Penambahan : 2+4= 6
writeln('Hasil Perkalian : ', x:0:0, '*', y:0:0, '= ', kali:0:0);
writeln('Hasil Penambahan : ', x:0:0, '+', y:0:0, '= ', tambah:0:0);
readln;
end.
hasil output:
Masukkan Bilangan ke 1 = 2(misalkan)
Masukkan Bilangan ke 2 = 4(misalkan)
Hasil Perkalian : 2*4= 8
Hasil Penambahan : 2+4= 6
Show
0 Comments
prev
next
