Seminární práce – Pascal – Fórum – Programujte.com

Ahoj,
.
Děkuji

Takže jestli to dobře chápu, máš několik řetězců (string), které potřebuješ složit do jednoho. Hmm... zkusme to třeba takhle:

1) Deklaruj si pomocný řetězec, do kterého budeš ukládat výsledky, na začátku do něj vlož jeden ze zadaných fragmentů (tento fragment vyřaď ze seznamu, který budeš ještě zpracovávat).
2) Pro n od 6 do 10:
- Vezmi n znaků ze začátku toho pomocného řetězce (funkce Copy).
- Projdi postupně všechny zbývající fragmenty, vezmi z nich stejným způsobem konce a porovnej s tím začátkem.
- Pokud je některý konec stejný jako ten začátek, tak:
a) Ten konec z příslušného fragmentu ukroj (procedura Delete),
b) zbylou část fragmentu připoj zleva k pomocnému řetězci,
c) tento fragment vyřaď ze seznamu (abys ho nezačal zpracovávat podruhé),
d) ukonči tento cyklus (třeba příkazem Break nebo nějakou podmínkou) a začni znovu od bodu 2.
- Pokud jsme ještě tady, zleva se nic připojit nedá. Tak to celé proveď ještě jednou pro druhý konec řetězce (porovnávej konec pomocného řetězce se začátky fragmentů, v případě shody je připojuj zprava).
3) To celé opakuj tak dlouho, dokud nezpracuješ a nepřipojíš všechny fragmenty.
4) Výsledek je v tom pomocném řetězci.

Pozice fragmentů ve výsledném textu bych hledal až potom, co by byl celý text složený - na takovéhle věci je ideální funkce Pos.

mno, tak z toho moc chytřejší nejsem, kolik času by zabralo napsat sem zdrojový kod? aspoň nějak polopatě. Děkuji

Dobrá, tady máš malý polopatický náznak:

const max=... {kolik fragmentu maximalne dostanes?}



var fragmenty:array[1..max] of record

                               obsah:string;

                               zpracovan:boolean;

                               end;

    vysledek:string;



    i,n:word;

    pom:string;

...



{inicializace:}

for i:=1 to max do

 with fragmenty[i] do begin

                      obsah:=... {nejak ho nacist}

                      zpracovan:=false;

                      end;



{ted zkontroluj, jestli jsou vsechny fragmenty aspon 6 znaku dlouhe, a jestli ne, tak nahlas chybu}



{algoritmus:}

vysledek:=fragmenty[1].obsah; fragmenty[1].zpracovan:=true;



for n:=6 to 10 do

 begin

 for i:=1 to max do with fragmenty[i] do {pro kazdy fragment}

  if not zpracovan then begin

                        if copy(obsah,length(obsah)-n+1,n)=copy(vysledek,1,n); {kdyz jeho konec pasuje na zacatek vysledku}

                          then begin

                               vysledek:=copy(obsah,1,length(obsah)-n)+vysledek; {pripojime k vysledku}

                               zpracovan:=true; {tenhle fragment je vyrizeny}

                               break; {konec vnitrniho foru}

                               end;

                        if copy(obsah,1,n)=copy(vysledek,length(vysledek)-n+1,n)

                          then begin

                               ...

                               {podobnym zpusobem over, jestli zacatek pasuje na konec vysledku}

                               ...

                               end;

                        end;

 end;

Mám dojem, že tento příklad byl v soutěži z programování v krajském kole v moravskoslezském kraji. Možná se ti ho podaří někde na internetu vyhrabat.

To Anonymní uživatel : Jo, byl tam, ale na netu nemají řešení.