Формула вычисления объема параллелепипеда
Общая формула Объем любого параллелепипеда равняется произведению площади его основания на высоту. V = Sосн ⋅ h. ...
Объем прямоугольного параллелепипеда Объем фигуры равен произведению его длины на ширину на высоту. V = a ⋅ b ⋅ c.
Объяснение:
Program F90
integer i, j, k, s /0/, x/2/, y/6/, a(7, 7)
do k = 1, 4
do i = x - 1, y + 1
s = s + 1
a(x - 1, i) = s
end do
i = y + 1
do j = x, y + 1
a(j, i) = s
do i = y, x - 1, -1
a(y + 1, i) = s
i = x - 1
do j = y, x, -1
x = x + 1
y = y - 1
Print *, 'massive 15 = '
Write(*, '(7i5)') ((a(i, j), j=1, 7), i=1, 7)
End Program
Формула вычисления объема параллелепипеда
Общая формула Объем любого параллелепипеда равняется произведению площади его основания на высоту. V = Sосн ⋅ h. ...
Объем прямоугольного параллелепипеда Объем фигуры равен произведению его длины на ширину на высоту. V = a ⋅ b ⋅ c.
Объяснение:
Формула вычисления объема параллелепипеда
Общая формула Объем любого параллелепипеда равняется произведению площади его основания на высоту. V = Sосн ⋅ h. ...
Объем прямоугольного параллелепипеда Объем фигуры равен произведению его длины на ширину на высоту. V = a ⋅ b ⋅ c.
Program F90
integer i, j, k, s /0/, x/2/, y/6/, a(7, 7)
do k = 1, 4
do i = x - 1, y + 1
s = s + 1
a(x - 1, i) = s
end do
i = y + 1
do j = x, y + 1
s = s + 1
a(j, i) = s
end do
do i = y, x - 1, -1
s = s + 1
a(y + 1, i) = s
end do
i = x - 1
do j = y, x, -1
s = s + 1
a(j, i) = s
end do
x = x + 1
y = y - 1
end do
Print *, 'massive 15 = '
Write(*, '(7i5)') ((a(i, j), j=1, 7), i=1, 7)
End Program