
информ.лаба №7. 1 курс .игхту
.docxЛабораторная работа №7
Вариант 48
«Подпрограммы»
Задание 1
Написать программу решения следующей задачи: Вычислить сумму объѐмов и сумму поверхностей четырѐх цилиндров, если для каждого из них известны высота и радиус основания. Использовать подпрограмму-функцию.
const n=4;
начало
начало
type
q = array [1..n] of real;


var
vCilindr = pi*r*r*h
sCilindr= 2*pi*r*(h+r)
h, r: q;
s, v: real;

i : integer;
конец

конец
function vCilindr(var h, r: real): real;
begin
vCilindr := pi * r *r* h;
начало
end;

function sCilindr(var h, r: real): real;
i=1…n
begin




sCilindr := 2 * pi * r * (h + r);

end;
h,r
v,s
begin
for i := 1 to n do


begin
h[i],r[i]
конец
writeln('Введите высоту(h) и радиус цилиндра(r) ', i);
readln(h[i], r[i]);

v := v + vCilindr(h[i], r[i]);
v=v+vCilindr(h[i],r[i])
s := s + sCilindr(h[i], r[i]);
end;

s=s+vCilindr(h[i],r[i])
Writeln('Сумма объемов =',v,', сумма поверхностей =',s);
end.
