Pascal Increment While-do

 Selamat datang temen-temen yang sudah mau meluangkan waktunya berkunjung diblog ini. Disini saya akan membahas tentang pemrograman menggunakan pascal, mengenai increment while-do. enggak usah lama-lama langsung saja ketkp. Seperti inilah scrip untuk pascal selamat mencobanya.

var x,a,b,c:integer;
 begin
 x:=0;
 write(‘Masukkan batas awal ‘);
 read(a);
 write(‘Masukkan batas akhir ‘);
 read(b);
 write(‘Masukkan increment ‘);
 read(c);
 while (a<=b) do
 begin
 x:=x+a;
 writeln(‘Nilai a ‘,a);
 a:=a+c;
 end;
 writeln(‘Jumlahnya ‘,x);
 readln;
 readln;
 end.