8.5.. Napisati program za ispis trougla kao na slici sa željenim brojem redova: Opis programa: Ispisuju se samo neparni redovi (IF i MOD 2 = 1 THEN). Do sporedne dijagonale ispisuje se prazan prostor. Od sporedne dijagonale ispisuje se znak i prazan prostor Write(znak, ' '), tako se dobija širi trougao. Početni listing programa (vidi zadatak >>)
Listing programa: PROGRAM p08514013; USES WinCrt; { 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 IF i MOD 2 = 1 THEN { ispis neparnih } BEGIN FOR j := 1 TO n DO { ispis kolone } IF (i + j) >= (n + 1) THEN { od poredne dijagonale? } Write(znak, ' ') { znak i prazno mjesto } ELSE { inace } Write(' '); { prazan prostor } WRITELN; END; END. Ispis na ekranu:
|
||||||||||
|