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

Если три прямые попарно пресекаются и образуют треугольник, то определить его площадь

23.06.2011, 14:48. Просмотров 939. Ответов 1
Метки нет (Все метки)

Три прямые на плоскости заданы уравнением AkX+BkY+Ck, (k=1,2,3). Если три прямые попарно пресекаются и образуют треугольник, то определить его площадь. Использовать процедуру (или функцию) для нахождения координат точек пересечения двух прямых и вычисления площади треугольника по координатам его вершин.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.06.2011, 14:48
Ответы с готовыми решениями:

Если прямые попарно пересекаются и образуют треугольник, то найти его площадь
три прямые на плоскости заданы уравнениями акх+bky=ck (к=1,2,3) если прямые...

Даны три числа a, b, c, удовлетворяющие аксиомам треугольника. Если треугольник равносторонний, то найти его площадь
1. Даны три числа a, b, c, удовлетворяющие аксиомам треугольника. Если...

Если прямые попарно пересекаются и образуют треугольник, найти его площадь
Помогите! пропадаю! Три прямые на плоскости заданы уравнениями akx+bky=ck,...

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

Определить, является ли треугольник прямоугольным, если известны три его стороны
Дорогие программисты помогите студенту. Буду очень благодарен. 54. Ли...

1
MAZUR777
606 / 131 / 132
Регистрация: 15.04.2010
Сообщений: 554
23.06.2011, 16:44 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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
Program m7;
       
       Uses Crt;
 
       Var
         A, 
         B, 
         C 
         : array [1..2, 1..2] of real;
 
         i, 
         j 
         : integer;
 
         a1, 
         a2, 
         a3, 
         b1, 
         b2, 
         b3, 
         c1, 
         c2, 
         c3, 
         p, 
         S, 
         Delta1, 
         Delta2, 
         Delta3, 
         d, 
         e, 
         f 
         : real;
 
         F1, 
         F2, 
         F3, 
         Z1, 
         Z2, 
         Z3 
         : array [1..2, 1..1] of real;
 
       Begin
         ClrScr;
 
         Write ('Введите а1: ');
         ReadLn (a1);
         Write ('Введите а2: ');
         ReadLn (a2);
         Write ('Введите а3: ');
         ReadLn (a3);
         Write ('Введите b1: ');
         ReadLn (b1);
         Write ('Введите b2: ');
         ReadLn (b2);
         Write ('Введите b3: ');
         ReadLn (b3);
         Write ('Введите c1: ');
         ReadLn (c1);
         Write ('Введите c2: ');
         ReadLn (c2);
         Write ('Введите c3: ');
         ReadLn (c3);
         if ((a1 / a2) = (b1 / b2))
           then
             begin
               WriteLn ('Прямые параллельны!');
               ReadLn;
               Exit;
             end
           else
             if ((a2 / a3) = (b2 / b3))
           then
             begin
               WriteLn ('Прямые параллельны!');
               ReadLn;
               Exit;
             end
           else
             if ((a1 / a3) = (b1 / b3))
           then
             begin
               WriteLn ('Прямые параллельны!');
               ReadLn;
               Exit;
             end
           else
             begin
               Delta1 := 1 / ((a1 * b2) - (a2 * b1));
               Delta2 := 1 / ((a2 * b3) - (a3 * b2));
               Delta3 := 1 / ((a1 * b3) - (a3 * b1));
 
              
               A [1, 1] := b2 * Delta1;
               A [1, 2] := - a2 * Delta1;
               A [2, 1] := - b1 * Delta1;
               A [2, 2] := a1 * Delta1;
               F1 [1, 1] := c1;
               F1 [2, 1] := c2;
               for i := 1 to 2 do
                 for j := 1 to 2 do
                   Z1 [i, 1] := Z1 [i, 1] + A [i, j] * F1 [j, 1];
 
               B [1, 1] := b3 * Delta2;
               B [1, 2] := - a3 * Delta2;
               B [2, 1] := - b2 * Delta2;
               B [2, 2] := a2 * Delta2;
               F2 [1, 1] := c2;
               F2 [2, 1] := c3;
               for i := 1 to 2 do
                 for j := 1 to 2 do
                   Z2 [i, 1] := Z2 [i, 1] + B [i, j] * F2 [j, 1];
 
               C [1, 1] := b3 * Delta3;
               C [1, 2] := - a3 * Delta3;
               C [2, 1] := - b1 * Delta3;
               C [2, 2] := a1 * Delta3;
               F3 [1, 1] := c1;
               F3 [2, 1] := c3;
               for i := 1 to 2 do
                 for j := 1 to 2 do
                   Z3 [i, 1] := Z3 [i, 1] + C [i, j] * F3 [j, 1];
 
               d := Sqrt (Sqr (Z1 [1, 1] - Z2 [1, 1]) + Sqr (Z1 [2, 1] - Z2 [2, 1]));
               e := Sqrt (Sqr (Z2 [1, 1] - Z3 [1, 1]) + Sqr (Z2 [2, 1] - Z3 [2, 1]));
               f := Sqrt (Sqr (Z1 [1, 1] - Z3 [1, 1]) + Sqr (Z1 [2, 1] - Z3 [2, 1]));
               p := (d + e + f) / 2;
               S := Sqrt (p * (p - d) * (p - e) * (p - f));
               WriteLn ('Площадь треугольника равна: ', S);
             end;
             ReadLn;
       End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.06.2011, 16:44

Даны три числа. Существует ли треугольник со данными сторонами, если существует, то найти его периметр и площадь
Даны три числа. Определить, существует ли треугольник со сторонами длиной a, b,...

Опеределить образуют ли 3 точки прямоугольный/равнобедренный/разносторонний треугольник. Если да - вычислить площадь треугольника.
1)даны координаты трех точек проверить являются ли они вершинами прямоугольного...

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


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

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

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