программа с прцедурой

[Юля_0990]

ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Написать в паскале программу. Задача: Найти периметр треугольника, заданного координатами своих вершин. В программе использовать процедуру.

[Stilet]

Легко... Только расскажи хотя бы на словах как математически находится периметр треугольника.

[Юля_0990]

периметр- это сложение длин всех сторон треугольника...а одна сторона треугольника заданного координатами своих вершин находится по формуле
L=sqrt(sqr(x2-x1)+sqr(y2-y1))

[denisbrain]

Сообщение от Юля_0990

периметр- это сложение длин всех сторон треугольника...а одна сторона треугольника заданного координатами своих вершин находится по формуле
L=sqrt(sqr(x2-x1)+sqr(y2-y1))

Function GetS(x1,y1,x2,y2,x3,y3:integer):integer;  // Периметр
var
  x1,y1,x2,y2,x3,y3:integer;
  r3,r1,r2:integer;
begin
 r1:=Round(sqrt((x1-x3)*(x1-x3)+(y1-y3)*(y1-y3)));
 r2:=Round(sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)));
 r3:=Round(sqrt((x2-x3)*(x2-x3)+(y2-y3)*(y2-y3)));
 result:=r1+r2+r3;
end;

полностью прогу могу в delphi написать но завтра.

[Serge_Bliznykov]

Юля, ну вы же сами на свой вопрос и ответили.
вводите координаты трёх вершин.
вычисляете расстояния между ними (форумулу Вы абсолютно правильно привели).
суммируете полученные расстояния.
Это и есть требуемая величина периметра.

что вызывает сложности?!

p.s. справедливости ради, надо сказать, что не для любых трёх точек можно построить треугольник. Задача имеет решение только если все три точки не лежат на одной прямой. Это легко проверить (длина самой большой стороны меньше, чем сумма двух других сторон), но, раз в задаче сказано, что данные точки представляют собой вершины треугольника, то факт существования этого треугольника можно и не проверять!

ДОБАВЛЕНО
ну вот, пока собирался написать, denisbrain меня уже опередил.

denisbrain, вот только округлять длины сторон, имхо, совсем излишне!
нормально получить длины - вещественные числа и полученный периметр - тоже вещественное число.
Никто в задаче не говорил, что длины сторон и периметер имеют целочисленные значения!!

ну и ещё.
в TurboPascal для хранения координат удобно использовать либо тип PointType (описан в модуле Graph),
или описать свой пользовательский тип данных, например:
type point=record
x,y: integer;
end;
ну а если задача решается в Delphi, то использовать встроенный тип данных TPoint

[Юля_0990]

denisbrain спасибо БОЛЬШОЕ!! но мне нужна программа не с функцией а с процедурой...
Если сможете напишите пожалуйста всю программу для Pascal...Serge_Bliznykov может вы сможете мне помочь?

[DiemonStar]

раз надо с процедурой - пожалуйста:

procedure CalcS(x1,y1,x2,y2,x3,y3:integer);  // Периметр
var
  S, r3,r1,r2:integer;
begin
 r1:=sqrt((x1-x3)*(x1-x3)+(y1-y3)*(y1-y3));
 r2:=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
 r3:=sqrt((x2-x3)*(x2-x3)+(y2-y3)*(y2-y3));
 S:=r1+r2+r3; {куда девать значение периметра решайте сами}
end;

[denisbrain]

var
   x1,y1,x2,y2,x3,y3:integer;
   s:real;
procedure CalcS(x1,y1,x2,y2,x3,y3:integer;var s:real);  // Периметр
var
   r3,r1,r2:real;
begin
 r1:=sqrt((x1-x3)*(x1-x3)+(y1-y3)*(y1-y3));
 r2:=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
 r3:=sqrt((x2-x3)*(x2-x3)+(y2-y3)*(y2-y3));
 S:=r1+r2+r3; {куда девать значение периметра решайте сами}
end;

begin
 writeln('Введите координаты точки  A');
 write('X=');read(x1);write('Y=');read(y1);
 writeln('Введите координаты точки  B');
 write('X=');read(x2);write('Y=');read(y2);
 writeln('Введите координаты точки  C');
 write('X=');read(x3);write('Y=');read(y3);
 CalcS(x1,y1,x2,y2,x3,y3,s);
 Writeln('Периметр треугольника равен  ',s);

end.

[Юля_0990]

ЕЕХХХЕЕЕУУУУ =)))) ВСЕМ БОЛЬШОЕ СПАСИБО!!!! ВЫ МНЕ ОЧЕНЬ ПОМОГЛИ )))
А можно ли эту программу немножко подкорректировать так, чтобы в процедуре считалась только одна сторона....а вычисление периметра перешла в основную часть программы? если можно напишите пожалуйста...

[denisbrain]

Сообщение от Юля_0990

ЕЕХХХЕЕЕУУУУ =)))) ВСЕМ БОЛЬШОЕ СПАСИБО!!!! ВЫ МНЕ ОЧЕНЬ ПОМОГЛИ )))
А можно ли эту программу немножко подкорректировать так, чтобы в процедуре считалась только одна сторона....а вычисление периметра перешла в основную часть программы? если можно напишите пожалуйста...

var
   x1,y1,x2,y2,x3,y3:integer;
   s:real;
Procedure Dlina(x1,y1,x2,y2:integer;var d:real);
begin
   d:=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
end;
procedure CalcS(x1,y1,x2,y2,x3,y3:integer;var s:real);  // Периметр
var
   r3,r1,r2:real;
begin
 Dlina(x1,y1,x3,y3,r1);
 Dlina(x1,y1,x2,y2,r2);
 Dlina(x2,y2,x3,y3,r3);
{ r1:=sqrt((x1-x3)*(x1-x3)+(y1-y3)*(y1-y3));
 r2:=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
 r3:=sqrt((x2-x3)*(x2-x3)+(y2-y3)*(y2-y3));}
 S:=r1+r2+r3; {куда девать значение периметра решайте сами}
end;

begin
 writeln('Введите координаты точки  A');
 write('X=');read(x1);write('Y=');read(y1);
 writeln('Введите координаты точки  B');
 write('X=');read(x2);write('Y=');read(y2);
 writeln('Введите координаты точки  C');
 write('X=');read(x3);write('Y=');read(y3);
 CalcS(x1,y1,x2,y2,x3,y3,s);
 Writeln('Периметр треугольника равен  ',s);

end.