Jumat, 30 November 2018

MATERI LOGIKA DAN ALGORITMA PERULANGAN (LOOPING)



FOR - DO

program for_do_loop1;
uses crt;
var
  i: integer;
begin
  clrscr;

    for i := 1  to 20 do
      begin
        writeln('Selamat Pagi');
      end;
   
  readln;
end.


program for_do_loop2;
uses crt;
var
  i: integer;
begin
  clrscr;

    for i := 1  to 20 do
      begin
        writeln('Selamat Pagi ke - ',i);
      end;
   
  readln;
end.


program for_do_loop3;
uses crt;
var
  i: integer;
begin
  clrscr;

    for i := 1  to 10 do
      begin
        writeln('7 x ',i,' = ',7 * i);
      end;
   
  readln;
end.


program for_do_loop4;
uses crt;
var
  i,angka: integer;
begin
  clrscr;
    writeln('========================');
    writeln('Program Daftar Perkalian');
    writeln('========================');
    writeln;
   
    write('Input perkalian yang diinginkan: ');
    readln(angka);
   
    writeln;
    for i := 1  to 10 do
      begin
        writeln( i ,' x ', angka ,' = ', i * angka);
      end;
   
  readln;
end.



FOR - DOWN - TO

program for_do_loop5;
uses crt;
var
  i: integer;
begin
  clrscr;

    for i := 10  downto 0 do
      begin
        writeln('Hitung mundur: ',i);
      end;
   
  readln;
end.


program for_downto_loop1;
uses crt;
var
  i: integer;
begin
  clrscr;

    for i := 10  downto 1 do
      begin
        writeln('Perkalian 7 * ', i ,' adalah = ', 7 * i);
      end;
   
  readln;
end.


program for_downto_loop2;
uses crt;
var
  anak_ayam,i: integer;
begin
  clrscr;

    writeln('==============');
    writeln('Lagu Anak Ayam');
    writeln('==============');
    writeln;

    write('Input jumlah anak ayam: ');
    readln(anak_ayam);
    writeln;

    for i := anak_ayam downto 1 do
      begin
        writeln('Anak ayam turun ',i,' pergi 1, tinggal ',i-1);
      end;

  readln;
end.



WHILE - DO

program while_do1;
uses crt;
var
  i: integer;
begin
  clrscr;
  i:= 0;

  while i < 10 do
    begin
      writeln('Hello World');
      i:= i + 1;
    end;
   
  readln;
end.

program while_do2;
uses crt;
var
  i: integer;
begin
  clrscr;
  i:= 0;

  while i < 10 do
    begin
      writeln('Variabel i sekarang bernilai: ',i);
      i:= i + 1;
    end;
  readln;
end.

program while_do3;
uses crt;
var
  i: integer;
begin
  clrscr;
  i:= 5;

  while i <= 10 do
    begin
      writeln('Variabel i sekarang bernilai: ',i);
      i:= i + 1;
    end;
  readln;
end.

program while_do4;
uses crt;
var
  i: integer;
begin
  clrscr;
  i:= 5;

  while i < 11 do
    begin
      writeln('Variabel i sekarang bernilai: ',i);
      i:= i + 1;
    end;
  readln;
end.

program while_do5;
uses crt;
var
  i: integer;
begin
  clrscr;
  i:= 5;

  while i < 11 do
    begin
      writeln('Variabel i sekarang bernilai: ',i);
    end;
  readln;
end.

program while_do6;
uses crt;
var
  i: integer;
begin
  clrscr;
  i:= 100;

  while i >= 0 do
    begin
      writeln('Hitung mundur: ',i);
      i:= i - 1;
    end;
  readln;
end.

program while_do7;
uses crt;
var
  i: integer;
begin
  clrscr;
  i:= 3;

  writeln('Berikut deret untuk kelipatan 3: ');
 
  while i <= 30 do
    begin
      write(i,' ');
      i:= i + 3;
    end;
  readln;
end.


REPEAT - UNTIL

program repeat_until1;
uses crt;
var
  i: integer;
begin
  clrscr;
  i:= 0;

  repeat
    begin
      writeln('Hello World');
      i:= i + 1;
    end;
  until i = 10;
  readln;
end.

program repeat_until2;
uses crt;
var
  i: integer;
begin
  clrscr;
  i:= 0;

  repeat
    begin
      writeln('Variabel i sekarang bernilai: ',i);
      i:= i + 1;
    end;
  until i = 10;
  readln;
end.

program repeat_until3;
uses crt;
var
  i: integer;
begin
  clrscr;
  i:= 10000;

  repeat
    begin
      writeln('Variabel i sekarang bernilai: ',i);
      i:= i + 1;
    end;
  until i > 10;
  readln;
end.

program repeat_until4;
uses crt;
var
  i: integer;
begin
  clrscr;
  i:= 5;

  writeln('Berikut deret untuk kelipatan 5: ');

  repeat
    begin
      write(i,' ');
      i:= i + 5;
    end;
  until i > 100;
  readln;
end.