Program Kursovik;. Uses Crt;. h1,r,v_sek,v_shar,a1,a2,k,b,r1,r_osn,r3,r4,h:real;. clrscr;. repeat. r_osn:=abs(r1sin(a1/2));. h1:=abs(r1cos(a1/2));. v_sek:=2/3pir1r1h;. v_shar:=4/3pir3r3r3;. if v_sek>v_shar then. r_osn:=abs(r1*sin(a1/2));. h1:

Program Kursovik;

Uses Crt;

label 1;

Var

h1,r,v_sek,v_shar,a1,a2,k,b,r1,r_osn,r3,r4,h:real;

Begin

clrscr;

b:=1;

k:=-0.1;

a1:=1;

a2:=161;

r3:=3.6;

r4:=0.2;

r1:=3.3;

repeat

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;

if v_sek>v_shar then

begin

a1:=a1-b;

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('Максимальный угол= ',a1:8:4);

writeln('Максимальное значение высоты= ',h1: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.

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

Program Kursovik;. Uses Crt;. h1,r,v_sek,v_shar,a1,a2,k,b,r1,r_osn,r3,r4,h:real;. clrscr;. repeat. r_osn:=abs(r1*sin(a1/2));. h1:=abs(r1*cos(a1/2));. v_sek:=2/3*pi*r1*r1*h;. v_shar:=4/3*pi*r3*r3*r3;. if v_sek>v_shar then. r_osn:=abs(r1*sin(a1/2));. h1: