Program penjumlahan berderet

Berikut merupakan Program untuk Penjumlahan berderet menggunakan bahasa Pascal dengan menggunakan statement WHILE.

• SOURCE CODE

Program penjumlahan_berderet;
uses crt;
var
   n : integer;
   i : integer;
   j : integer;
begin
clrscr;
     write('Inputkan angka =');readln(n);
     j := 0;
     i := 1;
     while i <= n do
     begin
     j := j + i;
     i := i + 1;
     end;
     writeln('Hasilnya adalah ',j);
readkey;
end.

• PENJELASAN SOURCE CODE

Program penjumlahan_berderet;     {Judul program}
uses crt;     {Deklarasi unit CRT}
var     {Variabel}
   n : integer;     {Inisiasi variabel}
   i : integer;     {Inisiasi variabel}
   j : integer;     {Inisiasi variabel}
begin     {Awal instruksi program}
clrscr;     {Membersihkan layar}
     write('Inputkan angka =');     {Cetak Inputkan angka =}
     readln(n);     {Baca variabel n}
     j := 0;     {Nilai awal j}
     i := 1;     {Nilai awal i}
     while i <= n do     {Pengecekan statement while apakah i <= n , jika ya kerjakan statement di bawah}
     begin     {Awal instruksi program}
     j := j + i;     {Counter pertambahan j}
     i := i + 1;     {Counter pertambahan i}
     writeln('Hasilnya adalah ',j);     {Cetak hasilnya adalah, baca variabel j}
readkey;     {Instruksi untuk menunggu}
end.     {Akhir instruksi program}

• PRINT SCREEN OUTPUT

 Untuk mempermuda anda dalam mempelajari pemograman dengan menggunakan bahasa pascal, admin telah menyediakan file Source code, Penjelasan source code, Output Program, Flowchart dari source code, serta file pascalnya. Anda dapat mendownloadnya secara gratis di link download di bawah ini.

• Title Program          : Penjumlahan berderet
• Source Code .pdf     : .:_Download_:.
• Flowchart .png        : .:_Download_:.
• Program .pas           : .:_Download_:.
• Password                 : kamuspascal.blogspot.com

Jika anda tidak tahu bagaimana cara mendownload file-file diatas klik Disini, untuk mempelajarinya.