Реферат: Алгоритмизация и програмирование

r3:=r3-k;

r_osn:=abs(r1*sin(a1/2));

h1:=abs(r1*cos(a1/2));

h:=r1-h1;

v_sek:=2/3*pi*r1*r1*h;

v_shar:=4/3*pi*r3*r3*r3;

writeln ('Максимальный угол= ', a 1:8:4);

writeln ('Максимальное значение высоты= ', h 1:8:4);

writeln ('Максимальный радиус основания= ', r _ osn :8:4);

writeln('Объем шарового сектора= ',v_sek:8:4);

writeln('Объем шара= ',v_shar:8:4);

writeln(v_sek:8:4, ' < ',v_shar:8:4, ' -> Условие выполняется');

goto 1;

end;

a1:=a1+b;

r3:=r3+k;

until a1=161;

1:readkey;

END.

Результаты вычислений