Определить, могут ли точки быть вершинами некоторого треугольника

@Svetka_rain · Регистрация: 21.04.2013

Author24 — интернет-сервис помощи студентам

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

@Gidropon · 21.04.2013, 17:24

Сообщение от Svetka_rain

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

Pascal

program xxx;
 
type triangle = record
    x1 : real;
    y1 : real;
    x2 : real;
    y2 : real;
    x3 : real;
    y3 : real;
end;
 
var tr : triangle;
        s : real;
 
begin
    write('Введите координаты точки a: ');
    readln(tr.x1,tr.y1);
    write('Введите координаты точки b: ');
    readln(tr.x2,tr.y2);
    write('Введите координаты точки с: ');
    readln(tr.x3,tr.y3);
    s := abs(tr.x1*(tr.y2-tr.y3)+tr.x2*(tr.y3-tr.y1)+tr.x3*(tr.y1-tr.y2))/2;
    if s <> 0 then 
        writeln('Треугольник существует!')
    else
        writeln('Треугольник не существует!');
    readln;
end.

@Svetka_rain · 21.04.2013, 17:30 **[ТС]**

вы программист?)

@Gidropon · 21.04.2013, 17:31

Я только учусь

@Svetka_rain · 21.04.2013, 17:32 **[ТС]**

Сообщение от Gidropon

Я только учусь

не плохо выходит) вам это дано)

@Gidropon · 21.04.2013, 17:33

Спасибо, очень приятно)

@Svetka_rain 0 / 0 / 1 Регистрация: 21.04.2013 Сообщений: 25
		1
	Определить, могут ли точки быть вершинами некоторого треугольника 21.04.2013, 03:14. Показов 3223. Ответов 5 Метки нет (Все метки) 3. Даны три точки на плоскости, описать их как записи. Определить, могут ли они быть вершинами некоторого треугольника. 0

@Svetka_rain 0 / 0 / 1 Регистрация: 21.04.2013 Сообщений: 25
	21.04.2013, 17:30 [ТС]	3
	вы программист?) 0

@Gidropon 77 / 77 / 52 Регистрация: 28.02.2013 Сообщений: 206 Записей в блоге: 9
	21.04.2013, 17:31	4
	Я только учусь 0

@Svetka_rain 0 / 0 / 1 Регистрация: 21.04.2013 Сообщений: 25
	21.04.2013, 17:32 [ТС]	5
	Сообщение от Gidropon Я только учусь не плохо выходит) вам это дано) 0

@Gidropon 77 / 77 / 52 Регистрация: 28.02.2013 Сообщений: 206 Записей в блоге: 9
	21.04.2013, 17:33	6
	Спасибо, очень приятно) 0

Опции темы