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

Значения параметров рассматриваемых фигур: высота шарового сегмента h=0.4 м, радиус шара r4=1.2329 м, радиус шара 2 r3=0.6 м, радиус шара1 r1=2.1 м.

Анализ этих результатов дает возможность сделать вывод, что составленная программа позволяет правильно решить поставленную задачу.

Заключение

В курсовой работе решена задача определения параметров шара и шарового сектора, при которых их объёмы равны в пределах заданной точности. Составлена и отлажена программа, реализующая указанный алгоритм. С ее помощью проведены расчеты, проанализированы полученные результаты. Анализ результатов показал, что поставленная задача успешно решена.
ЛИТЕРАТУРА

1. Выгодский М. Я. Справочник по элементарной математике / М. Я. Выгодский. М.: Наука, 1976.

2. Вычислительная техника и программирование. Учеб. Для техн. Вузов / А.В. Петров, В.Е. Алексеев, А.С. Ваулин и др.; Под ред.

А.В. Петрова. - М.: Высш. шк., 1990.

3. Вычислительная техника и программирование. Практикум по программированию: Практ. Пособие / В.Е. Алексеев, А.С. Ваулин,

Г.Б. Петрова ; Под ред. А.В. Петрова. - М.: Высш. шк., 1991.
ТЕКСТ ПРОГРАММЫ И РАСПЕЧАТКА С ЭВМ

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