Čau. Pomohli byste mi s tímhle programem. Pro znalce Pascalu je to lehký, jenže já jsem začátečník a s tim co umim mě nic nenapadá.. Asi podle nějakejch řetězců, ale ty jsme nebrali...
Fórum › Pascal
Prohození pořadí
![](img/forum_vlakno_help_vyreseno.png)
Viděl bych to asi takhle:
- Nadefinuj si proměnné. Budeš potřebovat vstupní text, jméno, příjmení a třídu, tedy celkem čtyři stringy. A jeden pomocný index, na ten stačí typ Byte. A možná ještě něco, podle potřeby.
- Vstup si nech zadat (Readln(řetězec)), ostatní nastav na prázdné (řetězec:='').
- Načti třídu. Tj.: zadaný řetězec čti znak po znaku (xtý znak řetězce přečteš jako řetězec[x], kde index x může jít od 1 do Length(řetězec)) a dokud ten znak není mezera nebo čárka, přidávej je k proměnné Třída (třída:=třída+písmeno nebo třída:=concat(třída,písmeno), vyjde to nastejno). Až narazíš na čárku, přeskoč ji (tj. jenom zvyš index o 1 a tu čárku nikam neukládej) a pak přeskoč všechny mezery, dokud nedojdeš zase k nějakému písmenu (nebo na konec vstupu, což je potřeba nahlásit jako chybu a program přerušit dřív, než havaruje nebo se zasekne).
- Stejným způsobem (od pozice, na kterou ses dostal v předchozím kroku) načti jméno a pak příjmení.
- Pospojuj načtená slova do nového uspořádání: výstup:=jméno+' '+příjmení+', '+... atd. a zobraz to (spojovat do jednoho řetězce je vlastně ani nemusíš, protože Writeln snese libovolný počet parametrů).
Existují samozřejmě i jiné postupy, např. hledat čárky funkcí Pos, číst slova funkcí Copy a vyřízené úseky odmazávat procedurou Delete, ale tenhle mi připadá pochopitelnější.
P.S.: Libo-li příručku? http://mircosoft.ic.cz/texty/ZAKLADY.TXT
Moje stránka.
![](img/forum_nove_psp_new.png)
Přidej příspěvek
Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku
×Vložení zdrojáku
×Vložení obrázku
×Vložení videa
![](/img/smile/1.gif)
![](/img/smile/2.gif)
![](/img/smile/3.gif)
![](/img/smile/4.gif)
![](/img/smile/5.gif)
![](/img/smile/6.gif)
![](/img/smile/7.gif)
![](/img/smile/8.gif)
![](/img/smile/9.gif)
![](/img/smile/10.gif)
![](/img/smile/11.gif)
![](/img/smile/12.gif)
![](/img/smile/13.gif)
![](/img/smile/14.gif)
![](/img/smile/15.gif)
![](/img/smile/16.gif)
![](/img/smile/17.gif)
![](/img/smile/18.gif)
![](/img/smile/19.gif)
![](/img/smile/20.gif)
![](/img/smile/21.gif)
![](/img/smile/22.gif)
![](/img/smile/23.gif)
![](/img/smile/24.gif)
![](/img/smile/25.gif)
![](/img/smile/26.gif)
![](/img/smile/27.gif)
![](/img/smile/28.gif)
![](/img/smile/29.gif)
![](/img/smile/30.gif)
![](/img/smile/31.gif)
![](/img/smile/32.gif)
Uživatelé prohlížející si toto vlákno
Podobná vlákna
Prohozeni poradi — založil Joeyz
Prohození menů — založil WeroJoNel
Prohození ukazatelů — založil Gavier
Prohozeni pozice divu — založil jupin
Tabulka - prohození řádků — založil Petr
Moderátoři diskuze