Looping Menentukan Bilangan Awal, Kelipatan, dan Batas Bilangan

Hari ini saya akan membahas tentang looping pada Pascal. Looping kali saya menjelaskan cara menentukan bilangan awal, kelipatan, dan batas bilangan. Saya menggunakan For to do. Berikut adalah kodingnya :

1. Buka Turbo Pascal
2. Masukkan kode seperti dibawah ini :

program looping; 

uses wincrt;

var

awal,kelipatan,jumlah,i:integer;

begin

write('Masukkan bilangan awal : ');readln(awal);

write('Masukkan kelipatan     : ');readln(kelipatan);

write('Masukkan batas         : ');readln(jumlah);

awal:= awal-kelipatan;

write('Hasil kelipatan       :  ');

for i:=1 to jumlah do

begin

awal:=awal+kelipatan;

write(awal:4);

end;

writeln();

end.

3. Kemudian Run program tersebut.

Sekian postingan hari ini, semoga bermanfaat untuk kalian semua. Terima kasih :)