8.5.. Napisati program za ispis trougla kao na slici sa željenim brojem redova: .
Opis programa: Na slici je prikazan odnos redova i kolona.
|
Slika 1. Sporedna dijagonala i+j = n+1 |
Listing programa:
PROGRAM p08514029;
USES
WinCrt;
VAR { deklarisanje promjenljivih }
i, j, n, k : Integer;
BEGIN
WRITELN('Trougao'); { naslov }
WRITE('Broj redova: '); { ulazne promjenljive }
READLN(n); { broj redova }
FOR i:= n DOWNTO 1 DO
BEGIN
k := i; { brojac - pocetna vrijedost indeks reda}
FOR j:=1 TO i DO
BEGIN
WRITE(k, ' '); { brojac }
k := k + 1; { brojac + 1}
END;
WRITELN;
END;
END.
Ispis na ekranu:
Index
|