Programy zos Pascalu (KMP)

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Stranky: [1-50]  [51-100]  [101-110]  [111-120]  [121-130]  [131-140]  [141-150]  [151-160]  [161-170]  [aktualna]  [181-190]  [191-200]  [201-250]  [251-300]  [301-316]

Poradze:171
Zrobil: Ján Mojžiš
Program: O_brckavych_zatvorkach.pasCrt_efd.pas

Napiste program, ktory moze byt skompilovany oboma druhmi kompilatorov Pascalu a po spusteni vypise ANO, ak bol skompilovany kompilatorom s vnorenym zatvorkovanim a NIE, ak bol skomp. kompilatorom s nevnorenym zatvorkovanim

Zistil som ze sa to da aj takto. Tie uvodzovky su tam dolezitou sucastou, lebo ale uz nechce uznat, ked nepodporuje vnorene ale '' mi uzna a teda ''text - ANO' --> 'text NIE'text ANO' pri vnorenom sa neberie do uvahy pri text, lebo sa hodi do uvodzovky.

POZNAMKA:
CRT_EFD nie je sucastou tohto riesenia. Kniznicu CRT_EFD pre pracu s konzolovymi vypismi mozete stiahnut napriklad na: http://www.stano.wz.sk/index.php?id=8



Poradze:172
Zrobil: Ján Mojžiš
Program: O_recidivistoch.pas
Mušiš mac: Recidivisti.dat
Ukažka: O_recidivistoch.txt

Nepokoje v nasich vazniciach narastaju do neusosnych medzi. A to nielen preto, ze su preplnene, ale aj preto, ze recidivistom su vzdy pridelene nove cisla a nie tie ich, na kt. si uz zvykli. Vo vazniciach, kde sa vsetci oslovuju cislami, je tento fakt velmi nevytany.

Vsetko vyriesil novy projekt Alcatraz II. Ak pride do tejto vaznice dalsi vazen, dozorcovia zadaju do pocitaca jeho meno a priezvisko a program vypise NOVY, ak tu este predtym vazneny nebol, alebo RECIDIVISTA, ak neprisiel po prvy raz. Program tiez vypise cislo vazna. Novemu vaznovi moze program priradit lubovolne cislo, ktore avsak nema iny vazen, no recidivistovi musi priradit cislo z jeho predchadzajuceho pobytu. Mozno predpokladat ze cisla su priradovane iba uvedenym programom.



Poradze:173
Zrobil: Ján Mojžiš
Program: O_sucte_cisel.pas
Subor exe: O_sucte_cisel.exe


Napiste program, ktory nacita kladne cislo n a vypise nasledujuci riadok ,,dvojkovy zapis n"(2) = ,,desiatkovy zapis n" (10)
PRIKLAD: Pre n = 10 vypise: 1010(2) = 10(10).
OBMEDZENIE: V celom programe mozete pouzit iba procedury bez parametrov a jedinu jednoduchu globalnu premennu.

Rekurzia na minus. Pri vacsom pocte kladnych cisel a poslednom zapornom treba dvakrat zadat na konci 0.



Poradze:174
Zrobil: ghostix
Program: Obdlznik_hvezdicky.pas
Subor exe: Obdlznik_hvezdicky.exe

Program vykreslí obdĺžnik z hviezdičiek.



Poradze:175
Zrobil: RaptoR
Program: Objem_kocky.pas
Subor exe: Objem_kocky.exe

Program vypočíta objem kocky.



Poradze:176
Zrobil: RaptoR
Program: Objem_kvadra.pas
Subor exe: Objem_kvadra.exe

Program vypočíta objem kvádra.



Poradze:177
Zrobil: RaptoR
Program: Obsah_trojuholnika.pas
Subor exe: Obsah_trojuholnika.exe

Program vypočíta obsah trojuholníka.



Poradze:178
Zrobil: Ľuboš Saloky
Program: Odmocni.pas
Subor exe: Odmocni.exe

Odmocnina realizovaná základnými aritmetickými operáciami.



Poradze:179
odraz.jpgZrobil: Ján Benkovič
web: www.tbteacher.host.sk

Program: Odraz.pas
Subor exe: Odraz.exe

Program ako ukážka odrazu loptičky. Loptička zanecháva stopu, takže tvorí zaujímave obrazce.



Poradze:180
ohnostroj.pngZrobil: Ján Benkovič
web: www.tbteacher.host.sk

Program: Ohnostroj.pas
Subor exe: Ohnostroj.exe

Simulácia ohňostroja v pascale s malými časťami asembleru. Veľmi efektné.


Stranky: [1-50]  [51-100]  [101-110]  [111-120]  [121-130]  [131-140]  [141-150]  [151-160]  [161-170]  [aktualna]  [181-190]  [191-200]  [201-250]  [251-300]  [301-316]