Google, potažmo YouTube umožní návrat tvůrcům, kteří byli zablokováni kvůli údajnému šíření dezinformací souvisejících s COVID-19 a volbami. Tvůrci teď mohou požádat o navrácení přístupu. Společnost Alphabet v této souvislosti uvedla, že zákazy byly uděleny kvůli tlaku tehdejší Bidenovy administrativy.
Vývojári z distribúcie Artix, ktorá je postavená na Arch Linuxe, alebo skôr jeho forkom, už skôr prešli na Open-RC init systém, stále však niektoré projekty ako GNOME boli závislé na systemd. Teraz pretiekol pohár trpezlivosti a počnúc GNOME 49, kvôli ktorému komponenta gnome-session je úplne závislá na systemd-init, padlo rozhodnutie na odstránenie GNOME z repozitárov Artixu. Táto zmena sa podľa všetkého týka viac než 90 distribúcií, ktoré tiež nepoužívajú systemd. Viac v príspevku na DistroWatch.
Magazín IEEE Spectrum opět po roce publikoval svůj žebříček programovacích jazyků. Vedou Python, Java, C++, SQL a C#.
Repozitáře pro spolupráci v rámci projektu Fedora se přesunou z Pagure na nově vzniklý Fedora Forge. Ten stejně jako třeba Codeberg běží na softwaru Forgejo, které bylo už před časem vybráno jako náhrada za Pagure. Pagure pochází z dílny Fedory, ale mimo ni se příliš neuchytil. Jeho vývoj a údržba byly náročné a Fedora se rozhodla jít cestou úspěšnějšího projektu, který má větší základnu přispěvatelů.
Byla vydána (𝕏) nová verze 2025.3 linuxové distribuce navržené pro digitální forenzní analýzu a penetrační testování Kali Linux (Wikipedie). Přehled novinek se seznamem nových nástrojů v oficiálním oznámení na blogu.
V IT4Innovations národním superpočítačovém centru byl dnes slavnostně spuštěn první český kvantový počítač VLQ disponující 24 fyzickými qubity s unikátní hvězdicovou topologií. Systém dodala společnost IQM Quantum Computers a jeho celková pořizovací cena činila přibližně 125 milionů korun.
Výrobce čipů Nvidia chce investovat až 100 miliard dolarů (přes dva biliony Kč) do společnosti zaměřené na umělou inteligenci OpenAI. Firmy o tom informují v tiskové zprávě. Oznámené partnerství přichází v době, kdy se mezi technologickými giganty a start-upy zostřuje konkurence o zajištění přístupu k energii a čipům potřebným pro rozvoj umělé inteligence (AI).
Nové číslo časopisu Raspberry Pi zdarma ke čtení: Raspberry Pi Official Magazine 157 (pdf).
Společnost Cloudflare oznámila, že sponzoruje nezávislý webový prohlížeč Ladybird a linuxovou distribuci pro vývojáře Omarchy (Arch Linux s dlaždicovým správcem oken Hyprland).
Společnost XTX Markets zabývající se algoritmickým obchodováním pro své potřeby vyvinula a dnes představila a otevřela souborový systém TernFS. Zdrojové kódy jsou k dispozici na GitHubu. Vývoj TernFS začal počátkem roku 2022. Od léta 2023 jej XTX Markets používá v produkčním prostředí.
( 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: