Pascal source in Pascal (KMP)

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

Order:171
Author: 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



Order:172
Author: Ján Mojžiš
Program: O_recidivistoch.pas
need: Recidivisti.dat
Example: 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.



Order:173
Author: Ján Mojžiš
Program: O_sucte_cisel.pas
File 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.



Order:174
Author: ghostix
Program: Obdlznik_hvezdicky.pas
File exe: Obdlznik_hvezdicky.exe

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



Order:175
Author: RaptoR
Program: Objem_kocky.pas
File exe: Objem_kocky.exe

Program vypočíta objem kocky.



Order:176
Author: RaptoR
Program: Objem_kvadra.pas
File exe: Objem_kvadra.exe

Program vypočíta objem kvádra.



Order:177
Author: RaptoR
Program: Obsah_trojuholnika.pas
File exe: Obsah_trojuholnika.exe

Program vypočíta obsah trojuholníka.



Order:178
Author: Ľuboš Saloky
Program: Odmocni.pas
File exe: Odmocni.exe

Square root of basic arithmetic operations



Order:179
odraz.jpgAuthor: Ján Benkovič
web: www.tbteacher.host.sk

Program: Odraz.pas
File exe: Odraz.exe

Program demostrate rebound of ball. Ball will has shadow, this make effectively images.



Order:180
ohnostroj.pngAuthor: Ján Benkovič
web: www.tbteacher.host.sk

Program: Ohnostroj.pas
File exe: Ohnostroj.exe

Simulate of fireworks in pascal and assembler. Very viewy.


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