» 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

Galerie: Navštívili jsme Cosmos Discovery. Uvidíte Sojuz, Mir i kokpit raketoplánu

Galerie: Navštívili jsme Cosmos Discovery. Uvidíte Sojuz, Mir i kokpit raketoplánu

** Brno hostí do konce léta unikátní výstavu Cosmos Discovery ** Uvidíte zde celou historii kosmonautiky ** Stovky originálů i detailních maket

Jakub Čížek, Antonín Trčálek | 4

USB-C už mělo být všude, ale není. Tak kde to vázne?

USB-C už mělo být všude, ale není. Tak kde to vázne?

** Konektor USB-C byl představen už před čtyřmi roky ** Praktické univesrzální rozhraní však stále není rozšířeno ** Výrobcům hardwaru se do změny moc nechce

David Polesný, Vladislav Kluska | 87

Apple: naše mapy budou nejlepší na světě. Tajně jsme na nich pracovali několik let

Apple: naše mapy budou nejlepší na světě. Tajně jsme na nich pracovali několik let

** Apple odhalil své plány na zcela nové mapy ** Několik let pracuje na nových mapách, které by měly předběhnout konkurenci ** Objeví se s příchodem iOS 12 pro vybrané státy

Karel Javůrek | 50


Jízdní řády Bileto
Aktuální číslo časopisu Computer

Jak mobily určují svoji polohu?

Velký test notebooků pro studenty

Nejlepší reproduktory na párty

Služby a aplikace pro výuku angličtiny