Sub aaa()
Const t = 24.683, s = -15000
Dim x As Double, y As Double, z As Double
Select Case t
Case Is > 0
x = 3 * t ^ 2
Case 0
x = 4
Case Else
x = 24 * t
End Select
If t - s > x Then
y = 0
Else
y = 241
End If
z = x + y
MsgBox z
End Sub
Результат - во вложении.
Фомулы:
N =
, где
N - мощность алфавита,
i - количество бит на 1 символ.
V = K * I, где
V - объем,
K - количество символов в сообщении.
Количество бит на 1 символ у племени Мульти:
N =
,
32=
,
i = 5 бит.
Количество бит на 1 символ у племени Пульти:
N =
,
64=
,
i = 6 бит.
Найдем объем информации Мульти:
V
₁ = K * I,
V₁ = 80 * 5 = 400 бит.
Найдем объем информации Пульти:
V₂ = K * I,
V₂ = 70 * 6 = 420 бит.
Сравним объемы:
V₂ - V₁ = 20 бит
Ответ: Объем информации племени Пульти больше племени Мульти на 20 бит.
#include <iostream>
#include <cmath>
using namespace std;
int main() {
float a(-1),b(1),h,x1,x2,y1,y2,k,s(0);
int n(2);
do {
k=s; s=0;
for (int j=1; j<=n; j++) {
h=(b-a)/n;
x1=a+h*(j-1); x2=x1+h;
y1=x1*x1; y2=x2*x2;
s=s+(y1*h+y2*h)/2;
}
n++;
if (abs(s-k)<0.01) {
cout << "1" << endl;
break;
}
}
while(n>=0);
cout << s <<endl << n << endl;
return(0);
}