Programy zos Pascalu

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Stranky: [1-10]  [11-20]  [21-30]  [31-40]  [41-50]  [aktualna]  [61-69]

Poradze:51
Program: Sswap.pas

Program prehodí medzi sebou čísla a,b. Špecialitou je že nepotrebuje pomocnú premenú ani zásobník. Niesom autorom ale je to tak geniálne že som to tu uviedol.



Poradze:52
sudoku.pngProgram: Sudoku.pas
Subor exe: Sudoku.exe
Subor ubuntu: Sudoku
Ukažka: Sudoku.dat

Program na riešenie obľúbenej hry sudoku v pascale. Ovládanie intuitívne šípkami. Po vyplnení stačí stlačiť F5 a okamžite vidíte výsledok. Program si tajničku ukladá do súboru sudoku.dat.



Poradze:53
tc.pngProgram: Tc.pas
Subor exe: Tc.exe
Mušiš mac: Main.pasMouse.pasT_wind.pas

Tento program si kládol za ciel byť náhradou Norton Commandera. Začiatok bol skvelý a toto je výsledok. Ako to však u podobných projektoch býva projekt zamrzol. Zatiaľ má zobrazenie súborov v okne. Okno sa môže pomocou myši ľubovolne zväčšovať a posúvať. Môžete prechádzať adresárovou štruktúrou.



Poradze:54
telefon.pngProgram: Telefon.pas
Subor exe: Telefon.exe
Subor ubuntu: Telefon

Jedno zo zaujímavých zadaní. Tvári sa veľmi dôležito, ale je to paškvil. Chybou programu je statické alokovanie pamäte. To sa v takomto programe nerobí, lebo kto to spraví ten si koleduje o problémy. Nepriehľadnite triedenie mien klasickou bublinkovou metódou. Ak niečo potrebujete zotriediť a nemusí to byť rýchle, tak použite Bubble sort.

Triedením som sa dlho zaoberal a nejaké nápady nájdete v C zdrojákoch.



Poradze:55
Program: Terc.pasTerclight.pasTerc2.pas
Subor exe: Terc.exeTerc2.exe
Subor ubuntu: Terc
Ukažka: Terc.txtTerc2.txt

Program zistí akými kombináciami zásahov do terča sa dá dosiahnuť požadovaný počet bodov Z. Určí všetky vektory P ( P[1] .. P[M] ) a počet zásahov do medzikružia. Nakoniec vypíše všetky možné riešenia a ich počet (0, 1, 2, …). Podrobný postup riešenia nájdete v Terc.txt.

Ako všade aj tu platí že sa dá naprogramovať jednodušia verzia TercLight.pas ktorá ale nieje taká výkonná.

Nakoniec ešte uverejňujem verziu Terc2.pas od prispievateľky s nickom Quetocek. Vďaka nej je k dispozícii aj dokumentácia.



Poradze:56
Program: Testuj.pas
Subor exe: Testuj.exe
Subor ubuntu: Testuj
Mušiš mac: Testuj.cfg
Vyvojak: Testuj.txt
Ukažka: Ziaci.txt1.txt2.txt3.txt

Program určený na testovanie žiakov z rôznych predmetov. Pre svoju činnosť potrebuje súbor testuj.cfg v ktorom je definovaná stupnica a jednotlivé otázky testu. Formát súboru testuj.cfg nájdete v súbore testuj.txt. Program vytvára súbory s koncovkou txt.

Režim žiak
Po spustení programu sa klávesou 1 vyberie režim žiak. Program požiada o meno žiaka. Po zadaní vypíše prvú otázku s možnosťami odpovedí a-d. Žiak si má možnosť vybrať klávesom a-d. Potom bude pokračovať na ďalšou otázkou. Počas skúsšnia žiak vidí na koľko otázok už odpovedal. Koľko môže získať maximálne bodov a svoje meno. Z pochopiteľných dôvodov program nezobrazuje aktuálny počet bodov.

Po skončení skúšania mu program oznámy koľko získal bodov a akú známku dostal. Program žiakove odpovede zaznamená do súboru cislo.TXT. Pričom číslo je poradové číslo žiaka. Mená skúšaných žiakov sú v súbore ZIACI.TXT.

Režim učiteľ
Po spustení programu sa klávesou 1 vyberie režim učiteľ. Zobrazí sa zoznam už vyskúšaných žiakov. Klávesami 0 až 9 si vyberie číslo žiaka. Tieto čísla sú koncové čísla zobrazených žiakov. Po výbere sa zobrazí prvá otázka. Správna odpoveď je podfarbená zelenou farbou. Ak žiak odpovedal zle, jeho odpoveď je červená.

Počas tohoto prehľadu sa zobrazuje poradové číslo otázky, meno, známka žiaka a to koľko bodov mu priniesla aktuálna otázka vrámci jním ziskaných bodov.



Poradze:57
tetris.pngProgram: Tetris.pas
Subor exe: Tetris.exe
Subor ubuntu: Tetris
Mušiš mac: Podklad.txt
Ukažka: Tetrisl.pas

Všetkým dobre známa hra Tetris. Je plne funkčná, kľudne si ju skúste. Ale v tomto prípade nejde len o hru ale o algoritmy použité v nej. Aj keď je v textovom režime nič jej to neuberá na kráse. Predpokladám že sa niekto rozhodne vybudovať grafickú nadstavbu. Ak niekoho baví grafika nech sa páči. Neskôr ma napadlo že by som program mohol skrátiť len na potrebné minimum, preto vznikol aj zdroják Tetrisl.pas. Light verzia Tetrisu.



Poradze:58
tlakspoj.pngProgram: Tlakspoj.pas
Subor exe: Tlakspoj.exe
Subor ubuntu: Tlakspoj
Mušiš mac: Tabulky.pas

K tomu programu patrí rovnaký komentár ako ku Skrutka.pas. Vie vypočítavať predpäté spoje podľa ČSN 014216-65. Komu to nič nehovorí tak napríklad nahrejeme ozubené koleso a nasuniete na hriadeľ. Až vychladne, zmenší sa, a vytvorí nerozoberateľný spoj. No a koľko tento spoj vydrží v krute vie program vypočítať.



Poradze:59
Program: Trdbf.pas
Subor exe: Trdbf.exe

Vstupný súbor prekopíruje do výstupného s tým že TABulátory zmení na 8 medzier. Tento text potom bude vypadať v každom editore rovnako.



Poradze:60
Program: Trieden.pas
Subor exe: Trieden.exe
Subor ubuntu: Trieden

Program ktorý predvedie a porovná 3 spôsoby triedenia čísel.
TRMAX - triedenie cez maximum.
BUBLE - bublikové triedenie.
BUBLESORT - bublinkové s príznakom.


Stranky: [1-10]  [11-20]  [21-30]  [31-40]  [41-50]  [aktualna]  [61-69]