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

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

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

Три прямые на плоскости заданы уравнением AkX+BkY+Ck, (k=1,2,3). Если три прямые попарно пресекаются и образуют треугольник, то определить его площадь. Использовать процедуру (или функцию) для нахождения координат точек пересечения двух прямых и вычисления площади треугольника по координатам его вершин.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.06.2011, 14:48
Ответы с готовыми решениями:

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

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

Определить, образуют ли три прямые треугольник при пересечении
Определить, образуют ли три прямые при пересечении треугольник. уравнения прямых Y=A1*X+B1,...

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

1
608 / 133 / 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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.06.2011, 16:44

Помощь в написании контрольных, курсовых и дипломных работ здесь.

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

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

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

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


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

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

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