Looping

Looping adalah proses yg berulang,dalam pemrograman,looping diartikan sebagai suatu proses yg dilakukan berulang kali.
Dibuat program memasukkan password, misal password = ‘kunci’. selama password tidak
sama dengan (<>) ‘kunci’, program akan terus meminta password.

uses wincrt;
 
var username,  password  : string ;
begin
  repeat
    write('username : ');readln(username);
    write('password : ');readln(password);
    writeln('');
  until (username = 'user')and (password ='pass');
  writeln(username, ' , selamat datang');
end

program Contoh1;
var
   x: integer;
begin
   for x := 1  to 10 do
   begin
      write(x , ' ');
   end;
   readln;
end.

program Contoh2;
var
   y: integer;
begin
   for y := 15  downto 5 do
   begin
      write(y , ' ');
   end;
   readln;
end.

Program khasus1;
var
a,b,c,x : integer;

BEGIN 
    x := 50; // batas nilai prima
    for a:= 1 to x do // for pertama
    Begin
    
      c := 0; // jumlah pembagi bilangan prima
      for b: = 1 to a do  // for ke 3
      Begin
          if a mod b=0 then  // pengecekan sisa hasil pembagian
          c:=c+1; // jika sisanya 0 jumlah pembagi ditambah 1 
      end; // akhir for ke 2

      if c = 2 then // pengecekan jumlah pembagi, jika jumlah pembagi = 2 
maka cetak bilangan tersebut (berarti bilangan prima)
      begin
          write(a,' '); // cetak nilai bilangan prima
      end;
    
    end; // akhir for pertama

     readln;
END.

program khasus2;
var 
    baris,sepasi,piramit1,piramit2,jumbaris :integer;
begin
    jumbaris := 4;
    
    for baris :=1 to jumbaris do // for pertama
    begin
         for sepasi := jumbaris downto baris do // for ke 2
         begin
              write(' '); // mencetak segitiga spasi
         end; // akhir for 2
         
         for piramit1 := 1 to baris do // for 3
         begin
              write('x'); // mencetak segitiga x 1
         end; // akhir for 3
         
         for piramit2 := 2 to baris do // for 4
         begin 
              write('x'); // mencetak segitiga x 2
         end; // akhir for 4
         
         writeln; // mencetak baris baru
    end; // akhir for pertama
    readln;
end.

Demikian Listing program tentang looping, Semoga bermanfaat ya. Baca juga program pencarian huruf dalam kalimat.