пятница, 7 октября 2016 г.

#1283. "А ваш язык так может?" №4



INTEGER VAR X
X := Random ( 0 10 )

ANY VAR Value

Value :=
 CASE X
  .equal 1
   10
  .equal 2
   100
  .equal 3
   1024
  .equal 4
   2048
  .greater 6
   12345
  .less 8
   0
  DEFAULT
   void
 ; // CASE X

if ( Value .not .isVoid ) then
 ( Value .print )

Комментариев нет:

Отправить комментарий