Finanční skupina Partners se stala minulou neděli obětí kybernetického útoku, při kterém se útočníci dostali k některým osobním údajům klientů. Společnost o tom informovala ve čtvrtek. Ujišťuje, že peníze klientů nejsou v ohrožení. „Kybernetický útok zasáhl část IT infrastruktury naší společnosti. Ihned po zjištění útoku jsme s pomocí externích bezpečnostních odborníků začali intenzivně pracovat na minimalizaci škod. Útočníci se
… více »Americká technologická společnost Meta Platforms se dohodla, že zaplatí až zhruba 18 miliard dolarů (asi 373 miliard Kč) za mimosoudní urovnání sporu o závislosti dětí na sociálních sítích a provede významné změny pro jejich používání mladistvými. Téměř tři desítky států USA firmu v roce 2023 obvinily z toho, že sítě Facebook a Instagram vědomě navrhla tak, aby u dětí vyvolávaly závislost, a zatajovala tyto dopady před veřejností. Firma se
… více »Byl publikován aktuální přehled dění a novinek z vývoje Asahi Linuxu, tj. Linuxu pro Apple Silicon. Blíží se vydání podporující čipy M3. Vývojáře lze podpořit na GitHub Sponsors a Open Collective.
Kancelářský balík LibreOffice byl vydán ve verzi 26.8. Mimo jiné vylepšuje typografii a kompatibilitu s formáty MS Office, více v poznámkách k vydání.
Armbian, tj. linuxová distribuce založená na Debianu a Ubuntu optimalizovaná pro jednodeskové počítače na platformě ARM a RISC-V, ke stažení ale také pro Intel a AMD, byl vydán ve verzi 26.8. Přehled novinek v poznámkách k vydání.
Byla vydána nová verze 23.1.0, tj. první stabilní verze z nové řady 23.1.x, překladačové infrastruktury LLVM (Wikipedie). Přehled novinek v poznámkách k vydání: LLVM, Clang, LLD, Extra Clang Tools, Libc++, Polly a Flang.
Google Chrome 152 byl prohlášen za stabilní. Nejnovější stabilní verze 152.0.7977.64 přináší řadu novinek. Podrobný přehled v poznámkách k vydání. Opraveno bylo 327 bezpečnostních chyb. Vylepšeny byly také nástroje pro vývojáře.
Před 35 lety, 25. srpna 1991, oznámil Linus Benedict Torvalds v diskusní skupině comp.os.minix, že vyvíjí (svobodný) operační systém (jako koníček, nebude tak velký a profesionální jako GNU) pro klony 386 (486), že začal v dubnu a během několika měsíců by mohl mít něco použitelného.
Apple představil čipy M6 a M5 Ultra, Mac mini s M6 nebo M5 Pro a Mac Studio s M5 Max nebo M5 Ultra. Fedora Asahi Remix zatím podporuje jenom M1 a M2.
Firefox 157 přinese zapnutou podporu rastrového grafického formátu JPEG XL. Založena je na v Rustu napsané implementaci jxl-rs používané i v Chrome a Chromiu.
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:
