» 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

Podívejte se, co se stane, když dron DJI Phantom narazí do křídla letadla

Podívejte se, co se stane, když dron DJI Phantom narazí do křídla letadla

** Co se může stát, když relativně maličký dron narazí do křídla letadla? ** Tuto otázku zodpověděli odborníci laboratorním pokusem ** Kvadrokoptéra způsobila významné poškození křídla

Karel Kilián | 17

Říjnová aktualizace způsobuje na počítačích HP „modrou obrazovku smrti“

Říjnová aktualizace způsobuje na počítačích HP „modrou obrazovku smrti“

** Uživatelé hlásí další problémy s kumulativní aktualizací KB4464330 ** Na některých počítačích HP končí update „modrou obrazovkou smrti“ ** Na vině je patrně ovladač klávesnice

Karel Kilián | 79

Šmírování kamerami Googlu: Koukněte se, co zachytily na Street View

Šmírování kamerami Googlu: Koukněte se, co zachytily na Street View

Google stále fotí celý svět do své služby Street View. A novodobou zábavou je hledat v mapách Googlu vtipné záběry. Podívejte se na výběr nejlepších!

redakce | 44


Aktuální číslo časopisu Computer

Odhalte skryté funkce Windows 10

Test levných Androidů do 4 000 Kč

Srovnání úsporných minipočítačů

Změřili jsme rychlost 10Gb/s ethernetu