Bezpečnostní výzkumníci zveřejnili informace o osmi zranitelnostech, které postihují více než 700 modelů tiskáren, skenerů a štítkovačů značky Brother. Bezpečnostní upozornění vydali také další výrobci jako Fujifilm, Ricoh, Konica Minolta a Toshiba. Nejzávažnější zranitelnost CVE-2024-51978 umožňuje útočníkovi vzdáleně a bez přihlášení získat administrátorská oprávnění prostřednictvím výchozího hesla, které lze odvodit ze
… více »Společnost Oracle vlastní ochrannou známku JAVASCRIPT. Komunita kolem programovacího jazyka JavaScript zastoupena společností Deno Land vede právní bitvu za její osvobození, viz petice a otevřený dopis na javascript.tm. Do 7. srpna se k nim má vyjádřit Oracle (USPTO TTAB).
Byl představen samostatný rádiový modul Raspberry Pi Radio Module 2 s Wi-Fi a Bluetooth.
Certifikační autorita Let’s Encrypt ukončila k 4. červnu zasílání e-mailových oznámení o vypršení platnosti certifikátů. Pokud e-maily potřebujete, Let’s Encrypt doporučuje některou z monitorovacích služeb.
Přemýšlíte, jak začít prázdniny? Už v úterý 1. července se bude konat Virtuální Bastlírna, tedy online setkání bastlířů, techniků, vědců i akademiků, kde se ve volné diskuzi probírají novinky ze světa techniky, ale i jiných zajímavých témat.
Za poslední měsíc jsme byli svědky plamenů několika raket. Zatímco malá raketa od Hondy se úspěšně vznesla a opět přistála, raketa od SpaceX se rozhodla letět všemi směry najednou. Díkybohu méně … více »Linus Torvalds zmínil, že souborový systém Bcachefs zřejmě odstraní z mainline Linuxu v začleňovacím okně pro vydání 6.17. Kent Overstreet mu totiž posílá kód s novou funkcionalitou i pro začlenění do kandidátů na vydání, kdy očekává pouze opravy chyb. Kent Overstreet byl již dříve z vývoje vyloučen kvůli konfliktní komunikaci.
Ministerstvo průmyslu a obchodu propaguje Microsoft. Ten ve spolupráci s Ministerstvem průmyslu a obchodu spouští AI National Skilling Plan v ČR. "Iniciativa Microsoftu přináší konkrétní a praktickou podporu právě tam, kde ji nejvíc potřebujeme – do škol, firem i veřejné správy.", říká ministr průmyslu a obchodu Lukáš Vlček.
Jste český ISP? Vyplněním krátkého dotazníku můžete pomoci nasměrovat vývoj nové generace routerů Turris Omnia [𝕏].
Celkové tržby společnosti Canonical za rok 2024 byly 292 milionů dolarů (pdf). Za rok 2023 to bylo 251 milionů dolarů.
Byla vydána verze 1.88.0 programovacího jazyka Rust (Wikipedie). Podrobnosti v poznámkách k vydání. Vyzkoušet Rust lze například na stránce Rust by Example.
( 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.
Tiskni
Sdílej: