8.5.. Napisati program za ispis trougla kao na slici sa željenim brojem redova: Opis programa:
Listing programa: PROGRAM p08514019; USES WinCrt; VAR { deklarisanje promjenljivih } i, j, n : Integer; Stepen : Real; { stepen } BEGIN WRITELN('Trougao'); { naslov } Write('Broj redova: '); { ulazne promjenljive } Readln(n); { broj redova } FOR i:=1 TO n DO BEGIN FOR J:=1 TO n DO IF i >= j THEN { ispod i na glavnoj dijagonali? } WRITE(2**(j-1),' '); { znak } WRITELN; END; END. Verzija 2 PROGRAM p08514019; VAR { deklarisanje promjenljivih } i, j, n : Integer; Stepen : Real; { stepen } BEGIN WRITELN('Trougao'); { naslov } Write('Broj redova: '); { ulazne promjenljive } Readln(n); { broj redova } FOR i:=1 TO n DO BEGIN FOR J:=1 TO n DO IF i >= j THEN { ispod i na glavnoj dijagonali? } BEGIN Stepen := EXP((j-1)*LN(2)); { 2 ** (j-1) } WRITE(trunc(Stepen), ' '); { stepen indeksa kolone - 1 } END; WRITELN; END; END. Ispis na ekranu:
|
||||||||||
|