Contoh Pemrograman Pascal Paling Sederhana

Contoh Pemrograman Pascal Paling Sederhana - Disini saya akan menunjukan beberapa program yang sangat mudah dan sederhana dalam bahasa pascal, program ini sangat mudah 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.

Baca juga : Membuat Game Sulap Menggunakan Pascal

Pemrograman Pascal Paling Sederhana anda sekarang sudah selesai, baca juga tutorial program pascal lainnya.