Yuk! Belajar Konsep Pemrograman Di Mesran.Blogspot.Com

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.

Screen Shot :

Screen Shot Hasil nya :

Sedikit Penjelasan, saya memakai Turbo Pascal 1,5 sehingga Uses crt yang biasa di gunakan saya ganti dengan Uses wincrt karena sudah ketentuan nya heheheh ^_^

Demikilahlah postingan saya  Nama : Zafar Sitinjak  NPM : 12110813

Selamat Belajar Bahasa Pemrograman.