Aktív témák

• #7 Power senior tag Sub-S #6

  2004-04-26 15:46:30 #7

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Power

  senior tag

  válasz Sub-S #6 üzenetére

  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]

• #5 Power senior tag Sub-S #3

  2004-04-26 13:40:56 #5

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Power

  senior tag

  válasz Sub-S #3 üzenetére

  Szerintem írd le mi kell konkrétan, hátha vki összedobja(ha tényleg egyszerű).

• #2 Power senior tag Sub-S #1

  2004-04-26 13:08:35 #2

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Power

  senior tag

  válasz Sub-S #1 üzenetére

  Jé! Van még occam? :)
  Csak nem valami lecke?
  :DD :DD

Aktív témák