Народ, помогите пожалуйста, нужно написать програмку в эксель VBA Вычислить объем детали и ее массу, если деталь имеет форму пр
Народ, помогите пожалуйста, нужно написать програмку в эксель VBA Вычислить объем детали и ее массу, если деталь имеет форму прямоугольного параллелепипеда с четырьмя сквозными отверстиями цилиндрической формы равных размеров. Размеры детали и плотность заданы.
И еще пример рассчитать там же: u=lg(x^2+y^2+1), где x=arctg(a+b) y=sin(ab-2) a и b задаются вводом Заранее спасибо)
Объем прямоугольного параллелепипеда с длиной а, шириной 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
<script type="text/javascript"> var eu=71.3805321; var dol=64.4205373; var rub=prompt('Enter value in ruble:','rub'); alert('$:'+rub/dol+' eu:'+rub/eu); <span> </script></span>
Var x,s:integer; begin readln(x);readln(s); while x<>5 do begin s:=x; x:=x+1; s:=s+x; end; writeln(s);writeln(x); end. Если будут неправильно то попросите меня исправить
Решение: Известно, что с помощью N бит можно закодировать 2N<span> различных чисел. Поскольку 2</span>7<span> < 235 < 2</span>8<span> и для каждого спортсмена число бит одинаково, то для записи каждого из 253 номеров необходимо 8 бит памяти. Поэтому сообщение о 190 номерах имеет объем 190 · 8 = 190 байт. Ответ: 190 байт.</span>