PASCAL - MEMBUAT HASIL NILAI KELIPATAN DARI SEBUAH BILANGAN

Listing Program :

program kelipatan;
uses crt;
var bil,lipat,batas,x : integer;
    lagi : char;
begin
  repeat
     clrscr;
     writeln('MELIPAT ANGKA');
     write('Angka Awal      : ');readln(bil);
     write('Angka Kelipatan : ');readln(lipat);
     write('Panjang Lipatan : ');readln(batas);
     bil := bil - lipat;
     write('Hasil Lipatannya adalah : ');
     for x := 1 to batas do
     begin
          bil := bil + lipat;
          write(bil:4);
     end;
     writeln;
     write('Coba Lagi ? [y/t] : ');readln(lagi);
  until lagi = 't';
end.

Jangan lupa tinggalkan pesan berupa saran dan kritik yang bermanfaat untuk blog  ini. Untuk teman-teman yang hendak mencopy artikel ini untuk dipasang pada blog atau web-nya, dengan sangat diharapkan untuk mencantumkan Link keblog ini sebagai sumber artikel sekaligus sebagai backlink untuk blog ini. Terima kasih untuk pengertian dan kerjasamanya, mari berkembang bersama.