Selesaikanlah Kasus Berikut :
Buatlah program untuk menampilkan hasil berikut dengan menggunakan perulangan :
Inputkan nilai : 5
Hasil : 1*2*3*4*5 = 120
Menggunakan Program pascal
Berikut Jawaban Program :
Uses wincrt;
Var i,x,n:integer;
Begin
Write('INPUTKAN NILAI : ');Readln(n);
For i:= 1 to n do
Begin
x:=(x*i);
if (i=1) then
write(i)
else
write('*',i);
end;
Writeln(' = ',x);
end.
Demikilahlah postingan saya, Nama : HARI YUDI NPM : 12110074
Selamat Belajar Bahasa Pemrograman
Tidak ada komentar:
Posting Komentar