{* Задача345 *}

REM basic

' Для заданного набора коэффициентов a, b, c, d найдите наименьшее значение функции y=ax3+bx2+cx+d


CLS
 
INPUT "Vvedite a: ", a
INPUT "Vvedite b: ", b
INPUT "Vvedite c: ", c
INPUT "Vvedite d: ", d
  
For i = 0 To 10
  x = i / 5
  M(i) = a * x ^ 3 + b * x ^ 2 + c * x + d
Next
 
  Min = M(0)
For i = 0 To 10
  If M(i) < Min Then Min = M(i): k = i
Next
  PRINT "Znachenie = "; Min
  PRINT "Argument ="; k / 5
End