Срочно! создать программу! тема "организация подпрограмм через функцию" задача дан параллепипед с измерениями а,b, c. Составить программу для нахождения площади полной поверхности, используя подпрограмму нахождения площади прям...
Срочно! создать программу!
тема "организация подпрограмм через функцию"
задача
дан параллепипед с измерениями а,b, c. Составить программу для нахождения площади полной поверхности, используя подпрограмму нахождения площади прямоугольника.
Гость
Ответ(ы) на вопрос:
ГостьВычисление производим по формуле
[latex]S=2(ab+ac+bc)=2(Sp_{(a,b)}+Sp_{(a,c)}+Sp_{(b,c)}); \ Sp_{(x,y)}=x\cdot y[/latex]
function Sp(x,y:real):real;
begin
Sp:=x*y
end;
var
a,b,c,S:real;
begin
Write('Введите размеры сторон a,b,c: ');
Read(a,b,c);
S:=2*(Sp(a,b)+Sp(a,c)+Sp(b,c));
Writeln('Площадь поверхности равна ',S)
end.
Тестовое решение:
Введите размеры сторон a,b,c: 2.5 3.15 4
Площадь поверхности равна 60.95
Не нашли ответ?
Похожие вопросы