не понимаю...
В файле хранятся 8 целых чисел.
В каждой строке расположены
два числа через пробел –
координаты точки на плоскости.
Выяснить,
точка
расположена дальше всех от
начала координат. Вывести ответ
в тот же файл в следующем виде:
в первой строке – слово «ответ»,
в следующей строке –
координаты точки, в следующей
строке – расстояние от начала
координат.
Ответы
А что тут собственно понимать?
Расстояние от начала координат до точки - фактически, гипотенуза треугольника с катетами, равными отрезкам по осям координат. Обычная теорема Пифагора. Более того, можно сравнивать не гипотенузы, а их квадраты, чтобы не пользоваться вычислением квадратного корня.
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.
