abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×

    dnes 06:00 | Humor

    Programovací jazyk HTML.

    Ladislav Hagara | Komentářů: 3
    včera 23:00 | Upozornění

    Podpora TORu v Debianu 11 Bullseye a 10 Buster byla ukončena. Doporučuje se přechod na Debian 12 Bookworm.

    Ladislav Hagara | Komentářů: 0
    včera 22:33 | IT novinky

    Příkaz "opakuj donekonečna" je nově v rozporu s podmínkami používání ChatGPT. Příkaz vedl k prozrazení trénovacích dat [/.].

    Ladislav Hagara | Komentářů: 5
    včera 21:55 | Nová verze

    GNU Project Debugger aneb GDB byl vydán ve verzi 14.1. Podrobný přehled novinek v souboru NEWS. Vypíchnout lze podporu NO_COLOR a Debugger Adapter Protocol (DAP).

    Ladislav Hagara | Komentářů: 0
    včera 16:55 | Nová verze

    Byla vydána verze 5.0 webového aplikačního frameworku napsaného v Pythonu Django (Wikipedie). Přehled novinek v poznámkách k vydání.

    Ladislav Hagara | Komentářů: 0
    včera 16:44 | Nová verze

    TuxClocker je Qt GUI nástroj pro monitorování a nastavování (přetaktovávání) hardwaru na Linuxu. Aktuální verze je 1.4.0. Z novinek lze vypíchnout monitorování využití AMD a NVIDIA VRAM nebo sledování spotřeby energie procesorů AMD a Intel.

    Ladislav Hagara | Komentářů: 0
    3.12. 09:44 | Komunita

    O víkendu (15:00 až 23:00) probíhá EmacsConf 2023, tj. online konference vývojářů a uživatelů editoru GNU Emacs. Sledovat ji lze na stránkách konference. Záznamy jsou k dispozici přímo z programu.

    Ladislav Hagara | Komentářů: 9
    2.12. 17:44 | Komunita

    Na čem aktuálně pracují vývojáři GNOME a KDE? Pravidelný přehled novinek i s náhledy aplikací v Týden v GNOME a Týden v KDE.

    Ladislav Hagara | Komentářů: 3
    1.12. 21:55 | Nová verze

    Organizace Apache Software Foundation (ASF) vydala verzi 20 integrovaného vývojového prostředí a vývojové platformy napsané v Javě NetBeans (Wikipedie). Přehled novinek na GitHubu. Instalovat lze také ze Snapcraftu a Flathubu.

    Ladislav Hagara | Komentářů: 0
    1.12. 17:22 | Nová verze

    Desktopové prostředí Cinnamon, vyvíjené primárně pro distribuci Linux Mint, dospělo do verze 6.0. Seznam změn obsahuje především menší opravy a v říjnovém přehledu novinek v Mintu avizovanou experimentální podporu Waylandu.

    Fluttershy, yay! | Komentářů: 10
     (44%)
     (11%)
     (45%)
    Celkem 55 hlasů
     Komentářů: 1, poslední včera 22:13
    Rozcestník

    Dotaz: Nefunkcni uprava retezcu

    19.2.2009 22:25 aGr
    Nefunkcni uprava retezcu
    Přečteno: 106×
    Mam program:
    ...
    assign(obce,'obce.txt');
    reset(obce);
    assign(nazvy,'result.txt');
    rewrite(nazvy);
    readln(obce,obsah);

    while not EOLN(obce) do
    begin
    mez1:=pos('(',obsah);
    mez2:=pos(')',obsah);
    delete(obsah,mez1,mez2-mez1+2);
    end;

    writeln(obsah);
    close(obce);
    close(nazvy);

    nevypise vsak nic. Zato pokud vynecham while cyklus a napisu pouze:

    readln(obce,obsah);
    mez1:=pos('(',obsah);
    mez2:=pos(')',obsah);
    delete(obsah,mez1,mez2-mez1+2);

    pro prvni retezec vse probehne naprosto v poradku, tak jak ma.
    Zkousel jsem i "while not EOLN(obce) do" nahradit za "for i:=1 to length(obsah) do" jenze naprosto beze zmeny. Nevim si rady, naky napady?

    Odpovědi

    19.2.2009 22:31 Andrej Herceg | skóre: 43
    Rozbalit Rozbalit vše Re: Nefunkcni uprava retezcu
    Vôbec netuším, čo by ten program mal robiť (nikde to tam nie je napísané) :)

    Podľa mňa by to mohlo vyzerať nejako takto (ale ako som už napísal, netuším, čo to má robiť, takže možno to nebude to, čo potrebuješ):
    assign(obce,'obce.txt');
    reset(obce);
    assign(nazvy,'result.txt');
    rewrite(nazvy);
    
    while not Eof(obce) do 
    begin
    	readln(obce,obsah);
    	mez1:=pos('(',obsah);
    	mez2:=pos(')',obsah);
    	delete(obsah,mez1,mez2-mez1+2);
    	writeln(obsah);
    end;
    
    close(obce);
    close(nazvy);
    20.2.2009 14:10 aGr
    Rozbalit Rozbalit vše Re: Nefunkcni uprava retezcu
    Promin, doplneni :): Mam soubor obce.txt, ktery obsahuje nazvy mest a okresy - napr.: benešov( benešov ) , bernartice( benešov - vlašim )... Mam za ukol odstranit zavorky a vypsat pouze mesta. Cili vysledek by mel vypadat benešov , bernartice... Je jasny, ze to cely, co jsem napsal, pak jeste bude cele ve "while not EOF(obce) do". Ja to zatim zkousim pouze pro jeden retezec. Hlavni je, ze kdyz obsah ve while cyklu vyndam, prikaz se provede spravne (akorat jednou samozrejme). Take jsem ted zjistil, ze kdyz to zkompiluju ve starym Borland Pascalu 7, tak to funguje... Ja pouzivam Dev-Pascal, ale zkousel jsem to i v jinem, ale bez vysledku.

    Založit nové vláknoNahoru

    Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.