Объем прямоугольного параллелепипеда с длиной а, шириной 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
Var a,b,c,max,two: Integer; begin writeln('Введите 1 число'); readln(a); writeln('Введите 2 число'); readln(b); writeln('Введите 3 число'); readln(c); max:=a; if max < b then max:=b; if max < c then max:=c; if max=a then begin two:=max; if c < b then two:=b; if c > b then two:=c; writeln(max,'+',two,'=',max+two); end; if max=b then begin two:=max; if c < a then two:=a; if c > a then two:=c; writeln(max,'+',two,'=',max+two); end; if max=c then begin two:=max; if a < b then two:=b; if a > b then two:=a; writeln(max,'+',two,'=',max+two); end; end.
var a:integer;
begin
Writeln('Введите число');
Readln(a);
a:=a div 100;
a:=a mod 100;
a:=a mod 10;
Writeln(a)
end.