DECLARE SUB zolot (a!, b!, E!, xmax!)
DECLARE SUB dih (a!, b!, E!, xmax!)
DECLARE FUNCTION f! (x!)
CLS
INPUT " a="; a
INPUT " b="; b
INPUT " Eps="; E
REM
CALL dih(a, b, E, xmax)
PRINT " max "
PRINT " X="; xmax
PRINT " Y(xmax)="; f(xmax)
a = 0
b = 1
PRINT " max "
CALL zolot(a, b, E, xmax)
PRINT " X="; xmax
PRINT " Y(xmax)="; f(xmax)
END
SUB dih (a, b, E, xmax)
DO UNTIL ABS(b - a) < 2 * E
x1 = (a + b - E) / 2
x2 = (a + b + E) / 2
IF f(x1) > f(x2) THEN
b = x2
ELSE
a = x1
END IF
LOOP
xmax = (a + b) / 2
END SUB
FUNCTION f (x)
f = -2 * x ^ 2 + 3 * x + 50
END FUNCTION
SUB zolot (a, b, E, xmax)
k = (SQR(5) - 1) / 2
x1 = a + (1 - k) * (b - a)
x2 = a + k * (b - a)
DO UNTIL ABS(x2 - x1) < E
IF f(x1) < f(x2) THEN
a = x1
x1 = x2
ELSE
b = x2
x2 = x1
END IF
x1 = a + (1 - k) * (b - a)
x2 = a + k * (b - a)
LOOP
xmax = (x1 + x2) / 2
END SUB
Qbasic
max
X=.7563525
Y(xmax)= 51.12492
max
X=.748997
Y(xmax)= 51.125
Eureka
$ max(F)
y(x)=-2*x^2+3*x+50
F=y(x)
:
F = 51.125000
x =.75000000
. = 98,6%
:
Y(x) = -2x^2 + 3*x + 50
10. .
( )
y = ax2 + bx + c. .
- , .
, , , Eureka Excel.
1. ?
2. ?
3. ?
4. ?
5. ?
6. ?
7. ?
8. ?
9. ?
10. ?
|
|
|
11. ?
12. ?
13. ?
14. ?
15. ?
16. ?
17. ?
18. ?
7
.
, , .
, , .
. , , , , , .
8 ;
, , , _, -, (,), $ .
<>, *, , , , .
, .
.
(. filename extension, ) , () . , .
| *.aif, *.aifc, *.aiff | |
| *.asm | . |
| *.avi | |
| *.bas | Basic (GWBasic, TurboBasic, QuickBasic) |
| *.bmp | ( ). |
| *.com | |
| *.cpp | C++ |
| *.doc | Microsoft Word for Windows |
| *.dot | MS Word |
| *.exe | |
| *.gif | (Graphics Interchange Format). CompuServe |
| *.htm, *.html | , Hyper Text Markup Language |
| *.mdb | Microsoft Access |
| *.mov - | |
| *.pas - | Pascal |
| *.ppt | Microsoft PowerPoint |
| *.sys - | DOS IO.sys MSDOS.sys. |
| *.txt | , |
| *.xls | Microsoft Excel |
| *.zip - |
, .
, , - . - .
|
|
|
, . . 0 , . ( - , . 8 ).
, , :
"", "4067 ", "1972", "100$"
"-34", "6666 ", 1989, "3500$"
