» Poradna » Programy

Pascalův trojúhelník

Odpovědět  |  Zobrazit bez stromu  |  Upozornit redakci  |  nových odpovědí: 7/7
 |   |  Microsoft Windows 7 Chrome 26.0.1410.64  |  [88.103.171.---]

Mám naprogramovat Pascalův trojúhelník ve VCL formuláři. Napsané to mám takhle, jenže nevypisuje se Pascalův trojúhelník, ale jen jeho pravá půlka. Mohl by mi někdo poradit, v čem je chyba? Díky moc.procedure TForm1.btnStartClick(Sender: TObject);var n,a,b,c:integer; begin lblVystup.caption:= ''; n:=StrToInt(edtVstup.Text); for a := 1 to n do begin for b := 1 to 2*(n-a)+1 do lblVystup.Caption:=lblVystup.Caption+ ''; for c := 1 to a do lblVystup.Caption:=lblVystup.Caption + IntToStr (T(c,a-c+1))+' '; lblVystup.Caption:=lblVystup.Caption + #13+#10;end;

Odpovědi na otázku

 |   |  Microsoft Windows 8 Chrome 26.0.1410.64

Co přesně to vypisuje? Není náhodou celý, ale zleva není odsazený?Tohle:lblVystup.Caption:=lblVystup.Caption+ '';totiž nedělá vůbec nic.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Chrome 26.0.1410.64  |  [88.103.171.---]
 |   |  Microsoft Windows 8 Chrome 26.0.1410.64

Takže je to přesně tak, jak jsem psal.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows XP Chrome 26.0.1410.64

Trojúhelník jako takový, respective data máš OK (nejde o pravou půlku). Jen výstupní formát není v pořádku.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Chrome 26.0.1410.64  |  [88.103.171.---]

aha, takže co s tím?

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 8 Chrome 26.0.1410.64

Odsadit začátek řádku.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Chrome 26.0.1410.64  |  [88.103.171.---]

Super. díky, už to běhá jak má

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Trojúhelník, Půlka



Určitě si přečtěte


Jak lidstvo zkrotilo páru: První pokusy o sestrojení parního stroje

Jak lidstvo zkrotilo páru: První pokusy o sestrojení parního stroje

** Zapřáhnout páru do služeb lidstva, to je myšlenka stará dvě tisíciletí ** Je opravdovým paradoxem, že spoutání páry se lidstvu povedlo v jistém směru ještě dříve, než vody a větru ** Cesta k prvnímu opravdovému parnímu stroji však rozhodně nebyla jednoduchá

16.  2.  2018 | Pavel Tronner | 10


Aktuální číslo časopisu Computer

Jak vznikají filmové efekty

Test ATX skříní a externích disků

Znáte svá práva při reklamaci?

Průvodce první instalací NASu