Prohození pořadí – Pascal – Fórum – Programujte.com

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

Řetězec je pole znaků, takže jestli jste brali pole, tak umíš i řetězce :). A kam si se zatím dobral?

já jsem tam na to nebyl, protože jsem byl v nemocnici s nohou... takže Pole ani řetězce neumim.. snažim se to doučit doma, ale programování mi nejde..

koukám nějakej string concat, na spojení řetězců, ale nevim jak se to zapisuje...

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