Объем прямоугольного параллелепипеда с длиной а, шириной b и высотой h может быть найден, как произведение площади основания ab на высоту, т.е. Vп=abh.
Из этого объема нужно вычесть объемы четырех цилиндров. Объем цилиндра с диаметром основания D и высотой h находится по формуле Vц=πD²h/4.
Окончательно V = Vп-4Vц = h(ab-πD²).
Масса такой фигуры пли заданной плотности ρ может быть найдена по формуле m=ρV
В программе будем считать, что значения a,b,h,D,ρ заданы в ячейках листа рабочей книги MS Excel, Туда же будут выведены результаты. Для второго примера a,b будем вводить в диалоге, а ответ выдадим в окне сообщений. Это проиллюстрирует часть различных возможностей ввода и вывода данных в VBA.
Файл с рабочей книгой MS Excel 2003 дан во вложении.
На всякий случай ниже приводятся коды, прописанные в кнопках.
Private Sub CommandButton1_Click()
' ввод
a = Cells(1, 2).Value
b = Cells(2, 2).Value
h = Cells(3, 2).Value
D = Cells(4, 2).Value
rho = Cells(5, 2).Value
'расчет
V = h * (a * b + Pi * D ^ 2)
m = rho * V
' вывод
Cells(7, 2) = V
Cells(8, 2) = m
End Sub
Private Sub CommandButton2_Click()
a = CDbl(InputBox("Введите значение a"))
b = CDbl(InputBox("Введите значение b"))
x = Atn(a + b)
y = Sin(a * b - 2)
u = Log(x ^ 2 + y ^ 2 + 1)
MsgBox "y=" + CStr(u)
End Sub
0,256килобайт т.к в одном килобайте 8000бит
№1
var a, b, c, i:integer;
y, x :real;
begin
x:=-2;
while x<>2 do
begin
writeln (x, ' ', (exp(x) + exp(-x))/2-x*x*x*x);
x:=x+0.25;
end;
<span>end.
Первый номер, чтобы не было нарушения.
№2</span>
var a, b, c, i:integer;
y, x :real;
begin
x:=0;
while x<>4 do
begin
writeln (x, ' ', sqrt(x*x+5*x+3));
x:=x+0.25;
end;
end.
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
Var
A:real;
Begin
Write('Введите число: ');ReadLn(A);
if (-72<=A)and(A<=14) then WriteLn('Принадлежит')
else WriteLn('Не принадлежит')
End.
Верно сказано про Аню( точное утверждение)
у Ани синяя флешка
у Маши не синяя ( значит или белая или красная)
у Вари не белая (значит синяя или красная),но синяя у Ани. Получается, то у Вари--красная.
Тогда оставшаяся белая флешка у Маши
