A "szavak.txt" fájlnév kétszer szerepel a szövegben. Vajon a kettő ugyanaz a fájl lenne?
Ez esetben a fájlban található szavakat hosszúságuk alapján sorba kell rendezned. Ezután a leghosszabbtól kezdve mindaddig egyesével a "kimenet.txt" fájlba írni amíg a hossz az első elemével egyenlő.
Ha a "szavak.txt" kétszeri említése valójában kettő fájlt takar akkor az előbb említett sorba rendezést második fájl tartalmával kell elvégezni. Majd az elsőből minden olyan szót ki kell írni a "kimenet.txt" fájlba aminek a hossza a másodikból készült lista első elemének hosszával egyenlő.
A sorba rendezéshez használj egy tömböt amiben az elemek
PChar típusúak
string helyett. A
strings unit eljárásai a PChar típus használatához lettek megírva. Ebbe a tömbbe olvasd be a szavakat. Ha egy sorban több szó is lehet akkor a ReadLn által beolvasott (PChar) változó tartalmát a szóközöknél szét kell bontani és egyesével a tömbbe rakni. Ha egy sorban csak egy szó lehet akkor egyenesen a mehet a tömbe.
A sorba rendezés nagyjából ehhez hasonló eljárás:
CIKLUS A VÉGIGMEGY a TömbElsőtől a TömbUtolsóElőttiig
CIKLUS B VÉGIGMEGY a TömbMásodiktól a TömbUtolsóig
HA Tömb[A_dik].Hossza KISEBB MINT Tömb[B_dik].Hossza AKKOR
Ideiglenes ÉRTÉKE LEGYEN Tömb[A_dik] ÉRTÉKE
Tömb[A_dik] ÉRTÉKE LEGYEN Tömb[B_dik] ÉRTÉKE
Tömb[B_dik] ÉRTÉKE LEGYEN Ideiglenes ÉRTÉKE
XHA
XCIKLUS A
XCIKLUS B
(Ez nem pascal forráskód, viszont hibás lehet...)