Найти периметр треугольника по координатам вершин

@Trush · Регистрация: 04.11.2010

найти периметр треугольника АВС, если его координаты A(x1,y1), B(x2,y2), C(x3,y3,)вводятся с клавиатуры. При неправильном вводе значений, вывести на экран сообщение об ошибке и предложением повторно ввести правильные данные.

Какое тут будет условие, при которым будут определены неправильные данные?

Pascal

uses crt;
var ab,bc,ac,p,x1,x2,x3,y1,y2,y3:real;
begin
clrscr;
repeat
Writeln ('Введите координаты вершины А');
readln (x1,y1);
Writeln ('Введите координаты вершины B');
readln (x2,y2);
Writeln ('Введите координаты вершины С');
readln (x3,y3);
{if (((x1=x2)or (x2=x3) or (x1=x3))and ((y1=y2)or(y2=y3)or(y1=y3))) then - бред}
begin
writeln ('Точки не могут совпадать');
end;
until {(((x1<>x2)or(x1<>x3)) and ((y1<>y2)or(y2<>y3)or(y1<>y3))); - бред }
AB:=sqrt((sqr(x1-x2))+(sqr(y1-y2)));
BC:=sqrt((sqr(x2-x3))+(sqr(y2-y3)));
AC:=sqrt((sqr(x1-x3))+(sqr(y1-y3)));
 
P:=AB+BC+AC;
writeln ('Периметр треугольника равен =',p:4:0,'см.');
readln;
 
end.

@Puporev · 19.02.2011, 06:52

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

Какое тут будет условие, при которым будут определены неправильные данные?

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

Pascal

uses crt;
var ab,bc,ac,p,x1,x2,x3,y1,y2,y3:real;
begin
clrscr;
repeat
Writeln ('Введите координаты вершины А');
readln (x1,y1);
Writeln ('Введите координаты вершины B');
readln (x2,y2);
Writeln ('Введите координаты вершины С');
readln (x3,y3);
AB:=sqrt((sqr(x1-x2))+(sqr(y1-y2)));
BC:=sqrt((sqr(x2-x3))+(sqr(y2-y3)));
AC:=sqrt((sqr(x1-x3))+(sqr(y1-y3)));
if(AB>=BC+AC)or(AC>=AB+BC)or(BC>=AB+AC) then writeln('Это не треугольник, повторите ввод!');
until (AB<BC+AC)and(AC<AB+BC)and(BC<AB+AC);
P:=AB+BC+AC;
writeln ('Периметр треугольника равен =',p:0:2,'см.');
readln;
 
end.

Опции темы