To uz vyzera naozaj ako pascal
To uz vyzera naozaj ako pascal
1: Asus P2B 1.10 • Celeron 1100@1364/1.8V • 512MB SDRAM • Samsung SP1213N+WD AC28400 • Toshiba XM-6402B+SD-M1212 • PowerColor AR2L Radeon 9100 64MB • 3C900-Combo • Bt848A • ASB-3940UA • AWE-64 • DTK PTP-3007 • VisionMaster 405 • Umax UC630 • Star LC24-200 Colour 2: PCPartner TXB820DS • Cyrix MII PR300/1.8V • 256MB SDRAM • 2xSamsung HD400LD+IT8212F • Accesstek CW4001 • LS-120 • Mystique 4MB • Millennium II 4MB • 3C509 • CMI8329A+Dream MIDI • ADI ProVista E44 • SyncMaster 203B Notebook: DTK FortisPro TOP-5A • P166MMX/1.8V • 80MB EDO • Hitachi 5K80 40GB • 12,1" TFT Router: A-Trend ATC-1425B • i486DX 50@33/5V • 48MB FPM • WD AC14300 • UMC UM9003F • HP PC LAN 16/TP+ Car: Mazda 323P BA • Z5 1489ccm, 65kW@5500rpm, 134Nm@4000rpm
Jo, to je poměrně jednoduchej prográmek
Můžeš se čistě pro inspiraci mrknout na moji semestrálku, je tu o ní thread... ale nedoporučuju ji přímo odevzdat, nevím jak bys vysvětloval ten asm..
CUBE> Ryzen 7 7700X + Arctic Lq Frzr III ◦ 64 GB DDR5-6000 ◦ ASUS TUF B650PLUS ◦ ASUS RTX3060 OC 12GB ◦ Kingston KC3000 2TB ◦ SS G12 GM-650 Gold ◦ Samsung S27A800 4K
WORK> HP EliteBook 845 G9 ◦ Ryzen 5 PRO 6550 ◦ 32 GB DDR3 ◦ 2048 GB nVME SSD ◦ 14.1" 1920x1080 LED + 2x 32" Dell 4K ◦ Win11 Enterprise
SERVER> HP ProLiant Microserver Gen8 ◦ Intel Core i5-3540T ◦ 16 GB DDR3 ◦ 180 GB SSD + 2x4 TB WD RED + 2x16 TB Toshiba ◦ 10GbE NIC
PHOTO> Canon EOS 70D ◦ EF 70-200/4L ◦ EF-S 10-18 STM ◦ EF 50/1.8II ◦ EF-S 40/2.8 STM ◦ Yongnuo YN-568EX ◦ Tamrac 5534
HOMECINEMA> TV Samsung UE55Q55T 55" 4K ◦ DVD Pioneer DV-310K ◦ AVR Yamaha RX-V359 ◦ SPK Dexon Allegro 5.0
OTHERSTUFF> Mikrotik RB760iGS ◦ Mikrotik CSS610 ◦ Mikrotik CRS326 ◦ UniFi WLAN ◦ Xerox B235 ◦ Canon PiXMA MG5350
Ďakujem Dawn si profik skontrolujem či to funguje ako ma
prosimta možeš mi ešte napisať čo si tam prečo dal ? iba tie procedury
pi*sqr
2*pi
0:3
Zatial ďakujem všetkym
no dyk sem rikal ze to je jenom tak z hlavy, ja sem tak 4 roky vubec nic nenaprogramoval
rekurzie?? s tim bych se snad vyrovnal pri ladeni
k tomu otherwise: je to rozsireni Pascalu podle normy ISO 10206 (Extended Pascal), nekde sem to videl, tak se omlouvam vsem koho to zmatlo
..sem nevedel jak se to "case" pouziva tak sem nasel nejakej manual
Pi
To je snad jasný z názvu, ne? Funkce vrací hodnotu Pi.
Sqr
Druhá mocnina
0:3
Parametr procedury „write(ln)“, kterým lze nastavit, jak se zobrazí číslo. První číslo (0) udává minimální celkovou délku čísla (znaky!). Pokud by bylo číslo při výpisu kratší než uvedená hodnota, doplní se zleva mezerami. To se dá použít na zarovnání čísel pod sebou na desetinnou čárku. Hodnota 0 se ignoruje. Druhé číslo (3) udává počet desetinných míst. Když tenhle parametr vynecháš, tak se reálná čísla zobrazují standardně v exponenciálním tvaru, což není zrovna přehledné.
Ani tento nefunguje!
tak programoval som uz velmi davno,ale taketo programi som zvladal v pohode a to dokonca na 8bit Sharp MZ-800 a Basic...
Clive: nic vzlom,ale co je to za skolu kam chodis??
hp pavilion zt3020
Původně odeslal Mikhaill
tak programoval som uz velmi davno,ale taketo programi som zvladal v pohode a to dokonca na 8bit Sharp MZ-800 a Basic...
Clive: nic vzlom,ale co je to za skolu kam chodis??
je to asi najväčšia pajta na slovensku nadavaju tomu že citujem
" stredne odborne učilište chemicke Novaky" - SOUCH
PAJTA NAD PAJTY !!!!
zajtra to mam odovzdať a asi som v peknej eliptickej pi*i
Co ti na tom nefunguje? Já jsem to samozřejmě zkoušel, než jsem to sem dal.Ani tento nefunguje!
Diky za pomoc všetkym - uprimne!Co ti na tom nefunguje? Já jsem to samozřejmě zkoušel, než jsem to sem dal.Ani tento nefunguje!
Fakt ten program nešiel. Ale dostal som zan 5 ale na vysvečku bude 2 takže
Ešte raz THANX ALL !!
pascal
Ty lenivec jeden!!! Je tu sice par pokusov, ako ten primitivny program napisat, no ti, co to pisali, zabudli, ze v pascale treba pisat aj hlavny program. Vazeni, vy ste tam napisali len procedury,tie sice pomozu, no treba ich volat z hlavneho programu. A pozdravuj svojho pana profesora, osobne sa s nim poznam. Mali sme spolu dost dlhu debatu v autobuse... Keby ten vedel, ako sa snazios nieco vyprodukovat, asi by sa dost cudoval.
Toto téma si právě prohlíží 1 uživatelů. (0 registrovaných a 1 anonymních)
Pravidla přispívání
Odpověď s citací