|
даны действительные числа х1,у1,х2,у2...,х10,у10.Найти периметр десятиугольника ,вершины которого имеют соответственно координаты(х1.,у1),(х2,у2)...,(х10,у10)Определить процедуру вычисления расстояния между двумя точками ,заданными своими координатами.
|
|
|
|
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
|
|
|
|
