Составить функцию вычисления расстояния от точки до начала координат

@tara-ta-ta · Регистрация: 21.09.2019

На форуме нашел такое решение, но не пойму как записать вычисление расстояния через функцию для n-ой точки?

Pascal

uses crt;
var
 x1,x2,x3:real;
 y1,y2,y3:real;
 g1,g2,g3:real;
begin
write('Введите координаты 1 точки через пробел:');
readln(x1,y1);
g1:=sqrt((x1*x1)+(y1*y1));
write('Введите координаты 2 точки через пробел:');
readln(x2,y2);
g2:=sqrt((x2*x2)+(y2*y2));
write('Введите координаты 3 точки через пробел:');
readln(x3,y3);
g3:=sqrt((x3*x3)+(y3*y3));
if ((g1<g2) and (g1<g3)) then write('Ближе к началу координат 1-я точка')
else if ((g2<g1) and (g2<g3)) then write('Ближе к началу координат 2-я точка')
else if ((g3<g1) and (g3<g2)) then write('Ближе к началу координат 3-я точка');
end.

@mr-Crocodile · 20.01.2020, 17:00

Сообщение от tara-ta-ta

но не пойму как записать вычисление расстояния через функцию

Pascal

function DistanceFromZero(x,y:real):real;
begin
   DistanceFromZero := sqrt(x*x+y*y)
end;

@ProMix0 · 21.01.2020, 17:05

Теорему Пифагора изучали?

@ProMix0 79 / 32 / 10 Регистрация: 14.06.2019 Сообщений: 514
	21.01.2020, 17:05	3
	Теорему Пифагора изучали? 0

Опции темы