8.6.. Napisati program za ispis trougla kao na slici sa željenim brojem redova:
.
Opis programa: Na slici je prikazan odnos redova i kolona.
![](10901t_11.jpg) |
Slika 1. Glavna dijagonala i=j |
Listing programa:
PROGRAM p08614019;
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 }
i := 1;
WHILE i <= n DO
BEGIN
j := 1;
WHILE j <= n DO
BEGIN
IF i >= j THEN { ispod i na glavnoj dijagonali? }
WRITE(2**(j-1),' '); { znak }
j := j + 1;
END;
WRITELN;
i := i + 1;
END;
END.
Verzija 2
PROGRAM p08614019;
VAR { deklarisanje promjenljivih }
i, j, n : Integer;
Stepen : Real; { stepen }
BEGIN
WRITELN('Trougao'); { naslov }
Write('Broj redova: '); { ulazne promjenljive }
Readln(n); { broj redova }
i := 1;
WHILE i <= n DO
BEGIN
j := 1;
WHILE j <= n DO
BEGIN
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;
j := j + 1;
END;
WRITELN;
i := i + 1;
END;
END.
Ispis na ekranu:
![](../../pascal_prir/085/085_izvedi/08514019.gif)
Index
|