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]  [51-60]  [aktualna]

Poradze:61
Program: Trsek.pas
Subor exe: Pouzi.exe
Mušiš mac: Pouzi.pas

Táto knižnica vznikala dlho a obsahuje myslím si veľa užitočných vecí. Napríklad
- odpamätanie podkladu okna a vrátenie späť
- zobrazenie okna s rôznymi druhmi rámčekov
- otázka z 3 možnosťami odpovedí
- zmazanie buffra klávesnice
a ďalších 25 funkcií.

Ak chcete kľudne ho použite. Nevymýšľajte čo už vymyslené je. No a mňa len poteší že ste tak urobili. Len nezabudnite že časti zdrojákov ktoré okopírujete nemôžete vydávať za svoje dielo. Program Pouzi.pas vás prevedie všetkými funkciami.



Poradze:62
turing.pngProgram: Turing.pas
Subor exe: Turing.exe
Mušiš mac: Trsek.pas
Ukažka: Move.turPrepis.tur

Program vznikol ako pomôcka pri učení TURINGOVHO stroja na FEI TU Košice. Každý kto absolvoval skúšku na tému Moore, Mealy automatov vie o čom hovorím. Pomáha vizuálne pochopiť funkčnosť, alebo navrhnúť vlastný program pre turingov stroj. Má príjemné ovládanie. Ďalej možnosti krokovať navrhnutý program, uložiť na disk, alebo vybrať z disku. Bohužiaľ prišiel som o ukážkové programy, tak som pár kúskov napísal. V čase vzniku sa program tešil veľkej obľube. Dúfam že ešte niekomu pomôže, pretože turingove stroje sú základ asembleru. Neveríte? Ani ja som neveril.



Poradze:63
Program: Txtdbf.pas
Subor exe: Txtdbf.exe

Inteligentný prevod TXT->DBF. Ak nájde formulár (*.frm) tak pracuje podľa neho ináč si vytvorý sám formu a pokračuje ďalej.



Poradze:64
Program: Vga256.pas
Subor exe: Vga256.exe
Mušiš mac: Paradise.bgi

Program inicializuje grafickú kartu s 256 farbami v pascale.



Poradze:65
videostop.pngProgram: Videostop.pas
Subor exe: Videostop.exe
Mušiš mac: Anicka.bmpVideo.dat

Tento program bol vytvorený podľa hry ktorá sa hrávala v známom súťažnom programe Videostop s Jánom Rosákom. Obsahuje veľa fínt, ako prilinkovaný EGAVGA.BGI (nepotrebuje tento súbor pretože je priamo v EXE), prilinkovaný BMP súbor anicka.bmp kde je venovanie, zastavovanie tlačidlom na myši takže to super vyzerá. No a nakoniec všetky potrebné veci ako ceny, počet bodov a rýchlosť vyčítava zo súboru video.dat ak existuje. Ak neexistuje tak sa program riadi preddefinovanými hodnotami.

Parametre s ktorými je možné program spustiť
/h - help
/u - bez úvodného chaosu
/s - bez zvuku
/b20 - s počtom pokusov 20
/d - vytvorenie súboru s výhrami Video.dat



Poradze:66
Program: Vrstev.pas
Subor exe: Vrstev.exe
Mušiš mac: Egavga.bgi

Program vykreslí vrstevnice troch kopcov plus osi x,y. Jednotlivé vrstevnice sú farebne odlíšené.



Poradze:67
zaluzie.pngProgram: Zaluzie.pasArchiv.pasDealer.pasFarba.pasFax.pasFilter.pasFormul.pasFyzic.pasHelp.pasKniznic.pasMiesto.pasMzdy.pasOption.pasPr_zal.pasRead_dbf.pasRedef.pasSdv.pasTlac.pasTrsek.pasZaluz.pasZostavy.pas
Subor exe: Zaluzie.exe
Mušiš mac: Zaluzie.zipHelp.datDealerDealer.$$$Fax.datKumuly.$$$Kumuly.frmKumuly.kumMeracMontazOption.dbfOption.frmOption.indPoradie.datVystup.txtZaluzie.dbfZaluzie.datZaluzie.frmZaluzie.indZaluzie.txtZostava.frm

Program bol vytvorený pre vnutorné potreby firmy KOMA pre spravu objednávok žalúzií.

Bližší popis jednotlivých funkcií:
F2 - Zalúzia
Slúži ako nosná časť celého tohto programu dajú sa v ňom zadávať informácie o objednávateľovi ako jeho MENO, ADRESA, PODLAŽIE.
Kvôli neskorším rozpisom je možné vyplniť (ŠTVRŤ) program sa potom bude týmto riadiť.
Ďalej informácie o tom kto bol dohadzovač (DEALER), kto odmeriaval žalúziu (MERAČ) a nakoniec mená až troch (MONTÁŽNIKOV).
Je možné ďalej vyplniť DATUM OBJEDNAVKY, s tým, že program okamžite prepočíta kedy uplyie doba 14 dní na vykonanie montáže (LEHOTA).
Ak je nám známa CENA žalúzie po je vyplnení okamžite vypočítava DOPLATOK. Po vyplnení ZALOHY je vypočítaný doplatok znova.
Pri vyplňovaní mzdových nákladov máme približný mzdový charakter pre jednotlivých zainteresovaných.
Žalúzie sa vypĺňajú intuitívne pričom ak nie je zadaná farba nie je možné vyplniť žalúziu ďalšiu.

Číselníky pre STVRT, DEALER, MERAC, MONTAZNIK, FARBA sú aktivované okamžite po stlačení klávesy ENTER. Potom si stačí vybrať potrebné a znova stlačiť ENTER. Ak však má užívateľ čísla v krvi stačí napísať priamo číslo program si už neako poradí sám.

F3 - DEALER, F5 - MERAC, F6 - MONTAZ, F4 - FARBA
Okno pre doplnenie číselníka dealerov (meračov, montážnikov farieb). Pohyb šipkami, ESC - koniec práce, DEL - označ dealera na zmazanie.

F4 - ULICA
Okno pre doplnenie číselníka ulíc. Ostatné ako u DEALER. Ak však stlacíte ENTER na položke vpravo objaví sa vám okno MESTO, kde si vyberiete do akého mesta potrí ulica. Aj v meste je ešte možné vybrať KRAJ. ( Upozorňujem, že názvy sú pracovné. Znamená, že ich použitie môže byť iné).



Poradze:68
Program: Zapalky.pas
Subor exe: Zapalky.exe
Mušiš mac: Egavga.bgi

Ondrejove zápalky<\b>
Ondrej sa od mladi rád hrával so zápalkami. Staval z nich všakovaké podivuhodné umelecké dielka a rád ich rozdával svojim kamarátom. Aby tie dielka lepšie vyzerali, potreboval rôzne druhy zápaliek - s hnedou hlavičkou, so zelenou, celé červené a mnoho iných druhov. Z dlhej chvíle si z nich začal skladať na stole mnohouholníky. Na stole má 4 druhy zápaliek - modré, zelené, červené a ružové. Všetky druhy zápaliek majú rovnakú dĺžku. Len tak si zmyslel, že modré zápalky bude dávať len v smere zhora nadol, zelené len zľava doprava, červené len zľava dole doprava hore a ružové len zľava hore doprava dole. Teraz ho trápi, či možno zo všetkých zápaliek, ktoré má na stole, postaviť jeden veľký mnohouholník.
Úloha<\b>
Napíšte program, ktorý dostane na vstupe 4 čísla A, B, C, D - počty modrých, zelených, červených a ružových zápaliek a zistí, či sa dá z nich postaviť mnohouholník. Ak sa dá, vypíšte aj farby zápaliek v poradí, v akom sú uložené na jeho obvode. Ak je možností, ako poukladať zápalky, viacero, vypíšte ľubovoľnú z nich. Podľa zadania<\b> http://www.ksp.sk



Poradze:69
zivot.pngZrobil: Ľudovít Mydla
Program: Zivot.pas
Subor exe: Zivot.exe
Subor ubuntu: Zivot

Simuluje život rastlín na políčku, ich rozmnožovanie a zánik. Ako príklad použite 4 rastlinky a ich súradnice


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