Google Chrome 140 byl prohlášen za stabilní. Nejnovější stabilní verze 140.0.7339.80 přináší řadu novinek z hlediska uživatelů i vývojářů. Podrobný přehled v poznámkách k vydání. Opraveno bylo 6 bezpečnostních chyb. Vylepšeny byly také nástroje pro vývojáře.
LeoCAD (Wikipedie) je svobodná multiplatformní aplikace umožňující také na Linuxu vytvářet virtuální 3D modely z kostek lega. Vydána byla verze 25.09. Zdrojové kódy a AppImage jsou k dispozici na GitHubu. Instalovat lze také z Flathubu.
RubyMine, tj. IDE pro Ruby a Rails od společnosti JetBrains, je nově zdarma pro nekomerční použití.
Český LibreOffice tým vydává překlad příručky LibreOffice Calc 25.2. Calc je tabulkový procesor kancelářského balíku LibreOffice. Příručka je ke stažení na stránce dokumentace.
Byla vydána (Mastodon, 𝕏) vývojová verze 3.1.4 příští stabilní verze 3.2 svobodné aplikace pro úpravu a vytváření rastrové grafiky GIMP (GNU Image Manipulation Program). Přehled novinek v oznámení o vydání.
Zakladatel ChimeraOS představil další linuxovou distribuci zaměřenou na hráče počítačových her. Kazeta je linuxová distribuce inspirována herními konzolemi z 90. let. Pro hraní hry je potřeba vložit paměťové médium s danou hrou. Doporučeny jsou SD karty.
Komunita kolem Linuxu From Scratch (LFS) vydala Linux From Scratch 12.4 a Linux From Scratch 12.4 se systemd. Nové verze knih s návody na instalaci vlastního linuxového systému ze zdrojových kódů přichází s Glibc 2.42, Binutils 2.45 a Linuxem 6.15.1. Současně bylo oznámeno vydání verze 12.4 knih Beyond Linux From Scratch (BLFS) a Beyond Linux From Scratch se systemd.
Organizátoři konference LinuxDays ukončili veřejné přihlašování přednášek. Teď je na vás, abyste vybrali nejlepší témata, která na letošní konferenci zaznějí. Hlasovat můžete do neděle 7. září. Poté podle výsledků hlasování organizátoři sestaví program pro letošní ročník. Konference proběhne 4. a 5. října v Praze.
Byla vydána verze 11.0.0 vizuálního programovacího jazyka Snap! (Wikipedie) inspirovaného jazykem Scratch (Wikipedie). Přehled novinek na GitHubu.
Na čem aktuálně pracují vývojáři GNOME a KDE Plasma? Pravidelný přehled novinek v Týden v GNOME a Týden v KDE Plasma. Vypíchnout lze, že v Plasmě byl implementován 22letý požadavek. Historie schránky nově umožňuje ohvězdičkovat vybrané položky a mít k ním trvalý a snadný přístup.
Zdravím byl jsem okolnostmi donucennapsat neco v pascalu a zápasím s jedním problémem. Nejlépe to ukázu v nejakém zápise takze
repeat WriteLn('Zadej volbu'); ReadLn(volba); until volba=A; WriteLN('Zadani promene je ok'); WriteLn(volba);Co tento kousek kodu dela je jasne, cykluje dokud user nezada A a pak vypise promenou volba. Potrebuji do toho dostal cosi jako
until volba=A..D; nebo until volba=A,B,C,D;Proste místo podmínky A zadat rozsah, pri kterém bude splnena. Pokud mozno jednoduse, nejaký extra slozitý zápis nemá moc význam. Díky za prípadné rady.
p.s. s linuxem to má spolecného snad jen to, ze to písu v kdevelop a kompiluju pomocí fpc, ale snad to az tak nevadí.
Tiskni
Sdílej:
( a > neco )and( a < necojinyho )?
until (volba='A') or (volba='B') or ...
To už je lepší převést na vyhodnocování ordinální hodnoty .. větší než 'A' nebo 'a' a menší než 'z' nebo 'Z'.
Ok, doplňte prosím datové typy, jaké jste použil ... stejně jaké chybové hlášky.
repeat write ('Zadej znak pro konec: '); readln (zn); until (zn = 'k') or (zn = 'K');zn je typu char
Ještě, že zálohuju semestrálky ... kdysi jsem to dělal takhle ...
repeat until keypressed or Stisknuto; if keypressed then repeat cti_klavesu(k) until (k in ['A','N']) or (k in [#27,#13]); if k = #27 then Txt(20,18,' '); if (k in ['A',#13]) or LClicked then konec := true; if (k = 'N') or RClicked
Nemyslís,ze to trochu prehánís?Asi jo
Jseš mladší, než já ... tys nebyl na vejšce? Tam jsem se k Pascalu pořádně dostal ... zkus když tak server Builder, sice jsem ještě hledat nemusel, neživim se tim, ale tam bych začal prvně. Další variantou se zdá být Programátorské heaven.
Hm, já psal jen v dosu, v borland pascalu byly v helpu docela dobrý příklady ...
until (ord(volba) >= ord('a')) and (ord(volba) <= ord('d'))
vim ~/.emacs
vim ~/.emacs
until ((volba) >= ('a')) and ((volba) <= ('d'));Funguje jak jsem potreboval. Vrelé díky. Jenom drobnost - proc jsi (jste) pouzil to ord, kdyz i bez nej to funguje jak ma?
Podle tohodle zápisu to je celý nějak divný ... ještě jsem neviděl proměnnou v závorkách, jak je zde.
Znak na ordinální hodnotu se převádí pro lepší přehlednost, jinak není nutno. A hlavně a se závorkama snad je string a znak s apostrofem je char. No a vstupem je char či integer, podle definované vstupní funkce.
Ok, jedna procedura pro příklad ...
(* poskytuje moznosti obsluhy dat, obsluha je pres cisla, konec pres Esc *) procedure menu; var volba : char; {ctu volby do menu} skoncit_menu: boolean; {je-li true, procedura se ukoncuje} begin skoncit_menu := false; repeat WriteLn(' Nabidka'); WriteLn(' 1: Pridani'); WriteLn(' 2: Vypis'); WriteLn(' 3: Vymaz'); WriteLn(' 4: Nacteni ze souboru'); WriteLn(' 5: Ulozeni do souboru'); WriteLn(' 6: Prikaz DOSu'); WriteLn(' 7: Servis'); WriteLn(' 8: Konec'); repeat cti_klavesu(volba) {Alt+X,Esc} until volba in ['1'..'8','x','X','o','O', #45,#27]; case volba of '1': pridej(prvni); '2': vypis(prvni, ''); '3': dispous(prvni,1); '4': nacti_data(prvni, ''); '5': uloz_data(prvni,''); '6': spust(def.cesta_shellu,''); '7': nastav; 'O','o': about else skoncit_menu := true end until skoncit_menu; {pri '8','x','X',Esc} WriteLn end;
Jelikož jsem autorem, tak bych to nechal klidně free ... ať se kultura programování zvyšuje. Nebo ať mne i někdo klidně zdokonalí.
var hotovo:boolean; volba:char; begin repeat Write('Zadej volbu: '); ReadLn(volba); case volba of 'A':hotovo:=true; 'B':hotovo:=true; 'C':hotovo:=true; 'D':hotovo:=true; else hotovo:=false; until (hotovo=true); end;Mám pocit, že funguje i 'A'..'D' nebo neco podobneho (myslim v syntaxi case-u).
until volba in ['a','b','c','d'];Vsem díky za podnety. R
Jelikož je to na vstupu char (chcete ho tam mít), tak je vezmete první znak ze stringu ... a při té podmínce se testuje, zda je načtená hodnota rovná požadované, dané mnoužinou či podmínkou ... tohle jsou základy a proto by na ně neměly platit, aplikoaet se patenty a licence.
var Znak: Char; begin repeat Write('Zadej A, B, C nebo D a potvrď Enterem: '); Read(Znak); Znak := UpCase(Znak); WriteLn('Bylo zadáno ', Znak); until Znak in [ 'A'..'D' ]; end.A nebo ještě lépe:
uses Crt; var Znak: Char; begin Write('Stiskni A, B, C nebo D: '); repeat Znak := UpCase(ReadKey); if (Znak = #0) then ReadKey; { Funkční klavesy, šipky a podobné nesmysly se čtou dvakrát } until Znak in [ 'A'..'D' ]; WriteLn(Znak); end.