Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 14.03.2013
Сообщений: 4
1

Построение чертежа плоской фигуры по заданным значениям

14.03.2013, 10:42. Просмотров 1033. Ответов 1
Метки нет (Все метки)

Составить программу построения чертежа плоской фигуры по заданным значениям определяющие её параметров.
Треугольник со сторонами а,b,c.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.03.2013, 10:42
Ответы с готовыми решениями:

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

Построение чертежа по размерам, заданным в TextBox
Доброе время) Вот столкнулся с такой такой задачкой как построение чертежа по заданным размерам....

Построение обычного графика по заданным значениям
Уважаемые форумчане, не могли бы вы мне помочь? Мне нужно построить обычный график по заданным в...

Наложить чертёж плоской фигуры на проекцию этой фигуры
Стоит задача наложить чертёж земельного участка на фотографию этого участка. Участок обозримого...

1
Модератор
62498 / 46688 / 32180
Регистрация: 18.05.2008
Сообщений: 112,951
14.03.2013, 14:40 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
uses crt,graph;
var a,b,c,x0,y0,x1,y1,x2,y2,x3,y3:longint;
    gd,gm:integer;
    m,x,p,h,l:real;
begin
clrscr;
repeat{вводим длины сторон с проверкой}
writeln('Vvedite dliny storon a,b,c:');
readln(a,b,c);
if(a>=b+c)or(b>=a+c)or(c>=a+b) then
writeln('Ne treugolnik, povtorite vvod');
until(a<b+c)and(b<a+c)and(c<a+b);
gd:=0;
initgraph(gd,gm,'');
{определим центр экрана}
x0:=getmaxX div 2;
y0:=getmaxY div 2;
p:=(a+b+c)/2;{полупериметр}
h:=2*sqrt(p*(p-a)*(p-b)*(p-c))/a;{длина высоты, опушенной на сторонону а}
if a*a+c*c<b*b then
 begin
  x:=sqrt(c*c-h*h);{дополнение стороны а влево}
  l:=a+x;{длина горизонтальной проекции треугольника}
 end
else if a*a+b*b<c*c then
 begin
  x:=sqrt(b*b-h*h);{вправо}
  l:=a+x;
 end
else
 begin
  x:=sqrt(b*b-h*h);{часть нижней стороны а слева от основания высоты}
  l:=a;
 end;
{определим масштаб изображения на экран}
m:=(y0-40)/(h/2);{масштаб по вертикали}
if (2*x0-60)/l<m then m:=(2*x0-60)/l;{если по горизонтаи меньше, то этот масштаб}
if a*a+c*c<b*b then
 begin
  x3:=x0+round(l*m/2);
  x2:=x3-round(x*m);
  x1:=x2-round(a*m);
 end
else if a*a+b*b<c*c then
 begin
  x3:=x0-round(l*m/2);
  x1:=x3+round(x*m);
  x2:=x1+round(a*m);
 end
else
 begin
  x1:=x0-round(l*m/2);{левая вершина}
  x2:=x0+round(l*m/2);{правая вешина}
  x3:=x1+round(x*m);{верхняя вершина}
 end;
y1:=y0+round(h*m/2);
y2:=y1;
y3:=y0-round(h*m/2);
setcolor(12);{рисуем треугольник красным}
line(x1,y1,x2,y2);
line(x2,y2,x3,y3);
line(x1,y1,x3,y3);
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.03.2013, 14:40

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Построение чертежа
Помогите пожалуйста(подробнее могу переслать док там с картинками) 1. Построение чертежа...

Построение чертежа
Помогите пожалуйста доделать чертёж, осталось только выделенное красным

Построение чертежа
Помогите построить третью проекцию по этим двум в Автокаде, а так же выполнить аксонометрическое...

Площадь плоской фигуры
Найти площадь фигуры: (x^2 + y^2)^2=2a^2xy^2 Правильно ли будет тут переходить в полярные...

Триангуляция плоской фигуры
Здравствуйте! Нужна помощь с темой триангуляции. Задание такое: Триангуляция плоской фигуры...

Площадь плоской фигуры
Помогите найти площадь плоской фигуры через MATCH CAD


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.