Объем прямоугольного параллелепипеда с длиной а, шириной 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
Мне кажется, что будет так 11-1=10
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,c):=ReadReal3;
var d:=b*b-4*a*c;
if d<0 then Writeln('Корней нет')
else
if d=0 then begin
var x:=-b/2/a;
Writeln('Корень уравнения x=',x)
end
else begin
var x1:=(-b-Sqrt(d))/2/a;
var x2:=(-b+Sqrt(d))/2/a;
Writeln('Корни уравнения: x1=',x1,', x2=',x2)
end
end.
ЭВМ - электронно-вычислительная машина, значит, поколение ЭВМ - это поколение электронно-вычислительной техники
Смена поколений (с 1 по 4) вызвала тем, что машины становились меньше по размерам, проще в использовании, использовались другие компоненты для их сборки, усовершенствовались машины - менялось поколение
Первое поколение - ламповые машины 50-х годов. Работали на электровакуумных лампах, которых было понатыкано тысячами. Порой такие машины занимали целые сотни квадратных метров площади.
Второе поколение - в 60-х годах базой ЭВМ стали транзисторы, а машины стали компактнее, менее энергоёмкими и более надёжными. Возросло быстродействие и объём внутренней памяти
Третье поколение - во второй половине 60-х американская фирма приступила к выпуску машин IBM-360 на интегральных схемах
Четвертое поколение - появилось в 1971 году с изобретением микропроцессора. Построены на основе больших интегральных схем
Всю эту информацию можно найти в интернете, надеюсь, что на вопрос ответил
Можно во так
Россия
Москва,Санкт-Петербург,Новосибирск
И потом от каждого города 2 пригорода(в Интранете найди)