Ciklicna strukutra - FOR petlja
Pelja u petlji- Višestruka FOR petlja - Ugnježđena petlja
 

Tekst zadatka

Rjesenje

1.

Listing programa:

PROGRAM P08514015_02;
VAR              { deklarisanje promjenljivih }
  i, j, n : Integer;  
  znak : Char;   { znak koji se ispisuje }
 
BEGIN
  WRITELN('Trougao');  { naslov }
   
  Write('Broj redova: ');    { ulazne promjenljive }
  Readln(n);                 { broj redova }
  Write('Znak '); 
  Readln(znak);             { znak }
 
  FOR i:=1 TO n DO
    BEGIN
      WRITE('x');     { znak u prvoj koloni}
      FOR j := 2 TO i DO  { znak u prvoj koloni prikazan pocinje od j=2}
        WRITE(znak);  { I prazno mjesto znak i prazno mjesto }
      WRITELN;
    END;
  READLN;
END.

Trougao
Broj redova: 5
Znak a
x
xa
xaa
xaaa
xaaaa
2.

Listing programa:

PROGRAM P08514015;
VAR              { deklarisanje promjenljivih }
  i, j, n : Integer;  
  znak : Char;   { znak koji se ispisuje }
  
BEGIN
  WRITELN('Trougao');  { naslov }
    
  Write('Broj redova: ');    { ulazne promjenljive }
  Readln(n);                 { broj redova }
  Write('Znak '); 
  Readln(znak);             { znak }
  
  FOR i:=1 TO n DO
    BEGIN
      WRITE('x');     { znak u prvoj koloni}
      FOR j := 2 TO i DO  { znak u prvoj koloni prikazan pocinje od j=2}
        WRITE(' ', znak);  { I prazno mjesto znak i prazno mjesto }
      WRITELN;
    END;
  READLN;
END.

Trougao
Broj redova: 5
Znak a
x
x a
x a a
x a a a
x a a a a
3.

Listing programa:

PROGRAM P08514015;
VAR              { deklarisanje promjenljivih }
  i, j, n : Integer;  
  znak : Char;   { znak koji se ispisuje }
   
BEGIN
  WRITELN('Trougao');  { naslov }
     
  Write('Broj redova: ');    { ulazne promjenljive }
  Readln(n);                 { broj redova }
  Write('Znak '); 
  Readln(znak);             { znak }
   
  FOR i:=1 TO n DO
    BEGIN
      WRITE('x');     { znak u prvoj koloni}
      FOR j := 2 TO i DO  { znak u prvoj koloni prikazan pocinje od j=2}
        WRITE(' I ', znak);  { I prazno mjesto znak i prazno mjesto }
      WRITELN;
    END;
  READLN;
END.

Trougao
Broj redova: 5
Znak a
x
x I a
x I a I a
x I a I a I a
x I a I a I a I a

 

Ciklična struktura     Index