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
- HIBÁTLAN Apple Watch Ultra 2 Natural Titanium 49mm -1 ÉV GARANCIA - 100% Akkumulátor, MS3220
- Samsung 9100 PRO 4TB Villámgyors NVMe SSD 14.800 / 13.400
- REFURBISHED - HP USB-C Dock G4 docking station (L13899-001)
- Apple iPhone 16 Plus 256GB,Újszerű,Kábel, 12 hónap garanciával
- DELL Precision 7540 - Intel Core i9-9980HK, RTX 3000
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest

