Vlastní soubory se zdrojovým kódem *.pas a zkompilované soubory *.exe jsou zabaleny do ZIP archivu. Programy pracující s grafikou jsou označeny tučným písmenem G a pro svojí funkci vyžadují stažení tohoto zip archivu pro_graf.zip a následné rozbalení do adresáře, kam jste si rozbalili program.

• 6trojhvez - vykreslí 6 druhů trojúhelníků z hvězdiček pomocí cyklu FOR
• Ananlyza - v zadaném souboru spočítá počet vyskytnutých znaků
• Arkomp - provádí aritmetické operace s komplexními čísly přímo v programu (nepotřebuje unitu komplc)
• Banka - první program co něco dělal, zadá se mu počáteční částka, úrok, doba spoření a on spočítá konečnou sumu
• Cifsouc - spočítá počet cifer a jejich ciferný součet
• dek-bin - převede číslo z desítkové do binární soustavy
• derivc -G- - vykreslí fázovou charakteristiku derivačního článku
• det-im - vygeneruje matici s komplexními čísli a spočítá její determinant
• Fakt-pro - počítání faktoriálu pomocí procedury
• G-skola -G- - tzv. kuchařka, podle které se postupuje při kreslení jakýchkoliv funkcí
• Hodiny -G- - ručičkové hodiny - MOJE ZÁVĚREČNÁ PRÁCE Z VTC ZA 2.ROČNÍK
• integcla -G- - vykreslí fázovou charakteristiku integračního článku
• kalk1 - jednoduchá kalkulačka
• kalk2 - 2.varianta jednoduché kalkulačky
• Klasif - pomocí záznamu ukládá jména žáků a jejich známky, poté spočítá jejich průměr,.....je to jen funkční ukázka, skutečný program by se řešil ukládáním do souboru
• komplc -UNITA- - unita pro práci s komplexními čísly
• komplu - podobný program jako arkomp, ale vyžaduje unitu komplc
• Kvrov - spočítá kořeny kvadratické funkce
• Logospat -G- - dost ubohé logo, ale nesmějte se! Když jsem jej udělal, málem jsem se zbláznil radostí(to jsem ještě nic o grafice v Pascalu nevěděl)
• Malvel - ze zadaných čísel vybere nejmenší a největší
• Matice - programátorsky nešťastný způsob řešení matice
• Mat-nov - daleko lepší způsob řešení matice
• mesic - upraví zadané datum např.: z 22.6. na 22.červen
• N! - počítání faktoriálu v programu bez PROC. Fcí.
• nabitic -G- - vykreslí graf nabití kondenzátoru
• Nah2 - vygeneruje zadaný počet číslic od 0 do 9 a poté spočítá kolikrát se tam číslice vyskytla
• Nahoda - vygeneruje 1000 náhodných čísel od 0 do 100 a spočítá jejich průměr, tím ověří správnost generátoru náhodných čísel
• Ncproc - podobný program jako ten předchozí, ale počet čísel a rozsah si zadáte sami a ještě čísla vypíše, řešeno procedurou
• Polynom - spočítá kořeny polynomu N-tého řádu, pomocí půlení intervalu
• prenos_p -G- - vykreslí graf přenosu výkonu ze zdroje do zátěže
• Prevod - užitečný program, který převádí čísla z 2,3,8,10 soustavy do soustavy 2,3,8,10
• prevodcas - 2 prográmky na převod času ze sekund na hod.,min.,sec. a obráceně
• Prvoc_zjisti - program zjistí zda zadané číslo je prvočíslo
• Prvo-vyp - vypíše vzestupně zadaný počet prvočísel
• rezonanc -G- - vykreslí amplitudovou kmitočtovou charakteristiku poměrné impedance pro 3 různá Q
• soub_obr - vytvoří soubor s náhodnými čísly a poté je vypíše po zpátku
• Soub-nah - do zadaného souboru vygeneruje 20 náhodných čísel v rozsahu 0-99
• studna - zadáte dobu pádu a prog. spočítá dráhu
• Tab - tabulka s náhodně vygenerovanou docházkou zaměstnanců
• Trid - zde můžete porovnat efektivnost třídicích metod
• Trojuhel - zjisti zda se dá trojúhelník sestrojit
• type - obdoba příkazu TYPE z DOS, navíc na konci výpisu souboru vypíše počet řádků, slov a písmen
• Vejhul -G- - triviální prográmek, který oceníte jen při určitých stavech....
• Vybcisla - ze 3 čísel vybere nejmenší a největší
• vyb-fce - program obsahující 3 funkce na výpočet objemů(povrchů)
• vzd - spočítá vzdálenost 2 bodů v rovině i v prostoru
• Xn - spočítá N-tou mocninu čísla X, řešeno v programu
• Zvuk - zahraje vámi definovaný(frekvence,doba trvání) zvuk

Stáhnout vše najednou (693 kB)

Stáhnout dalších několik příkladů - nejsou v seznamu (30 kB)

Poděkování: Velice dobrý základ programování mi dal profesor Friš, kterému bych rád touto cestou poděkovat

zpět na začátek stránky

Pár rad jak vytvořit spustitelný program v TASMu:

• pro psaní zdrojových souborů *.asm používejte poznámkový blok, nebo nějaký textový editor, který generuje čistí text bez kódu pro formátování textu
• ASM nemá integrované vývojové prostředí, takže je program nutné zvlášť přeložit programem TASM a poté slinkovat dohromady programem TLINK.
• Pro ladění programu lze použít např. Turbo Debugger
• Při překladu se dává jako parametr zdrojový soubor s příponou *.asm (např: TASM POKUS.ASM). Jestli je zdrojový soubor syntakticky dobře vyleze vám přeložený soubor *.obj. Ten je nutno prohnat TLINKem (např.: TLINK POKUS.OBJ),který vám vyhodí spustitelný soubor

Tady jsou věci od našich profesorů:

• makra.mac - soubor s makry, většina maker jsou "obalené požadavky na přerušení", velice šetří čas při programování
  
• podprog.inc - soubor s podprogramy, např. na převod čísel z bin. do ASCII kódu a pod.

A zde je pár hotových školních příkladů:

• POCET0a1.ZIP - prográmek na rotace a posuvy, načte kód klávesy a převede jej do bin. kódu a pak spočítá kolik je tam 1 a 0
• 3BARVY.ZIP - přímá práce s video pamětí, vykreslí na obrazovku 3 různě barevné obdélníky
• CITAC.ZIP - BCD aritmetika, čítač od 0 do 99 a zpět
• POROVS.ZIP - řetězcové instrukce, načte 2 řetězce z klávesnice a porovná je
• Protokol.ZIP - Závěrečná pololetní práce i s protokolem

zpět na začátek stránky

K psaní programů v Delphi jsem přešel samozřejmě od Pascalu. Učil jsem se sám stylem pokus-omyl. Pak ve 4. ročníku na střední škole jsme měli předmět Programování v Delphi (už nevím přesně jestli se to jmenovalo takto), ale moc mi to nedalo. Až na několik jednoduchých her jsem ale nic pořádného nenapsal.

Tetris

Tuto hru jsem neudělal proto, že jsem se nudil nebo něco podobného, ale ve čtvrťáku na průmyslovce jsme museli udělat nějakou závěrečnou práci. Myslím, že tetris je lepší než nějakej trapnej program, kterej stejně nikdo nikdy nepoužije. Hra by měla fungovat pod všema WINDOWSama i bez DirectX, protože nevyužívá hardwarové akcelerace, ale standartní GDI rozhraní.
Stáhnout: tetris.zip (179 kB)

Úžlabina 2

Podobá se hrám zastřel jsi svého... /koho chceš/. Zde nestřílíte do lidí, ale do známek, které po vás házejí učitelé. Ty lepší chytáte a po těch horších střílíte. Běhá v rozlišení 640x480 v okně nebo fullscreen. Podmínkou jsou nainstalované DirectX 7.0 nebo lepší (-: . Úžlabiňákum přeji příjemnou zábavu a vám ostatním také i když vám název asi nic neřekne.
Stáhnout: uzlabina2.zip (1,36 MB)

Začátky v Delphi

• banka - Předělaný prográmek banka z Pascalu
• generator - generátor postavy pro AD and D ,na každou vlastnost hodí 4x a nejmenší hod vyřadí
• míchání - Zamíchá čísla v poli. Měla to být příprava na podobnou hru jako je Magic the Gathering
• větší bere - Měla to být moje 1.hra a také příprava na hru podobnou Magic the Gathering, ale nějak to nevyšlo. Místo toho je to pěkná blbost, kde cvakáte myší na jedno tlačítko. Snad to příště vyjde.
• Misak logo - Říkejte si tomu jak chcete, ale je to prvni blbůska, kterou jsem udělal v Delphi s DirectX a ani to moc nebolelo. Je zde vidět jak závisí FPS na počtu vykreslovaných obrázků.

zpět na začátek stránky

3. ročník

4. ročník

zpět na začátek stránky

Po mírném váhání jsem se rozhodl na tyto stránky umístit referáty z elektrotechnologie z 2.ročníku. Na tento předmět jsem měl pana profesora Fukátka a byl to dobrý profesor. Tyto referáty jsem si vysloužil za kecání, ale nekecal jsem až tak moc, takže jsem v průběhu roku vyfasoval jen 2.

• CCD - Snímací obrazové prvky. Tento referát jsem dostal ze začátku roku, na zpracování jsem měl 2 měsíce a dlouho to byla moje noční můra.
• Optické kabely - Tento referátek jsem vyfasoval ke konci roku a měl jsem na něj asi týden, ale zase jsem se kvůli němu tak netrápil.

Také díky těmto referátům jsem se přihlásil do technické knihovny. Na to, že jsem člověk, který vůbec nečte je to docela výkon přihlásit se sám a dobrovolně.

zpět na začátek stránky