» Poradna » Programy

Pascalův trojúhelník

 |   |  Microsoft Windows 7 Chrome 26.0.1410.64

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
 |   |  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

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

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


Aktuální číslo časopisu Computer

Jak rychlé je nabíjení bez drátů?

Test 11 sluchátek pro hráče

Aplikace, které vám zachrání dovolenou

Kompletní přehled datových tarifů