ГОТОВЫЕ ДИПЛОМНЫЕ РАБОТЫ, КУРСОВЫЕ РАБОТЫ, ДИССЕРТАЦИИ И РЕФЕРАТЫ
Создание программного модуля «Расчет значений параметров и построение прямой призмы | |
| Автор | ошибка |
| Вуз (город) | не указан |
| Количество страниц | 24 |
| Год сдачи | 2008 |
| Стоимость (руб.) | 1500 |
| Содержание | СОДЕРЖАНИЕ
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 стр. |
| Выдержка из работы | 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)) |