Contoh Program Algoritma Perkalian Dua Bilangan Bulat Dengan Metode Looping

Ini adalah algoritma untuk mengalikan dua bilangan bulat dengan metode looping atau pengulangan

program
{perkalian_dua_bilangan_bulat_dengan_operasi_'+'}
kamus :
m,n,i,hasil : integer
algoritma :
input (m)
input(n)
hasil <-0
for i<-0 to (n-1)
do
hasil<-hasil+m
endfor
output(hasil)

dalam bentuk pascal nya menjadi


var
i,x,y,hasil:integer;

begin
write('masukan angka : '); readln(x);
write('akan dikalikan dengan : '); readln(y);
hasil:=0;

for i:=0 to y-1
do
hasil:=hasil+x;
write(hasil);

readln;

end.

*disini saya menggunakan Dev pascal.

terima kasih telah berkunjung, silahkan berkunjung kembali lain kali :)