📋 Daftar Isi
Program Menghitung Jumlah Deret
Menggunakan while-do Buatlah program yang meminta masukan angka N. Program akan menghitung jumlah deret angka dari 1 sampai N dan menampilkan hasilnya. Misal N=5, maka 1+2+3+4+5=15.
Kode Program
program menghitung_jumlah_deret;
uses crt;
var angka,n,jumlah:integer;
begin
clrscr;
write('Masukkan angka = ');readln(n);
writeln('=======================================');
writeln('Menghitung deret angka 1 sampai dengan ',n);
writeln('=======================================');
jumlah:=0;
angka:=1;
while angka<=n do
begin
writeln(angka);
jumlah:=jumlah + angka;
angka:=angka + 1;
end;
writeln('=======================================');
writeln('Jumlah deret adalah = ',jumlah);
writeln('=======================================');
readln;
end.
Contoh Output
Program Anak Ayam Turun
Menggunakan struktur while-do Buatlah program yang meminta masukan angka N. Program akan menuliskan teks lagu Anak Ayam Turun N. Misal jika N=5 maka pada layar ouput:
Masukkan jumlah anak ayam: 5
Anak Ayam Turun 5
Anak Ayam turun 5, mati satu tinggal 4
Anak Ayam turun 4, mati satu tinggal 3
Anak Ayam turun 3, mati satu tinggal 2
Anak Ayam turun 2, mati satu tinggal 1
Anak Ayam turun 1, mati satu tinggal induknya.
Kode Program
program menghitung_anak_ayam;
uses crt;
var ayam:integer;
begin
clrscr;
write('Masukkan Jumlah Anak Ayam = '); readln(ayam);
writeln('==============================================');
writeln('Anak Ayam turun ',ayam);
writeln('==============================================');
while ayam>1 do
begin
writeln('Anak Ayam turun ',ayam,', mati satu tinggal ',ayam-1);
ayam:=ayam-1;
end;
writeln('Anak Ayam turun 1, mati satu tinggal induknya.');
writeln('==============================================');
readln;
end.
Contoh Output
Program Menghitung Rata-rata
Menggunakan struktur REPEAT-UNTIL, Buatlah program yang meminta masukan N dan masukan angka-angka sebanyak N. Program menghitung rata-rata dari N bilangan bulat yang dimasukkan oleh pengguna. Misal pengguna ingin menghitung rata-rata dari 3 bilangan. Maka kira-kira outputnya sebagai berikut:
Masukkan jumlah bilangan N: 3
Masukkan bilangan ke-1: 12
Masukkan bilangan ke-2: 14
Masukkan bilangan ke-3: 16
Rata-rata bilangan = 14
Kode Program
program input_rerata;
uses crt;
var n,angka,bilangan,jumlah :integer;
rerata :real;
begin
clrscr;
jumlah:=0;
angka:=0;
write('Masukkan jumlah bilangan N = ');readln(n);
writeln('Inputkan data integer ');
repeat
begin
write('Masukkan bilangan ke-',angka+1,' : ');readln(bilangan);
jumlah:=jumlah+bilangan;
angka:=angka+1;
end;
until angka>=n;
rerata:=jumlah/n;
writeln('============================');
writeln('Rata-rata bilangan = ',rerata:0:2);
writeln('============================');
readln;
end.
Contoh Output
Program Menghitung Jumlah Deret
Buatlah program untuk menghitung jumlah deret:
1 – 1/3 + 1/5 – 1/7 + 1/9 - ... ± 1/N
Dimana N adalah bilangan ganjil positif yang dibaca dari masukan pengguna
Kode Program
program deret_pecahan;
uses crt;
var n,i,j,satu :integer;
deret,jumlah :real;
begin
clrscr;
write('Masukkan bilangan maksimum bilangan ganjil positif : '); readln(n);
jumlah:=0;
i:=1;
j:=1;
satu:=1;
while (i<=n) do
begin
deret:=satu/i;
if (j mod 2 <> 0) then
begin
deret:=deret;
if (i=1) then
write('1')
else
write(' + ','1/',i);
end
else
begin
deret:=-deret;
write(' - ','1/',i);
end;
jumlah:=jumlah+deret;
i:=i+2;
j:=j+1;
end;
writeln;
writeln('===========================');
writeln();
writeln('Jumlah deret adalah ',jumlah:0:4);
writeln('===========================');
readln();
end.
Contoh Output
Program Menghitung Jumlah Bilangan Genap
Buatlah program yang meminta masukan N dan masukan angka-angka sebanyak N. Program akan menghitung jumlah nilai bilangan yang genap-genap saja. Misal pengguna ingin memasukkan 3 bilangan. Maka kira-kira outputnya sebagai berikut:
Masukkan jumlah bilangan N: 3
Masukkan bilangan ke-1: 12
Masukkan bilangan ke-2: 14
Masukkan bilangan ke-3: 17
Jumlah bilangan genap = 26
Kode Program
program menghitung_genap_saja;
uses crt;
var n,angka,bilangan,jumlah : integer;
begin
clrscr;
write('Masukkan jumlah bilangan : '); readln(n);
jumlah:=0;
angka:=0;
repeat
begin
write('Masukkan bilangan ke-',angka+1,' : ');readln(bilangan);
if bilangan mod 2 = 0 then
begin
jumlah:=jumlah+bilangan;
angka:=angka+1;
end
else
begin
angka:=angka+1
end
end;
until angka>=n;
writeln('============================');
writeln('Jumlah bilangan genap = ',jumlah);
readln;
end.
Contoh Output
Program Harga Fotokopi
Buatlah tabel harga fotokopian dari 1 –100 lembar, dimana harga perlembar kertas adalah 125 rupiah
TABEL HARGA FOTOKOPI
|---------|--------|
|LEMBAR |HARGA |
|---------|--------|
|1 |125 |
|2 |250 |
|3 |325 |
. .
. .
. .
|100 |12500 |
|---------|--------|
Kode Program
program harga_fotokopi;
uses crt;
var angka,harga,urut:integer;
begin
clrscr;
writeln('TABEL HARGA FOTOKOPI');
writeln('|----------|----------|');
writeln('| LEMBAR | HARGA |');
writeln('|----------|----------|');
harga:=125;
urut:=1;
angka:=0;
repeat
begin
writeln('|',urut,' |',harga,' |');
urut:=urut+1;
harga:=harga+125;
angka:=angka+1;
end;
until angka=100;
writeln('|----------|----------|');
readln;
end.
Contoh Output
Program Usia Mahasiswa
Dibaca data usia N orang mahasiswa Politeknik Statistika STIS dari masukan. Buatlah program untuk menghitung jumlah mahasiswa yang berusia 17 tahun, 18 tahun, 19 tahun, dan 20 tahun, dan jumlah mahasiswa yang berusia selain itu. Sehingga kira-kira outputnya:
Masukkan jumlah mahasiswa : 3
Masukkan usia mahasiswa ke-1: 17
Masukkan usia mahasiswa ke-2: 19
Masukkan usia mahasiswa ke-3: 21
Jumlah mahasiswa berusia 17 tahun = 1
Jumlah mahasiswa berusia 18 tahun = 0
Jumlah mahasiswa berusia 19 tahun = 1
Jumlah mahasiswa berusia 20 tahun = 0
Jumlah mahasiswa berusia selain itu = 1
Kode Program
program umur_mahasiswa;
uses crt;
var n,urut,umur,umur17,umur18,umur19,umur20,selain : integer;
begin
clrscr;
write('masukkan jumlah mahasiswa : '); readln(n);
urut:=1;
umur17:=0;
umur18:=0;
umur19:=0;
umur20:=0;
selain:=0;
while urut <= n do
begin
write('Umur mahasiswa ke-',urut, ' : '); readln(umur);
if umur mod 17 = 0 then
begin
umur17:= umur17 + 1;
end
else if umur mod 18= 0 then
begin
umur18:= umur18 + 1;
end
else if umur mod 19 = 0 then
begin
umur19:= umur19 + 1;
end
else if umur mod 20 = 0 then
begin
umur20:= umur20 + 1;
end
else
begin
selain:= selain + 1;
end;
urut:= urut + 1;
end;
writeln('============================================');
writeln('jumlah mahasiswa berusia 17 tahun : ',umur17);
writeln('jumlah mahasiswa berusia 18 tahun : ',umur18);
writeln('jumlah mahasiswa berusia 19 tahun : ',umur19);
writeln('jumlah mahasiswa berusia 20 tahun : ',umur20);
writeln('jumlah mahasiswa berusia selain itu : ',selain);
writeln('============================================');
readln;
end.
Contoh Output
Materi Lengkap
Silakan baca juga beberapa artikel menarik kami tentang Struktur Perulangan, daftar lengkapnya adalah sebagai berikut.
