Составить алгоритм для решения задачи: вычислить площадь поверхности прямоугольного параллелепипеда
Answers & Comments
infor5
Var a,b,c,S:real; begin write('введите стороны параллелепипеда'); read(a,b,c); S:=2*(a*b+b*c+a*c); writeln('Площадь поверхности =', S); end.
///////////////////////////////////////////////////////// Создаете командную кнопку Нажимаем на нее и вводим программу ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
a=inputbox("вв длину") b=inputbox("вв ширину") c=inputbox("вв высоту параллелепипеда") S=2*(a*b+b*c+a*c) print "Площадь поверхности параллелепипеда=" S
Answers & Comments
begin
write('введите стороны параллелепипеда');
read(a,b,c);
S:=2*(a*b+b*c+a*c);
writeln('Площадь поверхности =', S);
end.
/////////////////////////////////////////////////////////
Создаете командную кнопку Нажимаем на нее и вводим программу
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
a=inputbox("вв длину")
b=inputbox("вв ширину")
c=inputbox("вв высоту параллелепипеда")
S=2*(a*b+b*c+a*c)
print "Площадь поверхности параллелепипеда=" S