abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×
    dnes 16:11 | Komunita

    V Brestu dnes začala konference vývojářů a uživatelů linuxové distribuce Debian DebConf25. Na programu je řada zajímavých přednášek. Sledovat je lze online.

    Ladislav Hagara | Komentářů: 0
    dnes 11:33 | IT novinky

    Před 30 lety, tj. 14. července 1995, se začala používat přípona .mp3 pro soubory s hudbou komprimovanou pomocí MPEG-2 Audio Layer 3.

    Ladislav Hagara | Komentářů: 11
    dnes 10:55 | IT novinky

    Výroba 8bitových domácích počítačů Commodore 64 byla ukončena v dubnu 1994. Po více než 30 letech byl představen nový oficiální Commodore 64 Ultimate (YouTube). S deskou postavenou na FPGA. Ve 3 edicích v ceně od 299 dolarů a plánovaným dodáním v říjnu a listopadu letošního roku.

    Ladislav Hagara | Komentářů: 12
    včera 17:55 | Zajímavý projekt

    Společnost Hugging Face ve spolupráci se společností Pollen Robotics představila open source robota Reachy Mini (YouTube). Předobjednat lze lite verzi za 299 dolarů a wireless verzi s Raspberry Pi 5 za 449 dolarů.

    Ladislav Hagara | Komentářů: 11
    11.7. 16:44 | Komunita

    Dnes v 17:30 bude oficiálně vydána open source počítačová hra DOGWALK vytvořena v 3D softwaru Blender a herním enginu Godot. Release party proběhne na YouTube od 17:00.

    Ladislav Hagara | Komentářů: 3
    11.7. 14:55 | Humor

    McDonald's se spojil se společností Paradox a pracovníky nabírá také pomocí AI řešení s virtuální asistentkou Olivii běžící na webu McHire. Ian Carroll a Sam Curry se na toto AI řešení blíže podívali a opravdu je překvapilo, že se mohli přihlásit pomocí jména 123456 a hesla 123456 a získat přístup k údajům o 64 milionech uchazečů o práci.

    Ladislav Hagara | Komentářů: 16
    11.7. 00:11 | Nová verze

    Byla vydána (𝕏) červnová aktualizace aneb nová verze 1.102 editoru zdrojových kódů Visual Studio Code (Wikipedie). Přehled novinek i s náhledy a videi v poznámkách k vydání. Ve verzi 1.102 vyjde také VSCodium, tj. komunitní sestavení Visual Studia Code bez telemetrie a licenčních podmínek Microsoftu.

    Ladislav Hagara | Komentářů: 0
    10.7. 21:00 | Bezpečnostní upozornění

    Byla vydána nová verze 2.4.64 svobodného multiplatformního webového serveru Apache (httpd). Řešeno je mimo jiné 8 bezpečnostních chyb.

    Ladislav Hagara | Komentářů: 4
    10.7. 15:22 | Nová verze

    Společnost xAI na síti 𝕏 představila Grok 4, tj. novou verzi svého AI LLM modelu Grok.

    Ladislav Hagara | Komentářů: 12
    10.7. 12:55 | Bezpečnostní upozornění

    Ministerstvo vnitra odhalilo závažný kyberincident v IT systému resortu. Systém, do kterého se dostal útočník bez oprávnění, byl odpojen a nedošlo k odcizení dat [𝕏].

    Ladislav Hagara | Komentářů: 16
    Jaký je váš oblíbený skriptovací jazyk?
     (59%)
     (27%)
     (7%)
     (3%)
     (1%)
     (1%)
     (4%)
    Celkem 391 hlasů
     Komentářů: 16, poslední 8.6. 21:05
    Rozcestník

    Dotaz: Nefunkcni uprava retezcu

    19.2.2009 22:25 aGr
    Nefunkcni uprava retezcu
    Přečteno: 126×
    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.