Program Perulangan While Do Menghitung Jumlah Sepuluh Bilangan Pascal (coding)

Program dalam bahasa pemrograman Pascal untuk menghitung jumlah dari 10/sepuluh bilangan. Yaitu bilangan 1,2,3,4,5,6,7,8,9,10. Program dibawah ini menggunakan perulangan looping while do. Programnya dapat dilihat dibawah ini:

program perulangan_while_do;
uses crt;
var
     a,b: integer;
begin
     clrscr;
     a:= 0;
     b:= 0;
     while a < 10 do
     begin
          a:= a + 1;
          b:= b + a;
     end;
     writeln('jumlah data: ',b);
     readln;
end.

Anda juga dapat mengganti increment atau menambahkan nilai +1 pada peubah/variabel a dengan operator inc(a); sehingga program diatas nampak seperti dibawah ini:

program perulangan_while_do;
uses crt;
var
     a,b: integer;
begin
     clrscr;
     a:= 0;
     b:= 0;
     while a < 10 do
     begin
          inc(a);
          b:= b + a;
     end;
     writeln('jumlah data: ',b);
     readln;
end.

Setelah dirun maka kedua program tersebut menghasilakan nilai yang sama, yaitu:

Okay, sekian :)

SO: Program Pascal, coding pascal, koding pascal, perulangan pascal, looping pascal, perulangan while do, looping while do, program perulangan sederhana.