• Пусть дано N произвольных точек плоскости, абсциссы и ординаты которых записаны соответственно в целочисленные массивы X и Y. Определить длину наибольшего из всех возможных отрезков, составленных из этих точек. Оформить процедурами ввод и вывод координат точек. Оформить функцией расчет длины каждого отрезка. Составить программу на Паскале. Срроооочно!!!!!!

Ответы 6

  • Ну говори, что не так
  • Я постораюсь исправить
    • Автор:

      milo76
    • 6 лет назад
    • 0
  • Я уже сделал
    • Автор:

      juicyyswv
    • 6 лет назад
    • 0
  • Хорошо(
    • Автор:

      celiasxdl
    • 6 лет назад
    • 0
  • *)
  • varx,y,rast:array [1..100] of Integer ;n:Integer;function maxrast(n:Integer;x,y:array [1..100] of integer): real;var i,j:integer;max:real;begin for i:=1 to n dofor j:=1 to n doif sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]))>max thenmax:= sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]));maxrast:=max;end;procedure vvod(n:Integer);var i:integer;beginfori:=1 to n dobeginWriteLn('Введите координату x ',i,' отрезка');ReadLn(x[i]);WriteLn('Введите координату y ',i,' отрезка');ReadLn(y[i]);end;end;beginWriteln('Введите количество точек');ReadLn(n);vvod(n);Writeln('Длина наибольшего отрезка составленного из заданных точек = ',maxrast(n,x,y));end.
    • Автор:

      drake74
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years