8.6.. Napisati program da ne ispisuje ime u prvom redu. Jedno ime u drugom, a zatim u svakom narednom po jedno ime više. Broj redova učitati sa tastature.
![](085_zad/08514057.gif)
Opis rješenja: Dvije WHILE petlja od 1 do 3 se mijenjaju brojači. Unutrašnja petlja prvo ima jedan prolaz j=1, zatim 2 i na kraju 3 prolaza.
Opis programa: Na slici je prikazan odnos redova i kolona.
![](10901t_11.jpg) |
Slika 1. Glavna dijagonala i=j |
Listing programa:
PROGRAM p08614057;
USES
WinCrt;
VAR
i, j, n: INTEGER;
BEGIN
WRITE('Broj redova: '); { ulazne promjenljive }
READLN(n); { broj redova }
i := 1;
WHILE i <= n DO { petlja za redove }
BEGIN
j := 1;
WHILE j <= n DO { petlja za kolona }
BEGIN
IF i >= j THEN { ispod i na glavnoj dijagonali }
WRITE('IME ');
j := j + 1;
END;
WRITELN;
i := i + 1;
END;
END.
Ispis na ekranu:
![](../../pascal_prir/085/085_izvedi/08514057.gif)
Index
|