» 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


Neuronová síť Nvidie ukázala, že už brzy nebudeme moci věřit fotografii

Neuronová síť Nvidie ukázala, že už brzy nebudeme moci věřit fotografii

** Zpravodajství je už déle než sto let založené na fotografii ** Vývoj na poli A.I. CGI ale ukazuje blížící se problém ** V éře A.I. bude pochybné téměř vše

5.  12.  2017 | Jakub Čížek | 29

Nejlepší raketa vzduch-vzduch na světě vzejde ze spolupráce Japonců a Britů

Nejlepší raketa vzduch-vzduch na světě vzejde ze spolupráce Japonců a Britů

** Japonsko a Velká Británie utvořili tým, který vyvíjí unikátní střelu pro vzdušné souboje ** Měla by být dokonce lepší, nežli legendární raketa AMRAAM americké U. S. Air Force ** Dotyčná raketa bude náležet do výzbroje stealth letounů v obou zemích

7.  12.  2017 | Stanislav Mihulka | 1