Lazarus 3.0 (2023.12.21.)
Letöltés

  • Oldal:
  • 1

TÉMA:

Válasz:lehosszabb szó 2010 okt. 09 18:04 #616

  • thadam
  • thadam profilkép Témaindító
  • Új tag
  • Új tag
  • Hozzászólások: 14
  • Köszönetek: 0
Bocs ha érthetetlenül fogalmaztam. Szóval csak két fajl van.
bemeneti fajl: szavak.txt
kimeneti fajl: kimenet.txt

Válasz:lehosszabb szó 2010 okt. 09 17:52 #615

  • Gábor
  • Gábor profilkép
  • Adminisztrátor
  • Adminisztrátor
  • Hozzászólások: 504
  • Köszönetek: 86
:S
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...)
Hogyan kérdezzünk okosan? / Mit kell tennünk kérdezés előtt? -- Lazarus 3.0 -- FPC 3.2-- GNU/Linux 5.15.0 x86_64

lehosszabb szó 2010 okt. 09 16:48 #614

  • thadam
  • thadam profilkép Témaindító
  • Új tag
  • Új tag
  • Hozzászólások: 14
  • Köszönetek: 0
Hello kaptam egy érdekes feladatot! Nem tudom megoldani sajnos...Afeladat maga egyszerű lenne de a kritériumok miatt nem jut semmi okos az eszembe. Ha vki tudna segíteni, vagy elég ha van ötlete h kellene megprogramozni akkor azt szivesen látom. Nem kész programot kérek csak ötletet! Íme a feladat:

Van egy szöveges fajl "szavak.txt"! Ki kell szedni ebből a fajlból és egy másik pl. "kimenet.txt" fajlba írni azokat a szavakat amelyek hossza megegyezik a "szavak.txt" fajl leghosszab szavának hosszával.
Feltétel:
1 - Nem használható String;
2 - Nem lehet elöször a "szavak.txt" fajl leghosszabb szaavát keresni.

Ha tudtok vmit segíteni akkor hálás lennek. Köszönöm!

  • Oldal:
  • 1