Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
помогитееее
даны действительные числа х1,у1,х2,у2...,х10,у10.Найти периметр десятиугольника ,вершины которого имеют соответственно координаты(х1.,у1),(х2,у2)...,(х10,у10)Определить процедуру вычисления расстояния между двумя точками ,заданными своими координатами.
1 | Автор: Викачкааа | 2012-04-24, 19:34   |  Репутация: [ + 0 ]
uses crt;
type mas=array [1..10] of real;
var x,y,z:mas;
p: real;
i: integer;

procedure Dlina(x1,y1,x2,y2: real; var z1: real);
begin
z1:= sqrt(sqr(y1-y2)+sqr(x1-x2));
end;

begin
p:=0;
for i:=1 to 10 do
begin
writeln ('Координаты вершины ',i);
readln(x[i]);
readln(y[i]);
if i=10 then Dlina(x[1],y[1],x[10],y[10],z[10])
else Dlina(x[i],y[i],x[i+1],y[i+1],z[i]);
end;
for i:=1 to 10 do
p:=p+z[i];
write ('Периметр десятиугольника = ',p:7:2);
readkey
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-04-24, 20:05   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: