Найти расстояние до самой удаленной точки от начала координат

@stefanova · Регистрация: 29.06.2017

на плоскости заданы своими координатами 15 точек. Найти расстояние до самой удаленной точки от начала координат. (процедура определяет расстояние от начала координат до точки (x,y))

@Zwelenewskiy · 29.06.2017, 14:22

Pascal

function distance(x, y: real): real;
begin
  distance := sqrt(x * x + y * y);   
end;
 
var
  x, y, max: real;
  i, i1: byte;
 
begin
  
  max := -999999999; 
  for i := 1 to 15 do
  begin
    write('Введите координату Х ', i, '-й точки: ');
    readln(x);
    write('Введите координату Y ', i, '-й точки: ');
    readln(y); 
    writeln;
    
    if distance(x, y) > max
    then begin
      max := distance(x, y); 
      i1 := i;
    end;
  end;
  
  writeln('Номер самой удаленной точки: ', i1, '; её расстояние от начала координат: ', max:0:3);
end.

@bormant · 29.06.2017, 16:14

Zwelenewskiy,
в задании речь про процедуру

Pascal

procedure dist2(x, y: Real; var r: Real);
begin
  r:=SqRt(Sqr(x)+Sqr(y));
end;
var t: Real;
...
  dist(x,y,t);
  if max<t then ...

@stefanova 0 / 0 / 0 Регистрация: 29.06.2017 Сообщений: 1
		1
	Найти расстояние до самой удаленной точки от начала координат 29.06.2017, 13:33. Показов 12150. Ответов 2 Метки нет (Все метки) на плоскости заданы своими координатами 15 точек. Найти расстояние до самой удаленной точки от начала координат. (процедура определяет расстояние от начала координат до точки (x,y)) 0

Опции темы

Найти расстояние до самой удаленной точки от начала координат

Решение