abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×

včera 15:18 | Zajímavý software

CrossOver, komerční produkt založený na Wine, je dnes (23. 5. 2017) dostupný ve slevě. Roční předplatné linuxové verze vyjde s kódem TWENTYONE na $21, resp. $1 v případě IP z chudších zemí. Firma CodeWeavers, která CrossOver vyvíjí, významně přispívá do Wine. Přidaná hodnota CrossOver spočívá v přívětivějším uživatelském rozhraní, integraci do desktopu a podpoře.

Fluttershy, yay! | Komentářů: 19
včera 15:11 | Zajímavý projekt

V únoru loňského roku bylo představeno několik útoků na celou řadu bezdrátových klávesnic a myší s názvem MouseJack. Po více než roce lze chybu opravit, tj. aktualizovat firmware, také z Linuxu. Richardu Hughesovi se podařilo navázat spolupráci se společností Logitech, získat od nich dokumentaci, přesvědčit je, aby firmware poskytovali přímo a ne jako součást .exe souboru, aby mohl být popis začleněn do služby Linux Vendor Firmware Service (LVFS) a aktualizace tak mohla proběhnou přímo z Linuxu pomocí projektu fwupd.

Ladislav Hagara | Komentářů: 1
včera 13:22 | Nová verze

Po roce a půl vydali vývojáři projektu SANE (Scanner Access Now Easy) (Wikipedie) novou verzi 1.0.27 balíku SANE-Backends. Nejnovější verze tohoto balíku pro přístup ke skenerům přináší například významná vylepšení v několika backendech nebo podporu pro více než 30 nových modelů skenerů. Verze 1.0.26 byla přeskočena.

Ladislav Hagara | Komentářů: 0
22.5. 20:55 | Komunita

Od 18. do 21. května proběhla v Saint-Étienne Linux Audio Conference 2017. Na programu byla řada zajímavých přednášek a seminářů. Videozáznamy přednášek lze zhlédnout na YouTube. K dispozici jsou také články a prezentace.

Ladislav Hagara | Komentářů: 0
22.5. 20:44 | IT novinky

Hodnota Bitcoinu, decentralizované kryptoměny, překonala hranici 2 200 dolarů. Za posledních 30 dnů tak vzrostla přibližně o 80 % [reddit].

Ladislav Hagara | Komentářů: 8
22.5. 17:33 | Nová verze

Po 5 měsících vývoje od vydání verze 0.12.0 byla vydána verze 0.13.0 správce balíčků GNU Guix a na něm postavené systémové distribuce GuixSD (Guix System Distribution). Na vývoji se podílelo 83 vývojářů. Přibylo 840 nových balíčků. Jejich aktuální počet je 5 454. Aktualizována byla také dokumentace.

Ladislav Hagara | Komentářů: 1
22.5. 17:22 | Nová verze

Po 5 měsících vývoje a 3 týdnech intenzivního testování byla vydána verze 12 open source systému Nextcloud, forku ownCloudu, umožňujícího provoz vlastního cloudového úložiště. Přehled novinek i s videoukázkami v poznámkách k vydání. Pro vyzkoušení je k dispozici demo.

Ladislav Hagara | Komentářů: 10
22.5. 11:44 | Zajímavý článek

Týden po prvním číslu publikoval Michal Špaček na svých stránkách druhé číslo newsletteru věnovanému bezpečnosti, bezpečnému vývoji převážně webových aplikací a bezpečnosti uživatelů. Věnuje se výpadku Let's Encrypt, únikům dat, bug bounty pro WordPress nebo SQL Injection v Joomla. Zmiňuje také, že Mozilla plánuje z Firefoxu odstranit podporu pro Encrypted Media Extensions (EME) na nešifrovaném HTTP a nadále pro EME vyžadovat HTTPS.

Ladislav Hagara | Komentářů: 0
22.5. 02:00 | Pozvánky

Ve středu 31. května 2017 od 17:00 proběhne v pražské pobočce SUSE Den otevřených dveří v SUSE. Čekají vás přednášky o live kernel patchingu a nástroji SaltStack. Také se dozvíte zajímavé informace o SUSE, openSUSE, a vlastně všech produktech, na kterých lidé ze SUSE pracují.

Ladislav Hagara | Komentářů: 4
22.5. 01:00 | Pozvánky

Czech JBoss User Group srdečně zve na setkání JBUG v Brně, které se koná ve středu 7. června 2017 v prostorách Fakulty informatiky Masarykovy univerzity v místnosti A318 od 18:00. Přednáší Tomáš Livora na téma Fault Tolerance with Hystrix. Více informací na Facebooku a Twitteru #jbugcz.

mjedlick | Komentářů: 0
Chystáte se pořídit CPU AMD Ryzen?
 (6%)
 (32%)
 (1%)
 (8%)
 (45%)
 (8%)
Celkem 603 hlasů
 Komentářů: 62, poslední 19.5. 01:57
    Rozcestník

    Dotaz: turbo pascal

    21.1.2006 18:00 ginaaa
    turbo pascal
    Přečteno: 1315×
    Ahojte vsetci, pomozte mi prosiiiim! Zacinam s Turbo Pascalom a nutne potrebujem odovzdat k polroku program, ktory nacita na obrazovku externy textovy subor (staci aby mal 2,3 riadky)...a potom aby nacital slova nie zlava doprava ako je zvykom ale zprava dolava. Snad to bude pre vas lahke no ja som uplny amater. Keby ste mi to niekto spravil, bol by ste moc hodni.

    Diky moc

    Odpovědi

    21.1.2006 18:07 Robert Krátký | skóre: 94 | blog: Robertův bloček
    Rozbalit Rozbalit vše Admin
    a) Toto není vhodné fórum pro podobný dotaz. Řeší se tu problémy s GNU/Linuxem a FOSS.

    b) Žádat, aby za tebe někdo vypracoval domácí úkol, to je dost ubohé. Proč by to měl někdo dělat? Ty ani nejevíš zájem o to, abys to pochopil, naučil se. Chceš jen práci hodit na jiné.
    21.1.2006 18:13 Martin
    Rozbalit Rozbalit vše Re: Admin
    Nelze nez souhlasit... Zkus to na zive.cz :o)
    21.1.2006 18:51 ginaaa
    Rozbalit Rozbalit vše Re: Admin
    To ja moc dobre vim a taky mam se zajem to naucit, budu to v maji potrebovat a aj to chcem vediet pre svoj dobry pocit. Ale zial to zatial neviem, skusala som citat navody k Pascalu a neviem to stale, a ked mas na vyber ze bud poziadas o pomoc cudzieho, alebo ti nedaju polrocne vysvedcenie, tak neviem co by si vybral ty...
    21.1.2006 18:57 #Tom
    Rozbalit Rozbalit vše Re: Admin
    Neflákat se celou dobu a zavčas se učit. ;-)
    21.1.2006 19:05 ginaaa
    Rozbalit Rozbalit vše Re: Admin
    No jo, budu se snazit polepsit, som sa o nieco aj snazila ale hlasi mi to Runtime error 104 at 0E09:0048! a vobec netusim co s tym...
    21.1.2006 19:29 #Tom
    Rozbalit Rozbalit vše Re: Admin
    Nápověda: errors, run-time. A nebo ještě lépe - spouštět přímo v Turbo Pascalu. Jinak se hodí také Search|Find error....
    21.1.2006 20:33 ginaaa
    Rozbalit Rozbalit vše Re: Admin
    Diky aj tebe za snahu, nieco mi ta napoveda dala a hlavne v buducnosti dufam da...
    21.1.2006 18:15 #Tom
    Rozbalit Rozbalit vše Re: turbo pascal
    Na to by se dala použít procedura 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. ;-)
    21.1.2006 20:14 machr
    Rozbalit Rozbalit vše Re: turbo pascal
    neco takovyho?
    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....
    21.1.2006 20:32 ginaaa
    Rozbalit Rozbalit vše Re: turbo pascal
    Super, moc, moc si mi pomohol. Zda sa ze si este hodne vela z Pascalu pamatas. Diky ti moc!
    Martin Tůma avatar 22.1.2006 01:11 Martin Tůma | skóre: 38 | blog: RTFM | Praha
    Rozbalit Rozbalit vše Re: turbo pascal

    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 ;-)

    Každý má právo na můj názor!
    22.1.2006 09:29 machr
    Rozbalit Rozbalit vše Re: turbo pascal
    to je jenom otazka interpretace. taky by se to dalo chapat treba takhle: ;-)
    in: toto je vstupni text
    out: otot ej inputsv txet
    
    22.1.2006 09:44 machr
    Rozbalit Rozbalit vše Re: turbo pascal
    nevim, jestli si to zaslouzi pojmenovani lexikalni analyzator :-D

    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.
    

    vim ze to neni moc efektivni....
    tesi me na tom, ze sem tam pouzil muj oblibenej "cyklus s podminkou uprostred" :-D
    22.1.2006 11:43 ginaaa
    Rozbalit Rozbalit vše Re: turbo pascal
    No presne som sa neopytala, ktoru verziu z vasich napadov chce...ale myslim, ze bude rad, ked vobec nieco odovzdam...ale myslim, ze ta prva machrova verzia staci. dik
    22.1.2006 11:48 Peter Golis | skóre: 54 | Bratislava
    Rozbalit Rozbalit vše Re: turbo pascal
    za predpokladu ze ti ucitel sam neposkytol riesenie na tomto portali. alebo ze si ho tu uz nenasiel.
    22.1.2006 11:49 ginaaa
    Rozbalit Rozbalit vše Re: turbo pascal
    jj, to by asi nebolo najlepsie, no bola to fakt nudza a som rada, ze vobec nieco odovzdam
    22.1.2006 17:30 Peter Golis | skóre: 54 | Bratislava
    Rozbalit Rozbalit vše Re: turbo pascal
    ucitelia maju jednu vlastnost, dokazu odhadnut svojich ziakov a tym padom vedia ci danu ulohu nahodou nevypracoval niekto iny.
    ten vtip, odkaz ocinovi ze Wolker bol Jiri a nie Jhonny, je zalozeny na pravde.
    22.1.2006 17:33 VícNežNic | skóre: 42 | blog: Spáleniště | Ne dost daleko
    Rozbalit Rozbalit vše Re: turbo pascal
    Mrzí mě, že jsem si nepřečetl tu druhou větu, ale po té první jsem se musel moc smát, tak jsem se dál už nedostal :-)
    Copak toho není dost?
    22.1.2006 10:23 j
    Rozbalit Rozbalit vše Re: turbo pascal
    jasne! dalo by se to resit rekursivne
    22.1.2006 11:47 Michal Kubeček | skóre: 71 | Luštěnice
    Rozbalit Rozbalit vše Re: turbo pascal
    Rekurze se dá vždy přepsat pomocí cyklu a zásobníku. Neuděláte-li to sám, udělá to za vás překladač… :-)
    22.1.2006 13:59 j
    Rozbalit Rozbalit vše Re: turbo pascal
    No jasne, ale tu jde o zapis toho algoritmu, ktery je tak hodne jednoduchy.
    5.2.2006 21:34 domelf
    Rozbalit Rozbalit vše Re: turbo pascal
    Custe, tak ja teda mam taky domaci ukol :-), 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
    5.2.2006 21:50 #Tom
    Rozbalit Rozbalit vše Tak tohle už je úplně jiné téma, ale proč ne... :-)
    Výběr je veliký:
    • DOSEMU
    • DOSBOX
    • MS-DOS/FreeDOS/jiný DOS v QEMU
    • MS-DOS/FreeDOS/jiný DOS ve VMWare.
    5.2.2006 21:59 neal_cz | skóre: 29 | Neratovice
    Rozbalit Rozbalit vše Re: turbo pascal
    Free Pascal by měl být kompatibilní s Turbo Pascalem a snad i s Delphi. Součástí je IDE hodně podobné Turbo Pascalu. Binárky pro Linux, BSD, DOS, Windows a další.
    DjAARA avatar 5.2.2006 22:01 DjAARA | skóre: 32 | Praha|Náklo|Olomouc
    Rozbalit Rozbalit vše Re: turbo pascal
    Podivej se na netu po fpc pripadne Lazarus.
    5.2.2006 22:32 Peter Golis | skóre: 54 | Bratislava
    Rozbalit Rozbalit vše Re: turbo pascal
    kedysi bol gpc (GNU Pascal Compiler) sucastou gcc.
    8.2.2006 08:33 domelf
    Rozbalit Rozbalit vše turbo pascal
    Diky moc za navrhy. Ten prvni mi prapadal jako emulatory coz sem na mysli nemel, ale diky moc. Nakonec jsem zjistil ze neco umi KDevelop.Jako spustit mi napsany program, jen musim jeste poresit jak se oteviraji jednotky v linuxu (ve win se na zacatek pise "uses wincrt" a tady nevim)
    9.2.2006 00:57 domelf
    Rozbalit Rozbalit vše Re: turbo pascal
    Nechci na nikoho spechat :-), 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.
    9.2.2006 01:04 Radek Šlesinger | skóre: 13 | Adamov
    Rozbalit Rozbalit vše Re: turbo pascal
    pas.pp:3: error: 3: Identifier not found "integet"

    Myslim, ze cely problem bude jenom tento preklep. Ten datovy typ je Integer.

    Založit nové vláknoNahoru

    Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.