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 18:55 | IT novinky

    Sam Bankman-Fried, zakladatel zkrachovalé kryptoměnové burzy FTX, byl dnes odsouzen k 25 letům vězení [Yahoo Finance].

    Ladislav Hagara | Komentářů: 0
    dnes 18:33 | IT novinky Ladislav Hagara | Komentářů: 0
    dnes 13:11 | Nová verze

    Byla vydána nová verze 2.53.18.2 svobodného multiplatformního balíku internetových aplikací SeaMonkey (Wikipedie). Přehled novinek v poznámkách k vydání.

    Ladislav Hagara | Komentářů: 0
    dnes 00:22 | Zajímavý článek

    Na blogu programovacího jazyka Swift byl publikován příspěvek Psaní aplikací pro GNOME v programovacím jazyce Swift. Používá se Adwaita pro Swift.

    Ladislav Hagara | Komentářů: 4
    včera 17:44 | Zajímavý software

    egui je GUI knihovna pro programovací jazyk Rust běžící na webu i nativně. Vydána byla verze 0.27.0.

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

    Byla vydána nová verze 6.1 živé linuxové distribuce Tails (The Amnesic Incognito Live System), jež klade důraz na ochranu soukromí uživatelů a anonymitu. Přehled změn v příslušném seznamu. Tor Browser byl povýšen na verzi 13.0.13. Thunderbird na verzi 115.9.0.

    Ladislav Hagara | Komentářů: 0
    včera 14:44 | IT novinky

    Linka STOPonline.cz v roce 2023 přijala 3700 hlášení závadného obsahu na internetu, 22 bylo předáno PČR, 23 bylo předáno ISP a 944 závadových domén zobrazujících dětskou nahotu či pornografii bylo nahráno do mezinárodního systému ICCAM, který je spravován asociací INHOPE.

    Ladislav Hagara | Komentářů: 6
    26.3. 20:44 | Zajímavý článek

    Byla publikována podrobná analýza v upstreamu již opravené bezpečnostní chyby CVE-2024-1086 v Linuxu v nf_tables.

    Ladislav Hagara | Komentářů: 0
    26.3. 18:44 | Nová verze

    Byla vydána nová verze 4.1 svobodného 3D softwaru Blender. Přehled novinek i s náhledy a videi v obsáhlých poznámkách k vydání.

    Ladislav Hagara | Komentářů: 0
    26.3. 18:22 | Nová verze

    Úkolníček Taskwarrior (Wikipedie) pro správu úkolů z příkazového řádku byl vydán ve verzi 3.0.0.

    Ladislav Hagara | Komentářů: 0
    Steam
     (24%)
     (29%)
     (14%)
     (9%)
     (24%)
    Celkem 382 hlasů
     Komentářů: 10, poslední dnes 17:31
    Rozcestník

    Administrace komentářů

    Jste na stránce určené pro řešení chyb a problémů týkajících se diskusí a komentářů. Můžete zde našim administrátorům reportovat špatně zařazenou či duplicitní diskusi, vulgární či osočující příspěvek a podobně. Děkujeme vám za vaši pomoc, více očí více vidí, společně můžeme udržet vysokou kvalitu AbcLinuxu.cz.

    Příspěvek
    23.5.2011 18:02 --- | skóre: 13 | blog: LINUXDRAK
    Rozbalit Rozbalit vše Přepis programu z turbo pascalu na céčko
    Dobrý den, potřeboval bych pomoci s přepisem vlastní aplikace z turbopasclu na cécko. Zatím moc jsem nepochopil práci s poentry. Tak bych potřeboval drobet nakopnout.
    program vratnice;
    uses crt,graph,printer;
    const hlaska ='Stisknete libolny znak ...';
    const verze = '1.1.2 (BETA)';
     
    type vozidlo = record
    spz:string[8];
    ridic:string[19];
    poznamka:string[7];
    end;
     
    var
    vuz:vozidlo;
    f,g:file of vozidlo;
    i,vel,gd,gm:integer;
    odpoved:char;
    zadani:string[19];
    soubor:string;
    trideno:boolean;
    nalezeno:boolean;
     
    procedure iniciace;
    begin
    checkbreak:=false;
    clrscr;
    window(1,1,20,16);
    gd:=1;gm:=1;
    assign(f,'vratnice.data');
    {$I-}
    reset(f); {testuje zda soubor existuje}
    {$I+}
    if ioresult <> 0 then rewrite(f); { kdyz ne tak ho vytvori}
    close(f);
    end;
     
    procedure pozdrav;
    begin
    writeln('Vitejte ve vratnici');
    writeln('-------------------');
    writeln('Verze: ',verze);
    writeln('Autor: Jan Brunclik');
    writeln('Mobil: 775 384 910');
    writeln;
    writeln('Pokracujte stiskem libovolne klavesy ...');
    repeat until keypressed;
    end;
     
    procedure cekej;
    begin
    writeln;
    write(hlaska);
    repeat until keypressed;
    end;
     
    procedure trid; {tridi metodou BUBLE SORT}
    var
    a,b,p:vozidlo;
    prohoz:boolean;
    begin
    reset(f);
    vel:=filesize(f);
    close(f);
    repeat
    prohoz:=false;
    for i:=0 to (vel-2) do begin
    reset(f);
    seek(f,i);
    read(f,a);
    read(f,b);
    close(f);
    if a.spz>b.spz then begin
    p:=b;
    b:=a;
    a:=p;
    prohoz:=true;
    end;
    reset(f);
    seek(f,i);
    write(f,a);
    write(f,b);
    close(f);
    end;
    until prohoz=false;
    trideno:=true;
    end;
     
    procedure vypis; {vypis obsahu souboru}
    var
    vuz:vozidlo;
    begin
    clrscr;
    writeln('+----------------+');
    writeln('| Pocet vozidel  |');
    writeln('+----------------+');
    writeln;
    reset(f);
    writeln('Nalezeno : ',filesize(f),' vozidel.');
    close(f);
    cekej;
    end;
     
    procedure pridat; {prida zaznam na konec souboru}
    begin
    reset(f);
    seek(f,filesize(f)); {nastaveni ukazatele na konec souboru}
    repeat
    clrscr;
    writeln('+--------------+');
    writeln('| Pridani vozu |');
    writeln('+--------------+');
    writeln;
    with vuz do begin {nacteni dat}
    write('SPZ : ');
    readln(spz);
    write('Ridice : ');
    readln(ridic);
    write('Poznamku : ');
    readln(poznamka);
    end;
    write(f,vuz); {zapis do souboru}
    writeln;
    writeln('Vuz s "',vuz.spz,'" byl pridan.');
    writeln;
    writeln('Dalsi zaznam? A/N');
    until upcase(readkey)<>'A';
    close(f);
    trideno:=false;
    end;
     
    procedure vyhledat; {vyhleda podle spz vozidla}
    var
    nvuz:Array[1..9] of vozidlo;
    pocet:integer;
     
    begin
    clrscr;
    nalezeno:=false;
    writeln('+-------------+');
    writeln('| Hledani SPZ |');
    writeln('+-------------+');
    writeln;
    reset(f);
    write('SPZ : ');
    readln(zadani);
    clrscr;
    writeln('+------------------+');
    writeln('| Vysledek hledani |');
    writeln('+------------------+');
    writeln;
    for i:=1 to filesize(f) do begin
    read(f,vuz);
    if zadani=copy(vuz.spz,4,4) then
    begin
    nalezeno:=true;
    with vuz do begin
    writeln(spz);
    writeln(ridic);
    writeln(poznamka);
    end
    end;
    end;
    if not nalezeno then
    writeln('Vuz s "',zadani,'" nenalezen !');
    close(f);
    writeln;
    cekej;
    end;
     
    procedure odstranit; {odstrani zaznam ze souboru}
    begin
    clrscr;
    nalezeno:=false;
    assign(g,'tmp.data'); {pomocny soubor}
    writeln('+----------------+');
    writeln('| Odstraneni SPZ |');
    writeln('+----------------+');
    writeln;
    write('SPZ : ');
    readln(zadani);
    writeln;
    reset(f);
    rewrite(g);
    for i:=1 to filesize(f) do begin {do pomocneho souboru se prenesou}
    read(f,vuz);                     { vsechny zaznamy, krome toho    }
    if ((vuz.spz=zadani)or(length(vuz.spz)>=8)) then       { zadaneho }
    begin
    writeln('Vuz s "',vuz.spz,'" byl odstranen ze zaznamu.');
    nalezeno:=true;
    end
    else
    begin
    write(g,vuz);
    end;
    end;
    close(f);
    close(g);
    rewrite(f);
    reset(g);
    for i:=1 to filesize(g) do begin
    read(g,vuz); {zaznamy se prenesou zpet do hlavniho souboru}
    write(f,vuz);
    end;
    close(f);
    close(g);
    erase(g); {pomocny soubor se vymaze}
    if not nalezeno then
    writeln('Vuz s "',zadani,'" nebyl nalezen.');
    writeln;
    cekej;
    end;
     
    procedure tisk; {tisk vsech povolenek serazene podle SPZ}
    var ft:text;i:integer;
    begin
    clrscr;
    writeln('+--------------+');
    writeln('|Tisk povolenek|');
    writeln('+--------------+');
    writeln;
    write('Trideni ... ');trid;write('[ok]');
    writeln(lst,'Projekt Vratnice ');
    writeln(lst,'Jan Brunclik 2011');
    writeln(lst,'737 385 291');
    writeln(lst,'');
    writeln(lst,'+----------------+');
    writeln(lst,'| Tisk povolenek |');
    writeln(lst,'+----------------+');
    writeln(lst,'');
    reset(f);
    writeln('Tisknu celkem ',filesize(f),' povolenek');
    for i:=1 to filesize(f)-1 do begin
    seek(f,i);
    read(f,vuz);
    with vuz do begin
    writeln(lst,spz:8,ridic:20,poznamka:8);
    end
    end;
    close(f);
    cekej;
    end;
     
    procedure import;
    var
    fe: text;
    i : integer;
    radek : string;
    begin
    clrscr;
    writeln('+----------------+');
    writeln('|Import povolenek|');
    writeln('+----------------+');
    writeln;
    assign(fe,'vratnice.csv');
    rewrite(f);reset(fe);
    radek:='';
    while not eof(fe) do begin
    with vuz do begin
    readln(fe,radek);
    spz:=copy(radek,1,7);
    radek:=copy(radek,9,length(radek));
    ridic:=copy(radek,1,pos(',',radek)-1);
    poznamka:=copy(radek,pos(',',radek)+1,length(radek));
    end;
    write(f,vuz);
    end;
    close(f);close(fe);
    writeln('Hotovo');cekej;
    end;
     
    procedure export; {export aut do souboru vratnice.csv}
    var
    fe : text;
    i : integer;
    begin
    clrscr;
    writeln('+----------------+');
    writeln('|Export povolenek|');
    writeln('+----------------+');
    writeln;
    assign(fe,'vratnice.csv');
    reset(f);rewrite(fe);
    for i:=1 to filesize(f)-1 do begin
    seek(f,i);
    read(f,vuz);
    with vuz do begin
    writeln(fe,spz,',',ridic,',',poznamka);
    end
    end;
    writeln('Hotovo');
    close(fe);close(f);
    cekej;
    end;
     
    {definice jednotlivych funkcich}
    procedure hledat_spz;begin;end;
    procedure hledat_jmena;begin;end;
    procedure hledat_datum;begin;end;
     
    procedure evidence_hledat;begin;end;
    procedure evidence_pridat;begin;end;
    procedure evidence_editovat;begin;end;
    procedure evidence_smazat;begin;end;
    procedure evidence_opravit;begin;end;
    procedure evidence_import;begin;end;
    procedure evidence_export;begin;end;
     
    procedure kontrola_hledat;begin;end;
    procedure kontrola_pridat;begin;end;
    procedure kontrola_editovat;begin;end;
    procedure kontrola_smazat;begin;end;
    procedure kontrola_opravit;begin;end;
    procedure kontrola_import;begin;end;
    procedure kontrola_export;begin;end;
     
    procedure povolenky_hledat;begin;vyhledat;end;
    procedure povolenky_pridat;begin;pridat;end;
    procedure povolenky_editovat;begin;end;
    procedure povolenky_smazat;begin;odstranit;end;
    procedure povolenky_opravit;begin;end;
    procedure povolenky_import;begin;import;end;
    procedure povolenky_export;begin;export;end;
    procedure povolenky_vypsat;begin;end;
    procedure povolenky_tisk;begin;tisk;end;
     
    procedure obedy_hledat;begin;end;
    procedure obedy_pridat;begin;end;
    procedure obedy_editovat;begin;end;
    procedure obedy_smazat;begin;end;
    procedure obedy_opravit;begin;end;
    procedure obedy_import;begin;end;
    procedure obedy_export;begin;end;
     
    procedure smeny_hledat;begin;end;
    procedure smeny_pridat;begin;end;
    procedure smeny_editovat;begin;end;
    procedure smeny_smazat;begin;end;
    procedure smeny_opravit;begin;end;
    procedure smeny_import;begin;end;
    procedure smeny_export;begin;end;
     
    procedure klice_hledat;begin;end;
    procedure klice_pridat;begin;end;
    procedure klice_editovat;begin;end;
    procedure klice_smazat;begin;end;
    procedure klice_opravit;begin;end;
    procedure klice_import;begin;end;
    procedure klice_export;begin;end;
     
    {definice jednotlivych menu}
    procedure menu_hledat;begin;end;
    procedure menu_evidence;begin;end;
    procedure menu_kontrola;begin;end;
     
    procedure menu_povolenky;
    begin
    repeat
    clrscr;
    writeln('+--------------+');
    writeln('|   Povolenky  |');
    writeln('+--------------+');
    writeln('| 1 - Hledat   |');
    writeln('| 2 - Pridat   |');
    {writeln('| 3 - Editovat |');}
    {writeln('| 4 - Smazat   |');}
    {writeln('| 5 - Opravit  |');}
    writeln('| 6 - Import   |');
    writeln('| 7 - Export   |');
    {writeln('| 8 - Vypsat   |');}
    writeln('| 9 - Tisk     |');
    writeln('+--------------+');
    writeln('| 0 - Zpet     |');
    writeln('+--------------+');
    odpoved:=upcase(readkey);
    case odpoved of
    '1':povolenky_hledat;
    '2':povolenky_pridat;
    {'3':povolenky_editovat;}
    {'4':povolenky_smazat;}
    {'5':povolenky_opravit;}
    '6':povolenky_import;
    '7':povolenky_export;
    {'8':povolenky_vypsat;}
    '9':povolenky_tisk;
    end;
    until odpoved='0';
    end;
     
    procedure menu_obedy;begin;end;
    procedure menu_uzivatele;begin;end;
    procedure menu_smena;begin;end;
    procedure menu_klice;begin;end;
    procedure menu_nastaveni;begin;end;
     
    begin {hlavni menu}
    iniciace;
    trideno:=false;
    pozdrav;
    repeat
    clrscr;
    writeln('+--------------+');
    writeln('|  Hlavni menu |');
    writeln('+--------------+');
    {writeln('| 1 - Hledat   |');}
    {writeln('| 2 - Evidence |');}
    {writeln('| 3 - Kontrola |');}
    writeln('| 4 - Povolenky|');
    {writeln('| 5 - Obedy    |');}
    {writeln('| 6 - Uzivatele|');}
    {writeln('| 7 - Smeny    |');}
    {writeln('| 8 - Klice    |');}
    {writeln('| 9 - Nastaveni|');}
    writeln('| . - Pocet    |');
    writeln('+--------------+');
    writeln('| Q,0 - Konec  |');
    writeln('+--------------+');
    write('Volba :');
    odpoved:=upcase(readkey);
    case odpoved of
    '1':menu_hledat;
    '2':menu_evidence;
    '3':menu_kontrola;
    '4':menu_povolenky;
    '5':menu_obedy;
    '6':menu_uzivatele;
    '7':menu_smena;
    '8':menu_klice;
    'Q','0':odpoved:=chr(27);
    {'T':trid;}
    ',','.':vypis;
    end;
    until odpoved=chr(27);
    end.
    

    V tomto formuláři můžete formulovat svou stížnost ohledně příspěvku. Nejprve vyberte typ akce, kterou navrhujete provést s diskusí či příspěvkem. Potom do textového pole napište důvody, proč by měli admini provést vaši žádost, problém nemusí být patrný na první pohled. Odkaz na příspěvek bude přidán automaticky.

    Vaše jméno
    Váš email
    Typ požadavku
    Slovní popis
    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.