Zdravím, potřeboval bych asi trochu pomoci, neb Pascal už mi uniká. Mám staré zdrojové texty, kde moc strojáku atd. Prostě celé je to pro DOS a v dnešních technologiích je tam moc zbytečných řádků a na druhou stranu jich tam chybí.
https://www.itnetwork.cz/programovani/sql/diskuzni-forum-sql-mysql-mssql-postgresql-sqlite-databaze/pc-fand-4-2-pascal--5d48a25533750

https://github.com/alisoss/pcfand

Všichni mi říkají, že je to out, ale vím, že není... ten koncept byl dokonalý a dodnes lepší neexistuje. Chtěl bych to znovu otevřít a tak nějak zWokenit i pro linux.

Když jsem ptal všude možně... Dave mě odkázal na Tebe, jako šíleného Pascalistu...Tedy otázka, lze s tím něco udělat? Původně jsem to zamýšlel jako open, ale dnes spíš komerce s podílem na zisku.

Článek o tvorbě operačního systému se tu může vyskytnout jedině jestli ho nějaký dobrovolník napíše. Já to určitě nebudu, protože se v takových věcech nevyznám.

Každopádně díky, takovéhle reakce vždycky potěší :-).

Mám hrozně moc rád tenhle web!
Je tu spoustu zajímavých a historických věcí.
Hodně článků mě zde zaujalo a rád bych se dočkal
ještě nějakého o tom jak si vytvořit operační systém.

Tento web má v sobě pěkný kousek historie! Skvělé rady, návody, tipy....! Za mě super web který mi pomohl jak při bastlení tak programování! Máte odemne jedno velké Díky! ;-)

Někde tady na stránkách je výraz, že se z tohoto webu začíná stávat komunitní web.
Pokud je to tak, tak skromně upozorňuji na tu trochu nového matroše u mě na stránkách:
http://www.laaca.borec.cz

Kolega Jirka se se stejným dotazem obrátil i na mě.
Ve svém kódu měl dva problémy:
1) duplicitně volal unity WinCRT a Crt, což mělo za následek otevření konzolového okna.
2) na začátku programu neměl direktivu {$APPTYPE GUI}

Hm, tak nic. Když program jede v režimu "konzolová aplikace", vždycky začíná v textovém okně. Graph řeší grafiku tak, že pro ni otevře nové okno, a s tím bohužel nic nenaděláme. Chce to sehnat nebo napsat jinou grafickou jednotku.

Dosovské programy to mají jednoduché, okno se pro ně chová jako monitor a přepíná režimy a rozlišení podle potřeby. Jenže nejdou spustit v 64b woknech :-/.

OK, podívám se na to.

Dík za odpověď. Jedná se o standardní unitu Graph z instalační sady FP. A to jak FPC2.2.4i386win32, tak i 3.0.0. Popis je v Run-Time Library (RTL): Reference guide. O tomto problému tam však nic není.

Jakou používáš grafickou knihovnu?
Moc zkušeností s grafikou ve FP nemám a nevím, jestli je to vůbec řešitelné, ale můžu zkusit zapátrat.

Prosím o radu. Pro zábavu si píšu programy ve Free Pascalu. Potřebuji, aby program, napsaný v grafickém módu, se při spuštění otevřel jen v jednom okně. Vždy se otevře i textové okno, přestože tam texty nejsou. Nikde nemohu najít řešení.

Možná to každý ví a jenom já jsem to netušil. Každopádně jsem dnes zjistil, že česká hra Dračí historie (kterou mi naši ve své době koupili) je naprogramovaná v pascalu a má volně přístupný zdroják i herní data.
http://www.ucw.cz/draci-historie/

Díky za vyčerpávající vysvětlení, opravíme to.

Díval jsem se na knihovny kolegy JIVA (zde, v sekci "Od vás") a nedá mi, abych neokomentoval jednu věc. Konkrétně jde o oddíl 3DFX, kde autor tvrdí, že má provedené rozhraní na knihovnu Inertia, což je podle něj implementace či emulace (to z napsaného není zřejmé) čipu 3DFX a jeho funkcí.
Toto je třeba uvést na pravou míru. Inertia je engine pro 3D grafiku, který umožňuje zobrazovat texturované 3D objekty a provádět s nimi některé efekty. Primární zdrojová stránka už na internetu není, ale je alespoň odvozený sajt zde: http://pascal.sources.ru/graph/inertia.htm
Má čtyři verze: TP/BP, TMT pascal, Watcom C pro DOS a MSVC pro windows.
3DFX podpora, o které je řeč, je implementována do verze pro Watcom C, pro DOSovou verzi.
Využívá standardní 3DFX knihovnu Glide, což je .LIB knihovna (a .H interfejs) právě pro Watcom C.
Knihovna Glide.LIB využívá driver Glide2x.OVL, který musí být někde ve vaší cestě PATH.
Z tohoto vyplývá, že prostředky 3DFX akcelerace (přestředictvím 2.verze Glide rozhraní) jsou dosažitelné jen pomocí Watcom kompilátoru, protože není znám způsob, jak .LIB knihovny přilinkovat  do kódu napsaného pro jiný jazyk či překladač.
Valná většina DOSových her s podporou 3DFX využívá právě Glide2 knihovny. Výjimkou je Tomb Rider, který má 3DFX kód přímo v sobě a výjimkou jsou aplikace využívající knihovnu Mesa3D, což je implementace OpenGL. Mesa3D totiž měla podporu právě pro 3DFX/DOS. V tomto případě to ale bylo nikoliv přes knihovnu Glide2, ale přes Glide3.
Glide3 by měla být pružnější či modulárnější a nedávno se jí podařilo přeložit jako dynamicky nahrávaný .DXE soubor pro DJGPP.
Tuto variantu využívají nové DOSové porty her Quake1, Quake2 a Hexen2.
Co se týká nás pascalistů, tak možná by se dal napsat wrapper, který by dokázal .DXE soubor nahrát do DOSové verze Freepascalu, protože ten používá stejný paměťový model a stejný formát EXE souborů jako DJGPP.

Díky :-).
Jak tak na to s odstupem času koukám, možná by nebylo od věci zařadit do toho napájení desetiampérovou trubičkovou pojistku pro strýčka Příhodu...

To externí napájení HDD vypadá fakt úhledně, čistá práce :)

Pro všechny fanoušky Mircosofta, navštivte stránku:
https://www.facebook.com/int21h.cz
a srocujte se do organizované fb skupiny kolem DOSu Turbo Pascalu 7.0 a starých počítačů tím že dáte svůj like uvedenému rozcestníku.

0:2
Díky za test :-).

<script>alert(\"parek\");</script>

Anonym vs. htmlspecialchars(): 0:1
Držím palce :-)

<script>window.location.href('http://google.com');</script>

Díky za zprávu, už jsou tam.
Jsem rád, že jsi to nakonec nevzdal :-).

Ahoj Mirku pokud chceš dej si do odkazů moje nové stránky : www.mojeelektronika.mzf.cz

Přímo jako samostatný program to nemám, ale v jednotce Matyka je funkce na výpočet inverzní matice. Stačí ji nakrmit vhodnými daty a je to.

Ahoj,
nedělal jsi náhodou řešení soustav lineárních rovnic v Pascalu?

Předem dík Lukáš

Jasně, počítám s tím. A mám kompletní zálohu, takže nezmizí natrvalo :-).

Ahoj Mirku smaž si prosím tě v "ODKAZECH" odkaz na můj web www.mojeelektronika.ic.cz, který již za šest dní bude neplatný aby to nemátlo návštěvníky tohoto webu.
S pozdravem Vágner

Hezký web plně plnící (to je obrat !) funkci populárně vědecky naučnou, :-). Kdo chce trochu bastlit, nebo nedej bože přemýšlet, (dnes tak nemoderní činnost) ten se tu najde. Žádné vylomeniny, blikátka a odkazy, že tu není zoo a lamy jsou nevítány. Tak trochu balzám na duši.
Srdce starého bastlíře jste potěšil, málej jsem i slzu setřel. Přeji krásný den, plný ještě krásnějších myšlenek.

Ahoj Jakube,
jenom si pro jistotu upřesním zadání: když na vstupu dostaneme 2,3,4,3,4,2,3,2, tak bude výsledek 3, protože tam jsou tři unikátní hodnoty: 2,3 a 4. Je to tak?

Jak už jsem psal na fóru, s celými čísly by se dala využít množina, ale s reálnými ne (teoreticky je jich nekonečně mnoho a to se do žádné datové struktury nevejde), takže na to musíme jinak.

*Všechna* načtená čísla do pole ukládat nechceme. Ale mohli bychom ukládat jenom *některá* - ta unikátní: po každém načteném čísle projdeme pole a jestli tam tohle číslo ještě není, přihodíme ho tam. Nakonec stačí spočítat prvky pole.

Jestli by i těch unikátních čísel bylo moc, tak nezbývá než ukládat je do druhého souboru. Po každém načteném čísle by se soubor prošel a případně rozšířil o to nové číslo, stejně jako v případě pole. Pomalé, ale co se dá dělat, řekli si o to. Nenapadá mě žádný způsob, jak to vyřešit bez pamatování, jaké hodnoty už jsme potkali.

Ahoj Mircosofte,
mám za úkol určit počet různých čísel typu real v souboru, kde počet čísel je velmi veliký(tudíž ho nemůžu uložit do pole).
U integeru mi to nedělalo problém, ale dostal jsem odpověď, že je to velice neefektivní a bralo by to až 4GB paměti, tak jsem dostal typ real.
Díky Jakub

Algoritmus je celkem triviální:

1) Popojdi o políčko dopředu.
2) Jestli je bílé, přebarvi ho na černo a udělej vpravo vbok. Jestli je černé, přebarvi ho na bílo a udělej vlevo vbok.
3) Opakuj, dokud tě to nepřestane bavit :-).

Jediná zajímavá věc na tom je, jak chaotické vzory z toho vycházejí.

Ahoj, zaujal mě tvůj Langtonův Mravenec, nechtělo by se ti ten algoritmus nějak popsat?

Díky za reakci, takovéhle vždycky potěší :-).

Diky za sdileni tvych postrehu, navodu ze sekce programovani. Rad se na tvoje stranky vracim. Preji hezky den a diky za obsah!

Príma, tak hodně zdaru!
Kód potřebuje mimo jiné zmodernizovat - od roku 2007 jsem na něj nesáhnul, takže v něm zbylo dost zastaralých funkcí.
Odkaz sem přidám při nejbližší aktualizaci.

Ups! Ten odkaz má byť iba takto.
https://gitorious.org/retrospectrum/retrospectrum/commits/

Rozhodol som sa pokračovať vo vývoji RetroSpectra. Dal som zdrojáky do gitu a idem tam niečo poneniť a pridať. Čo mením si môžeš prečítať nižšie, prípadne stiahnuť.

https://gitorious.org/retrospectrum/retrospectrum/commits/626af743ff565d20ae87582b5a3d45f7ca95c7de

Ten odkaz by si mohol dať na stránu RS.

sorry za ten spam jen sem testoval ten tvuj anti spam system :DD fakt super napad

test spam bot

Tak, další verze antispamu. Zatím v testovacím provozu, takže jestli narazíte na jakoukoli chybu, dejte mi prosím vědět.