Готовая курсовая работа

begin

if alfa0 then

begin

bbeta:=true;

balfa:=true;

alfa1:=pi*alfa/180;

beta:=180-alfa;

bbeta1:=true;

beta1:=pi*beta/180;

end;

if beta0{ and balfa=False} then

begin

balfa:=true;

bbeta:=true;

beta1:=pi*beta/180;

alfa:=180-beta;

balfa1:=true;

alfa1:=pi*alfa/180;

end;

end;





procedure Tform1.Control;

begin

error:=false;

balfa1:=false;

bbeta1:=false;

balfa:=false;

bbeta:=false;

ba:=false;

bb:=false;

bc:=false;

bh:=false;

bh1:=false;

br:=false;

bs1:=false;

bs2:=false;









if h0 then

bh:=true;

if h10 then

bh1:=true;

if s10 then

bs1:=true;

if s20 then

bs2:=true;

if a0 then

ba:=true;

if b0 then

bb:=true;

if c0 then

bc:=true;

if r0 then

br:=true;



radials;







if balfa and bbeta then

if (alfa+beta)180 then

begin

showmessage('Error 1: angles fractured.');

error:=true;

end;



{ if balfa then begin

str:=floattostr(alfa1); check for radian translation

showmessage(str);

end; }



if balfa and ba and bb and bh then

if not(abs(tan(alfa1)-2*h/(a-b))

СОДЕРЖАНИЕ

1. Постановка задачи.

2. Выбор среды программирования.

3. Построение математической модели.

4. Блок-схемы алгоритмов

5. Программный код.

6. Руководство к программе

7. Использованная литература.





Постановка задачи



Ввести высоту прямой призмы, а также стороны, углы и высоту равнобокой трапеции, лежащей в основании. Вычислить неизвестные углы и стороны, площади полной и боковой поверхности, радиус вписанной окружности, если она существует.

Программа должна включать в себя следующие возможности:

 Задание начальных параметров;

 Расчет и просмотр значений;

 Построение фигуры мгновенно и в режиме анимации;

 Получение справочных сведений.

Ввести указанные в задании параметры геометрической фигуры. Вместо некоторых из них можно вводить 0, тогда размер считается неизвестным. Проверить, корректна ли введенная информация, достаточно ли введено данных. Вычислить указанные в задании параметры геометрической фигуры.

Построить изображение рассчитанной фигуры, произвести дополнительные построения – описанные и вписанные окружности, высоты. Подписать основные точки. Если необходимо добавить комментарии. Построение изображения должно проводится в двух режимах: мгновенно и по точкам в режиме анимации. Предоставить пользователю выбор режима и цвет линий изображения.



Выбор среды программирования.

С появлением и развитием операционных систем Microsoft Windows (3.1, 3.11, 95, 98, 2000), пришедших на смену DOS, значение Turbo Pascal как среды программирования резко снизилось. В настоящее время эта среда практически не применяется и используется для внесения коррективов в ранее созданные и до сих пор работающие программы и базы данных и/или в низкоресурсных компьютерах устаревших моделей.

Значение самого языка Turbo Pascal, напротив, не уменьшилось, т. к. на смену вышеназванным DOS-средствам одноименного названия пришло новое, еще более мощное и более удобное средство программирования – среда Delphi (Делфи или Дельфи), основой которого является по-прежнему Turbo Pascal и который выступает теперь под названием – Object Pascal.





Построение математической модели



Пусть H – высота призмы, a – большее основание, b – меньшее, h – высота трапеции, с – боковая сторона, alpha – угол при основании а, beta – угол при основании b, r – радиус вписанной окружности, S1 – боковая поверхность, S2 – полная поверхность.

Рассмотрение ситуаций неполноты данных.

1) Известна высота призмы, основания и высота трапеции. Тогда для определения углов при основаниях воспользуемся следующими формулами:

 tg α1 = 2h/(a-b) (1)

 α1 = arctg(2h/(a-b)) (2)

 В градусах α = 180α1/п (3)

 β= 180-α (4)



2) Известны основания трапеции и угол при одном из оснований.

 Находим угол при другом основании через формулу(4) либо α = 180- β (5)

 Находим высоту h = (a-b)/2 (6) * tg α, где α – в градусах.

 Для перевода в радианы воспользуемся формулой α1=π α/180 (7)

3) если дано большее основание, высота и угол при основании, то можем определить второе основание по формуле:

 b=2h/tgα1, где α1 – в градусах, для перевода в радианы воспользуемся формулой (7)

4) если выполняется условие a+b=2h, то в трапецию можно вписать окружность.

 Её радиус R определяется по формуле R=h/2.

 Боковая сторона определяется по формуле c=h/sinα



Условиями некорректных данных будут следующие факты:

1) Введенные значения углов пи основании не равны в сумме 180

2) Введены длины оснований, высота, углы, при этом не выполняется соотношение tgα1=2h/(a-b), где α1 – острый угол при основании в радианах, с учётом погрешности вычисления, т.е. tgα1-2h/(a-b)

1. Атанасян Л.С. Геометрия 9-11, , 1994г., «Просвещение», 400 с.

2. Фаронов В.В., «Программирование для ВУЗов» 2003 год, 640 стр.

3. Шестаков А.П., Семакин Е.Г., «Основы алгоритмизации и программирования для среднего профессионального образования»,ИЦ Академия, 400 стр.