Contoh Program Perulangan Pascal Sederhana
"Contoh program Pascal perulangan for i next... Program Pascal pengurut angka dan mencari rata-rata"
3 min read
Contoh Program Perulangan Pascal Sederhana - Perulangan adalah salah satu yang paling utama dalam membuat sebuah aplikasi, entah itu menggunakan Java, VB 6.0 atau Pascal. Dengan perulangan (Looping), kita dapat mengeksekusi program dengan lebih simple dari segi struktur penulisan coding.Hari ini saya akan berbagi contoh program perulangan pada Pascal. Langsung pada contoh programnya saja agar lebih mudah dan juga menjadi catatan pribadi untuk penulis sendiri. Dalam program ini, saya menggunakan Free Pascal.
Bagi kamu yang juga menggunakan aplikasi Free Pascal, kamu bisa mengcopy paste langsung program Pascal perulangan di bawah ini. Sementara kamu yang menggunakan Turbo Pascal coba saja dulu, soalnya saya belum pernah coba apakah kodenya tetap sama atau ada sedikit perbedaan.
Contoh Program Pascal Perluangan
Program yang pertama ini adalah program untuk mengurutkan data input dari yang terkecil ke terbesar kemudian menentukan jumlah total nilai dan rata-ratanya.
 |
| Contoh Program Perulangan Pascal Sederhana |
program Program_Urutan;
uses crt;
var
n:array[1..20] of integer;
sum, i, j,rat, a:integer;
begin
clrscr;
sum:=0;
for i:= 1 to 5 do
begin
write ('Nilai ke-', i,':');readln(n[i]);
end;
for i:=1 to 4 do begin
for j:=1 +i to 5 do begin
if n[j]a:=n[j];
n[j]:=n[i];
n[i]:=a;
end;
end;
end;
writeln('Hasil pengurutan ');
for i:= 1 to 5 do begin
writeln(i,'.',n[i]);
sum:=sum+n[i];
end;
readln;
writeln('Hasil jumlah :',sum);
rat:=sum div i;
writeln('Rata-rata :',rat);
readln;
end.
uses crt;
var
n:array[1..20] of integer;
sum, i, j,rat, a:integer;
begin
clrscr;
sum:=0;
for i:= 1 to 5 do
begin
write ('Nilai ke-', i,':');readln(n[i]);
end;
for i:=1 to 4 do begin
for j:=1 +i to 5 do begin
if n[j]
n[j]:=n[i];
n[i]:=a;
end;
end;
end;
writeln('Hasil pengurutan ');
for i:= 1 to 5 do begin
writeln(i,'.',n[i]);
sum:=sum+n[i];
end;
readln;
writeln('Hasil jumlah :',sum);
rat:=sum div i;
writeln('Rata-rata :',rat);
readln;
end.
Jika di atas program pengurut dari angka terkecil ke terbesar, berikut ini adalah sebaliknya. Contoh program Pascal ini mengurutkan nilai dari yang terbesar ke terkecil dan menghitung jumlah total nilainya.
program pengurutdesember;
uses crt;
var
n:array[1..20] of integer;
sum, i, j, a:integer;
begin
clrscr;
sum:=0;
for i:= 1 to 5 do
begin
write ('Nilai ke-', i,':');
readln(n[i]);
end;
for i:=1 to 5 do begin
for j:=1 +i to 5 do begin
if n[j]>n[i] then begin
a:=n[j];
n[j]:=n[i];
n[i]:=a;
end;
end;
end;
writeln('Hasil pengurutan');
for i:= 1 to 5 do begin
writeln(i,'.',n[i]);
sum:=sum+n[i];
end;
readln;
writeln('Hasil jumlah :',sum);
readln;
end.
uses crt;
var
n:array[1..20] of integer;
sum, i, j, a:integer;
begin
clrscr;
sum:=0;
for i:= 1 to 5 do
begin
write ('Nilai ke-', i,':');
readln(n[i]);
end;
for i:=1 to 5 do begin
for j:=1 +i to 5 do begin
if n[j]>n[i] then begin
a:=n[j];
n[j]:=n[i];
n[i]:=a;
end;
end;
end;
writeln('Hasil pengurutan');
for i:= 1 to 5 do begin
writeln(i,'.',n[i]);
sum:=sum+n[i];
end;
readln;
writeln('Hasil jumlah :',sum);
readln;
end.
Contoh Program Pascal Pengurut Angka dan Rata-rata
Program Pascal pengurut dan penghitung rata-rata dari data yang input bisa kamu lihat di bawah ini!
program pengurutterakhir;
uses crt;
var
n:array[1..5] of integer;
sum,i,j,a:integer;
u:real;
begin
clrscr;
sum:=0;
for i:=1 to 3 do
begin
write('Nilai ke-',i,':');readln(n[i])
end;
for i:=1 to 3 do
begin
for j:=1+i to 3 do
begin
if n[j]begin
a:=n[j];
n[j]:=n[i];
n[i]:=a;
end;
end;
end;
writeln;
writeln('Hasil pengurutan : ');
for i:= 1 to 3 do
begin
writeln(i,'.',n[i]);
sum:=sum+n[i];
u:=sum/3;
writeln('Rata-rata : ',u:0:2);
writeln('Hasil jumlah : ',sum);
readln;
end;
end.
uses crt;
var
n:array[1..5] of integer;
sum,i,j,a:integer;
u:real;
begin
clrscr;
sum:=0;
for i:=1 to 3 do
begin
write('Nilai ke-',i,':');readln(n[i])
end;
for i:=1 to 3 do
begin
for j:=1+i to 3 do
begin
if n[j]
a:=n[j];
n[j]:=n[i];
n[i]:=a;
end;
end;
end;
writeln;
writeln('Hasil pengurutan : ');
for i:= 1 to 3 do
begin
writeln(i,'.',n[i]);
sum:=sum+n[i];
u:=sum/3;
writeln('Rata-rata : ',u:0:2);
writeln('Hasil jumlah : ',sum);
readln;
end;
end.
Contoh Program Pascal Perulangan For i
Program perulangan Pascal selanjutnya adalah program menginput Nama dan NIM. Kamu bisa menambah data-data lainnya untuk diinput ketika di run (f5).
program pengurutterakhir;
uses crt;
var
n:array[1..5] of integer;
sum,i,j,a:integer;
u:real;
begin
clrscr;
sum:=0;
for i:=1 to 3 do
begin
write('Nilai ke-',i,':');readln(n[i])
end;
for i:=1 to 3 do
begin
for j:=1+i to 3 do
begin
if n[j]begin
a:=n[j];
n[j]:=n[i];
n[i]:=a;
end;
end;
end;
writeln;
writeln('Hasil pengurutan : ');
for i:= 1 to 3 do
begin
writeln(i,'.',n[i]);
sum:=sum+n[i];
u:=sum/3;
writeln('Rata-rata : ',u:0:2);
writeln('Hasil jumlah : ',sum);
readln;
end;
end.
uses crt;
var
n:array[1..5] of integer;
sum,i,j,a:integer;
u:real;
begin
clrscr;
sum:=0;
for i:=1 to 3 do
begin
write('Nilai ke-',i,':');readln(n[i])
end;
for i:=1 to 3 do
begin
for j:=1+i to 3 do
begin
if n[j]
a:=n[j];
n[j]:=n[i];
n[i]:=a;
end;
end;
end;
writeln;
writeln('Hasil pengurutan : ');
for i:= 1 to 3 do
begin
writeln(i,'.',n[i]);
sum:=sum+n[i];
u:=sum/3;
writeln('Rata-rata : ',u:0:2);
writeln('Hasil jumlah : ',sum);
readln;
end;
end.
Program Pascal Perluangan For
Masih menyerupai program Pascal sebelumnya, tapi ini untuk menjumlahkan angka yang diinput.
program Jumlahnilai;
uses crt;
type
banyakdatainput=array[1..5] of integer;
var
datadata: banyakdatainput;
banyakdata,b:integer;
begin
clrscr;
b:=0;
writeln('Contoh Menghitung Nilai Ulangan');
for banyakdata:=1 to 3 do
begin
write('data ',banyakdata,' = ');
readln(datadata[banyakdata]);
b:=b+datadata[banyakdata];
end;
writeln('Jumlah Nilai Ulangan:',b);
readln;
end.
uses crt;
type
banyakdatainput=array[1..5] of integer;
var
datadata: banyakdatainput;
banyakdata,b:integer;
begin
clrscr;
b:=0;
writeln('Contoh Menghitung Nilai Ulangan');
for banyakdata:=1 to 3 do
begin
write('data ',banyakdata,' = ');
readln(datadata[banyakdata]);
b:=b+datadata[banyakdata];
end;
writeln('Jumlah Nilai Ulangan:',b);
readln;
end.
Itulah kumpulan program Pascal perulangan dasar yang paling sederhana.
Sekedar berbagi aja, saya belajar bahasa programming dan pemrograman pertama kali sejak kelas 3 SMA menggunakan HTML (Bahasa Mark up) untuk web dan CSS. Setelah beberapa waktu, saya belajar bahasa BASIC, kemudian dilanjutkan dengan Pascal.
Dari situ, saya tidak mengalami kesulitan yang berarti dalam belajar bahasa pemrograman tingkat selanjutnya karena memang dasar-dasarnya sudah ada dan belajar dari yang paling dasar. Intinya hanya ada 3 yang paling penting, yaitu variabel, type data dan operator logika saja. Jika paham tentang itu, bahasa pemrograman tinggal harus diimplementasikan menjadi sebuah program aplikasi.
Namun belakangan ini saya sudah mulai malas coding dan belajar bahasa pemrograman. Lagi sibuk dengan dunia baru aja.
Demikianlah source code contoh program perulangan Pascal sederhana. Semoga bermanfaat!