Program Menghitung Jumlah dan Mean Bilangan Perulangan FOR Dengan Nilai Dinamis

Program sederhana Skrip Program Pascal

uses wincrt;

var

n, i : integer;

rata : real;

jum, bil : integer;

begin

Write(‘Masukkan nilai N = ‘);readln(n);

writeln (‘Nilai N adalah= ‘,n);writeln;

for i := 1 to n do

begin

write(‘Masukkan bilangan : ‘);read(bil);

jum := jum+bil;

end;

rata := jum/n;writeln;

writeln(‘Jumlahnya adalah : ‘,jum);

writeln(‘Nilai rata-ratanya :’, rata:0:2);

end.

Output program

Masukkan nilai N = 3 

Nilai N adalah= 3

Masukkan bilangan: 1

Masukkan bilangan: 2

Masukkan bilangan: 3                                     

Jumlahnya adalah : 6

Nilai rata-ratanya : 2.00

Penjelasan :

Struktur dasar program dasar pascal terdiri dari judul program dan blok program, judul program yang terstruktur berbentuk : program(judul program) à program nama_program, serdangkan pada blok program memiliki berbagai deklarasi yaitu :

-       Deklarasi Label à LABEL    nama_label ;

-       Deklarasi Konstanta à CONST.............;

-       Deklarasi tipe Data à TYPE..................;

-       Deklarasi Variabel à Var.......................;

-       Deklarasi Prosedure à Procedure    nama_Procedure ;

-       Deklarasi Function à Function         nama_function ;

(bagian statment)

Begin

   (statement)

End.

Dalam penulisan program pascal terdapat aturan dalam penjulisan yang harus diperhatikan yaitu:

-       Akhiri sebuah program di tandai dengan tanda titik(.)

-       Tanda titik koma (;) di gunakan sebagai pemisah antara statement.

Pada program sederhana yang di buat dengan menggunakan perulangan for, struktur perulangan for digunakan untuk mengulang statement atau satu blok statement berulangkali sejumlah yang telah di tentukan.

Pada program di atas yang menunjukan hasil nilai rata-rata dengan memasukan sejumlah bilangan yang akan di jadikan nilai rata-rata dengan penjulahan nilai, var untuk awal program yang berarti variabel, n,i : integer; untuk pengimputan data bilangan yang akan di masukan, jum,bil : real; untuk menunjukan bilangan asli atau bilangan  yang sebenarnya, Write(‘Masukkan nilai N = ‘);readln(n); write disini adalah untuk output program untuk mencetak hasil dalam bahasa pascal dugunakan identifier, writeln (‘Nilai N adalah= ‘,n);writeln; writeln ini berarti untuk menctak hasul output ke posisi bawah pada output seterusnya maka yang diketahui nilai N, for i := 1 to n do menunjukan perulangan dari i ke n sampai dengan nilai yang di masukan, write(‘Masukkan bilangan : ‘);read(bil);  untuk membaca nilai bilangan yang akan di input, jum := jum+bil; untuk mengetahui jumlah dan bilangan yang akan di rata-rata, end; untuk akhir awal program statement yang pertama.