Program Menghitung Jumlah Sepuluh Bilangan Pertama Pascal (coding)

Program dalam bahasa pemrograman Pascal untuk menghitung jumlah 10 bilangan. Yaitu bilangan 1,2,3,4,5,6,7,8,9,10. Programnya dapat dilihat dibawah ini:

program menghitung_jumlah_dari_10_bilangan_pertama;
uses crt;
var
  a, i : integer;
begin
     clrscr;
  a := 0;
  for i := 1 to 10 do
  begin
a := a + i;
  end;
  write('Jumlahnya adalah = ',a);
  readln;
end.

Dan ini adalah hasil luaran dari program diatas:

Anda juga dapat sedikit memodifikasi program diatas agar bilangan diatas dapat ditampilkan dalam hasil luarannya. Programnya sebagai berikut:

program menghitung_jumlah_dari_10_bilangan;
uses crt;
var
  a, i : integer;
begin
  clrscr;
  a := 0;
  for i := 1 to 10 do
  begin write(i,' ');
a := a + i;
  end;
  write('Jumlahnya adalah = ',a);
  readln;
end.

Hasilnya berupa luaran berikut ini:

Sekian Terimakasih :)

SO: coding pascal, program menghitung jumlah 10 bilangan pertama, program pascal sederhana, coding pascal sederhana, program pascal, coding pascal 10 bilangan pertama.