информ.лаба №7. 1 курс .игхту

Лабораторная работа №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.