DECLARE FUNCTION f# (x AS DOUBLE)
DECLARE FUNCTION Integ# (a AS DOUBLE, b AS DOUBLE, n AS LONG)
'Main program
DIM eps AS DOUBLE, n AS LONG, s AS DOUBLE, s1 AS DOUBLE
DIM a AS DOUBLE, b AS DOUBLE
CLS
a = 0: b = 1: eps = .001
n = 100
s = Integ#(a, b, 10#)
DO
s1 = s
s = Integ#(a, b, n)
n = n * 2
LOOP UNTIL ABS(s - s1) <= eps
PRINT s
END
FUNCTION f# (x AS DOUBLE)
f# = x ^ 3 * EXP(x ^ 2)
END FUNCTION
FUNCTION Integ# (a AS DOUBLE, b AS DOUBLE, n AS LONG)
DIM h AS DOUBLE, xb AS DOUBLE, x AS DOUBLE
DIM s AS DOUBLE, i AS INTEGER
h = (b - a) / n
s = 0
xb = a
FOR i = 0 TO n - 1
x = xb + i * h
s = s + f(x) * h
NEXT i
Integ# = s
END FUNCTION
<em><u>Результат выполнения программы:</u></em>
.4991509793572241
<em>Погрешность не превышает 0.001 при контрольном значении, равном 0.5</em>
Объяснение:
Вот таблица, горизонтальные не принимает;)
var
F, x, y: real;
begin
readln(x, y);
if (x >= 0) and (y > 0) then
F := sqrt(x / y) * (5 * y * y - x)
else
F := (3.3 * x - y) / (7 * x * y);
writeln('F=', F);
end.
Объяснение:
1) число 1010 будем подставлять в системы счисления начиная с 2 . Получается:
2^3+2^1= 10 нам не подходит
Подставляем 3. Получается
3^3+3^1 = 30 подходит . Наш ответ основание 3 .
2) также делаем . Примерно допускаем что 2 это мало , 99 не выйдет . С 3 тоже врятли . Попробуем 4.
4^3+2*4^2+3=64+32+3=99 подходит .
Ответ основание 4