Contoh Pemrograman Pascal Paling Sederhana

Disini saya akan menunjukan benerapa program yang sangat mudah dan sederhana dalam bahasa pascal, program ini sangat udah dan simple sekali untuk di mengerti jadi anda tidak perlu takut dan ragu untuk belajar karna program ini sangatlah mudah dan sederhana.

1. Program Menghitung Jumlah Bilangan Perulangan FOR Dengan Nilai Statis

program jum_bil; uses wincrt; var i, jum,bil: integer; begin jum:=0; {inisialisasi} for i:=1 to 5 do begin write(‘Masukkan Bilangan = ‘);readln(bil); jum:=jum+bil; end; writeln(‘Jumlah Bilangan = ‘,jum); end.

2. Program Menghitung Jumlah Bilangan Perulangan FOR Dengan Nilai Dinamis

program jum_bil2; uses wincrt; var i, n: integer; jum, bil: real; begin write(‘Banyak bilangan : ’);read(n); jum := 0; For i:= 1 to n do begin write(‘Masukkan Bilangan ‘,i, ‘=’);read(bil); jum := jum+bil; end; writeln(‘Jum = ‘,jum:0:2); end.

3. Program Menghitung Jumlah dan Mean Bilangan Perulangan FOR Dengan Nilai Dinamis

program contoh_3; 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.

4. Program Menghitung Jumlah dan Banyaknya Data

program contoh4; uses wincrt; var n, i,byk,jum, bil : integer; begin Write(‘Masukkan nilai perulangan : ‘);readln(n); Writeln; for i := 1 to n do begin write(‘Bilangan ‘,i,’ = ‘);read(bil); if bil >= 10 then begin byk := byk+1; jum := jum+bil ; end; end; writeln; writeln(‘banyak bilangan yang >= 10 : ‘,byk); writeln(‘jumlah bilangan yang >= 10 : ‘,jum); end.