Aktív témák
-
Power
senior tag
Valami ilyesmi(remélem jól átmegy):
Sajnos a space-eket leszedi a fórum motor.
Szóval a aláhúzásokkal helyettesítem :)
BYTE FUNCTION uppercase (VAL BYTE ch)
__BYTE result
__VALOF
____SEQ
______IF
________((ch >= 'a') AND (ch <= 'z'))
__________result := ch - 'a' + 'A'
________TRUE
__________result := ch
______RESULT result
:
CHAN OF BYTE comm :
PAR
__WHILE TRUE -- keyboard input process
____BYTE ch :
____SEQ
______keyboard ? ch
______comm ! uppercase (ch)
__WHILE TRUE -- screen output process
____BYTE ch :
____SEQ
______comm ? ch
______display ! ch
Nekem má nincs occam fordítóm, szóval remélem lefordul.
Meg mondjuk attól is függ hányas occambe kell.
[Szerkesztve] -
Sub-S
senior tag
Valaki tudna írni egy nagyon egyszerű programocskát occamban?
Aktív témák
- Épített vízhűtés (nem kompakt) topic
- Spórolós topik
- Felhő alapú adattárolás (Dropbox, stb.)
- MWC 2026: Könnyen megmarkoltuk a Lenovo Legion Tab ötödik generációját
- Mesterséges intelligencia topik
- TCL LCD és LED TV-k
- Pécs és környéke adok-veszek-beszélgetek
- Kés topik
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Luck Dragon: Asszociációs játék. :)
- További aktív témák...
- Lenovo IdeaPad Slim 3 Ryzen 7 8840HS 15" FHD+ 16GB 1000GB Teljeskörű garancia
- LENOVO L13 Yoga 360 touch - 13,3" - i5 10210U, 8GB RAM, SSD, jó akku, - számla, 6 hó gar
- BESZÁMÍTÁS! Asus ROG Strix B365 i5 9400F 16GB DDR4 512GB SSD RTX 2060 Super 8GB Zalman S2 TG 600W
- Apple iPhone XR 128GB, Kártyafüggetlen, 1 Év Garanciával
- Telefon felvásárlás!! iPhone 13 Mini/iPhone 13/iPhone 13 Pro/iPhone 13 Pro Max
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
