fbpx

Algoritma dan Pemrogaman : Contoh Program Pengulangan tanpa Nested Loop

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.


Tonton juga video pilihan dari kami berikut ini

Bagikan ke teman-teman Anda

Contact Us

How to whitelist website on AdBlocker?

How to whitelist website on AdBlocker?

  1. 1 Click on the AdBlock Plus icon on the top right corner of your browser
  2. 2 Click on "Enabled on this site" from the AdBlock Plus option
  3. 3 Refresh the page and start browsing the site
error: Content is protected !!
Up