Question

перевести на язык программирования следующую блок-схему:

Answer 1

MS DOS QBasic 1.0

INPUT f
IF f < 10 THEN
  y = f ^ 3 - .3
ELSE
  IF f >= 10 AND f <= 21 THEN
    y = 0
  ELSE
    y = f ^ 2 - 21
  END IF
END IF
x = y + 6.3 * y ^ 2
PRINT y, x