8.5.. Napisati program za ispis trougla kao na slici sa željenim brojem redova: .
Opis programa: Stranice trougla se odvojeno generišu. Lijeva je sporedna dijagonala i neophodan je prikaz praznog prostora radi desne strance koja je glavna dijagonala.
Na slici je prikazan odnos redova i kolona.
|
Slika 1. Glavna dijagonala i=j |
|
Slika 1. Sporedna dijagonala i+j = n+1 |
Listing programa:
PROGRAM p08514042;
USES
WinCrt;
VAR { deklarisanje promjenljivih }
i, j, n, k : 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 - 1 DO { od 1. do pretposljednje reda }
BEGIN
FOR j:=1 TO n DO { lijevi dio trougla - sporedna dijagonala }
IF (i + j) = (n + 1) THEN { sporedna dijagonala? }
WRITE(znak) { znak }
ELSE { inace }
WRITE(' '); { prazno }
FOR k := 2 TO n DO { desni dio se ispisuje tek od drugog reda - glavna dijagonala }
IF i = k THEN { glavna dijagonala? }
WRITE(znak) { znak }
ELSE
WRITE(' '); { prazno }
WRITELN;
END;
FOR j:=1 TO 2 *n - 1 DO
Write(znak); { znak i mjesto }
WRITELN;
END.
Ispis na ekranu:
Index
|