Составить программу нахождения первого наименьшего значения, аргумента и порядкового номера функции p=2*b^2-ln(a-c); b=0.75*a^2+c, если a меняется от -3 до 3 с шагом 0.5- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
INPUT "vvedite C ", c
minP = 1E+38
minB = 1E+38
FOR a = -3 TO 3 STEP .5
    b = .75 * a ^ 2 + c
    p = 2 * b ^ 2 - LOG(a - c)
    IF p < minP THEN minP = p: argP = a
    IF b < minB THEN minB = b: argB = a
NEXT
PRINT "funkciya      argment      minimum"
PRINT 1, argP, minP
PRINT 2, argB, minB

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment