• не понимаю...
    В файле хранятся 8 целых чисел.
    В каждой строке расположены
    два числа через пробел –
    координаты точки на плоскости.
    Выяснить,
    точка
    расположена дальше всех от
    начала координат. Вывести ответ
    в тот же файл в следующем виде:
    в первой строке – слово «ответ»,
    в следующей строке –
    координаты точки, в следующей
    строке – расстояние от начала
    координат.

Ответы 1

  • А что тут собственно понимать?

    Расстояние от начала координат до точки - фактически, гипотенуза треугольника с катетами, равными отрезкам по осям координат. Обычная теорема Пифагора. Более того, можно сравнивать не гипотенузы, а их квадраты, чтобы не пользоваться вычислением квадратного корня.

    OM² = OMx²+OMy² (см. вложение)

    Во втором вложении - тестовый файл in.txt. Поскольку ответ выводится в этот же файл, для повторного запуска программы файл становится непригоден, в связи с чем следует хранить его исходную копию.

    PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018Внимание! Если программа не работает, обновите версию!

    begin

     var a := ReadAllText('in.txt').ToReals.Batch(2).ToArray;

     var i := a.Select(t -> Sqr(t.First) + Sqr(t.Last)).ToArray.IndexMax;

     var f := OpenAppend('in.txt');

     Writeln(f, NewLine, 'ответ', NewLine, a[i].First, ', ', a[i].Last,

         NewLine, Sqrt(Sqr(a[i].First) + Sqr(a[i].Last)));

     f.Close

    end.

    answer img
    • Автор:

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

Войти через Google

или

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

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

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