Soudní dvůr Evropské unie potvrdil rekordní pokutu 4,125 miliardy eur (100 miliard Kč) americké technologické firmě Google ze skupiny Alphabet. Pokutu firmě v roce 2018 vyměřila Evropská komise (EK) za to, že Google podle ní zneužívá operačního systému Android k potlačení konkurence na trhu vyhledávacích služeb.
Administrativa amerického prezidenta Donalda Trumpa povolila firmě Anthropic obnovit plný přístup klientů k modelům umělé inteligence (AI) Fable 5 a Mythos 5. Ty byly nedostupné bezmála tři týdny kvůli bezpečnostním obavám vlády, třebaže americké ministerstvo obchodu minulý pátek povolilo omezený přístup k modelu Mythos 5 pro některé „důvěryhodné“ domácí organizace.
Francúzska organizácia na ochranu spotrebiteľa, po viac než ôsmych rokoch skúmania, žaluje Epson za plánované zastarávanie tlačiarní. Súd sa začína dnes, 2. 7. 2026, vo francúzskom Nanterre.
Erin Catto, autor open source 2D fyzikálního enginu Box2D (Wikipedie), představil nový 3D fyzikální engine Box3D. Engine je již používán ve hře The Legend of California.
Byla vydána nová verze 4.0.0 multiplatformního svobodného frameworku pro zpracování obrazu G'MIC (GREYC's Magic for Image Computing, Wikipedie). Přehled novinek i s náhledy nových filtrů na PIXLS.US.
Český statistický úřad (ČSÚ): Průměrná hrubá měsíční mzda ICT specialistů v roce 2025 meziročně vzrostla o 6 % na téměř 100 tisíc korun. Nejlépe placeni byli vývojáři softwaru. Dlouhodobým trendem zůstává nízké zastoupení žen, a to jak mezi specialisty, tak studenty těchto oborů.
Ochranný svaz autorský (OSA) připravuje žalobu na společnost Suno, která umožňuje generování hudby pomocí umělé inteligence (AI). ČTK to sdělil předseda představenstva OSA Roman Strejček. Suno podle něj bez souhlasu využívá k trénování svých modelů hudbu autorů, které svaz zastupuje. Nedávný investigativní materiál magazínu The Atlantic ukázal, že firmy jako Suno nebo Udio k trénování modelů používají rozsáhlé databáze obsahující miliony skladeb. V databázích, které časopis zveřejnil, lze dohledat i písně řady českých a slovenských umělců.
Byl publikován přehled dění a novinek z vývoje Asahi Linuxu, tj. Linuxu pro Apple Silicon. Vyřešen byl problém s macOS 27 Golden Gate. Vývoj lze podpořit na Open Collective a GitHub Sponsors.
EU dnešním dnem zavedla clo ve výši 3 eur na balíky nízké hodnoty dovážené ze zemí mimo EU. To zahrnuje širokou škálu výrobků běžně nakupovaných on-line, jako jsou oděvy, hračky, elektronika a další spotřební zboží v hodnotě až 150 EUR.
Vyšel Redmine 7.0, jeden z nejlepších open source ticketovacích systémů. Došlo k migraci na Rails 8, vylepšení UI/UX, Workflow, byla přidána podpora náhledu pro Microsoft Office a LibreOffice dokumenty, došlo k výkonnostním optimalizacím a přibylo spoustu dalších oprav a novinek. Více informací v oficiálním oznámení.
AbcLinuxu.cz
ITBiz.cz
HDmag.cz
AbcPráce.cz
Search|Find error....
ReadLn, jako parametr by se jí mohl dát nějaký String. Rozsekání na slova se dá udělat pomocí funkcí Copy a Pos. Celé se to obalí třeba do cyklu while ... do, jako podmínka poslouží třeba nějaký Eof.
Turbo Pascal má dobře udělanou nápovědu se snadno pochopitelnými přiklady. Lze z ní i kopírovat. Spolu s pěkně udělaným uživatelským rozhraním to půjde snadno a rychle.
var f: text; s: string; i: integer; begin assign(f, 'file.txt'); reset(f); while not eof(f) do begin readln(f, s); for i := length(s) downto 1 do write(s[i]); writeln(); end; close(f); end.PS: nemam nainstalovanej prekladac pascalu, a uz sem v nem dost dlouho nedelal, takze to mozna bude chtit par uprav, aby to slo prelozit....
Tohle ale obrací celý řádky, tzn vypíše to znaky v opačnym pořadí, což IMHO není to, co je úkolem... Podle mě je požadavkem toto:
input> toto je vstupní text output> text vstupní je toto
Řešením je triviální lexikální analyzátor a zásobník. Realizaci už ale nechávám na čtenářovi
in: toto je vstupni text out: otot ej inputsv txet
var
f: text;
s: string;
i, p: integer;
a: array[0..63] of string[63];
begin
assign(f, 'file.txt');
reset(f);
while not eof(f) do begin
readln(f, s);
i := 0;
while true do begin
p := pos(' ', s);
if p < 1 then break;
a[i] := copy(s, 1, p-1);
inc(i);
delete(s, 1, p);
end;
write(s, ' ');
for i := i-1 downto 0 do
write(a[i], ' ');
writeln();
end;
close(f);
end.
, ale potreboval bych pomoci s necim jinym. Jsem uplný laik co se tyce linuxu. Vlastnim MandrivaLinux2006 64x86 a chtel bych na tom nejakym zpusobem rozjet programovani v pascalu.Nevim kde zacit.Ve win jsem mel Borland Pascal a neco podobneho (s troufalosti) bych chtel mit i tu (ne pres wine).Rikam s troufalosti,pac nevim jestli to nebudu muset prekladat pres prikazovaj radek(coz by mi teda nevadilo).Nevim kam se kouknout po nejakym tom programku,tak mi nejak prosim poradte.Diky
, nainstaloval jsem fpc ale mam takovy problemek 
mrknete mi prosim na nej? nevim si rady. Diky moc
---------------
cd '/home/dominik/pas/src' && fpc -vr pas.pp
Free Pascal Compiler version 2.0.2 [2005/11/26] for i386
Copyright (c) 1993-2005 by Florian Klaempfl
Target OS: Linux for i386
Compiling pas.pp
pas.pp:3: error: 3: Identifier not found "integet"
pas.pp:3: error: 10: Error in type definition
pas.pp:7: error: 14: Can't read or write variables of this type
pas.pp:7: error: 15: Illegal expression
pas.pp: error: 9: There were 4 errors compiling module, stopping
pas.pp: error: 9: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)
*** Exited with status: 1 ***
---------------
pripadne kdybych mel neco upravit v ppc386, tak zase nevim jaky editor je binarni,opravdu si nevim rady mam v tom gulas.
5.2.2006 22:01
Integer.
Tiskni
Sdílej:
