fbpx

Algoritma dan Pemrogaman : Contoh Program Pengulangan dengan Nested Loop

Program Cetak Angka

Buatlah program untuk mencetak output seperti di bawah ini dimana yang diinput hanya jumlah barisnya saja.

0 1 2 3 4 5 6 7 8 9 
9 8 7 6 5 4 3 2 1 0 
0 1 2 3 4 5 6 7 8 9 
9 8 7 6 5 4 3 2 1 0 
0 1 2 3 4 5 6 7 8 9

Kode Program

program angka;
uses crt;
var i,j,n:integer;

begin
    clrscr;
    write('Masukkan jumlah baris = ');
    readln(n);
    For i:= 1 to n do
    Begin
     If i mod 2<>0 then
         begin
             For j:= 0 to 9 do
             Write(j:1);
         end
       Else
         begin
             For j:= 9 downto 0 do
             Write (j:1);
         end;
    Writeln;
End;
readln;
end.

Contoh Output


Program Segitiga Penuh Rata Kiri, Rata Kanan, dan Rata Tengah

Kode Program

Program segitigapenuh;
uses crt;
var
  i,j,k,n,pilihan:integer;
  c            :char;
begin
    clrscr;
    writeln('   Silahkan Pilih Menu yang Anda inginkan ');
    writeln('1. Segitiga rata kiri');
    writeln('2. Segitiga rata kanan');
    writeln('3. Segitiga rata tengah');
    write('   Pilihan Anda = ');
    readln(pilihan);
case pilihan of
{Segitiga Rata Kiri}
    1: begin
           write('Masukkan karakter yang diinginkan = ');readln(c);
           write('Masukkan lebar                    = ');readln(n);
           for i:=1 to n do
              begin
                 for j:=1 to i do
                 write(c:2);
                 writeln;
              end;
       end;
{Segitiga Rata Kanan}
    2: begin
           write('Masukkan karakter yang diinginkan = ');readln(c);
           write('Masukkan lebar                    = ');readln(n);

           for i:=1 to n do
              begin
                 for j:=1 to n do
                    if (j<=n-i+1) then
                       write(' ':2)
                    else write(c:2);
                 writeln;
              end;
       end;
{Segitiga Rata Kanan}
    3: begin
           write('Masukkan karakter yang diinginkan = ');readln(c);
           write('Masukkan lebar                    = ');readln(n);
           for i:=1 to n do
              begin
                 for j:=n downto i do
                    write(' ');
                 for k:=1 to i do
                    write(c:2);
                 writeln;
              end;
       end;
end;
readln;
end.

Contoh Output

Segitiga Penuh Rata Kiri

Segitiga Penuh Rata Kanan

Segitiga Penuh Rata Tengah


Program Segitiga Kosong Tengah Rata Kiri, Rata Kanan, dan Rata Tengah

Kode Program

Program penugasan73;
uses crt;
var
  i,j,k,n,pilihan,spasi:integer;
  c                    :char;
begin
    clrscr;
    writeln('   Silahkan Pilih Menu yang Anda inginkan ');
    writeln('1. Segitiga kosong tengah rata kiri');
    writeln('2. Segitiga kosong tengah rata kanan');
    writeln('3. Segitiga kosong tengah rata tengah');
    write('   Pilihan Anda = ');
    readln(pilihan);
case pilihan of
{Segitiga Kosong Tengah Rata Kiri}
    1: begin
           write('Masukkan nilai n                  = ');readln(n);
           write('Masukkan karakter yang diinginkan = ');readln(c);
           for i:=1 to n do
              begin
                 for j:=1 to n do
                        if (j=1) or (i=n) or (j=i) then
                        write(c:2)
                        else
                        write(' ':2);
                writeln;
              end;
       end;
{Segitiga Kosong Tengah Rata Kanan}
    2: begin
           write('Masukkan nilai n                  = ');readln(n);
           write('Masukkan karakter yang diinginkan = ');readln(c);
           for i:=1 to n do
              begin
                 for j:=1 to n do
                        if (j=n) or (i=n) or (j=n-i+1) then
                        write(c:2)
                        else
                        write(' ':2);
                writeln;
              end;
       end;
{Segitiga Kosong Tengah Rata Tengah}
    3: begin
           write('Masukkan nilai n                  = ');readln(n);
           write('Masukkan karakter yang diinginkan = ');readln(c);
           for i := 1 to n do
               begin
                   for spasi := 1 to n-i+1 do
                   write (' ');

	               for j:= 1 to i do
	                   if (j=1) or (j=i) or (i=n) then
	                       write (c:2)
	                   else
	                   write (' ':2);
	               writeln;
	       end
       end;
end;
readln;
end.

Contoh Output

Segitiga Kosong Tengah Rata Kiri

Segitiga Kosong Tengah Rata Kanan

Segitiga Kosong Tengah Rata Tengah


Program Segitiga Pascal

Kode Program

program segitigapascal;
uses crt;
var i,j,k,m,n,r:integer;
    com        :real;
begin
    clrscr;
    writeln('Inputkan jumlah baris = ');
    write('n = ');readln(n);
    m:=0;
    for i:=1 to n do
    begin
        r:=0;
        for j:=1 to n do
        begin
            if (j<n-i+1) then write(' ':3)
            else
            begin
                com:=1;
                for k:=1 to r do
                    com:=com*(m-k+1)/k;
                write(com:3:0);
                write(' ':3);
                r:=r+1;
            end;
        end;
        writeln;
        m:=m+1;
    end;
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