4 Contoh Program Pascal Untuk Latihan Programming Dasar

Pada artikel kali ini saya akan berbagi beberapa coding program pascal sederhana kepada teman-teman sebagai bahan untuk menambah pengetahuan tentang pemrograman pascal.

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.

Demikian artikel saya tentang beberapa cara membuat program sederhana dengan menggunakan bahasa pemrograman pascal, semoga bermanfaat.