Составить блок-схему и написать процедуру приближенного вычисления площади под участком кривой под y=под корнем 20 минус x в кубе на отрезке [−2;
10-11 класс
|
2,5].
Sub z()
a = -2
b = 2.5
h = 0.000001 ' Если долго считает, можно увеличить, но точность будет хуже.
' Наоборот, если быстро считает, можно еще уменьшить, точность возрастет
For i = a To b Step h
y = Sqr(20) - i ^ 3
s = s + y * h
Next i
MsgBox ("S=" & s)
End Sub
Другие вопросы из категории
INPUT "Kolichestvo okrugov. K="; k
INPUT "Kolichestvo partiy. M="; m
INPUT "Porog yavki izbirateley (v %). P="; p
DIM g(k, m + 1)
DIM pr(k, 1)
FOR i = 1 TO k
CLS
PRINT "Okrug "; i
g(i, 0) = i
FOR j = 1 TO m
PRINT "Golosov za partiyou "; j;
INPUT g(i, j)
pr(i, 1) = pr(i, 1) + g(i, j)
NEXT j
INPUT "Ne golosovalo "; g(i, m + 1)
pr(i, 0) = i
pr(i, 1) = 100 * pr(i, 1) / (pr(i, 1) + g(i, m + 1))
NEXT i
CLS
FOR i = 1 TO k
FOR j = 1 TO k
IF pr(i, 1) > pr(j, 1) THEN
x = pr(i, 1)
y = pr(i, 0)
pr(i, 1) = pr(j, 1)
pr(i, 0) = pr(j, 0)
pr(j, 1) = x
pr(j, 0) = y
END IF
NEXT j
NEXT i
PRINT "Itogi po golosovavshim"
PRINT "Okrug #", "Golosovalo (%)", "Pobedila partia #"
FOR i = 1 TO k
PRINT pr(i, 0), pr(i, 1),
IF pr(i, 1) >= p THEN
PRINT "Yes. Sostojlis",
max = 0
FOR j = 1 TO m
IF g(pr(i, 0), j) > max THEN
max = g(pr(i, 0), j)
x = j
END IF
NEXT j
PRINT x
ELSE PRINT "No. Ne sostojlis"
END IF
NEXT i
2 Найти сумму чисел от 3,5,7,9,11. .. и т.д.
Читайте также
Помогите пожалуйста, нужно составить блок схем и написать программу для вычисления значения следующего выражения:
Очень нужно! Заранее спасибо!
значения аргумента x. Учесть вывод сообщения о невозможности вычисления значения функции
Я не могу сочинить этот "алгоритм", помогите ;)
Блок-схемы строить не надо, просто описать, что надо делать.
2)построить блок схему которая меняет порядок цифр числа на обратный. например было 12345,стало 54321.