8.5.. Napisati program za ispis trougla kao na slici sa željenim brojem redova: .
Opis programa: Stranice trougla se odvojeno generišu. Lijeva stranica je glavna dijagonala i neophodan je prikaz praznog prostora radi desne strance koja je sporedna dijagonala. Na slici je prikazan odnos redova i kolona.
|
Slika 1. Glavna dijagonala i=j |
Listing programa:
PROGRAM p08514043;
USES
WinCrt;
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 j := 1 TO 2 * n - 1 DO
WRITE(znak); { previ red }
WRITELN;
FOR i := 2 TO n - 1 DO
BEGIN
FOR j:=1 TO n - 1 DO
BEGIN
IF i = j THEN { na glavnoj dijagonali? }
WRITE(znak) { na glavnoj dijagonali: 1 znak }
ELSE
WRITE(' '); { ispod glavne dijagonale: prazno }
END;
FOR j:= 1 TO n - 1 DO
BEGIN
IF i + j = n + 1 THEN { desno - na sporednoj dijagonali? }
WRITE(znak) { desno - na sporednoj dijagonali 1 znak }
ELSE
WRITE(' '); { ispod sporedne dijagonale prazno }
END;
WRITELN; { na glavnoj dijagonali: 1 znak }
END;
FOR j:=1 TO n - 1 DO
WRITE(' '); { poslednji red }
WRITELN(znak); { na glavnoj dijagonali: 1 znak }
END.
Ispis na ekranu:
Index
|