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

aregv aregv    3   02.10.2019 09:30    0

Ответы
Mraleex Mraleex  09.10.2020 11:27

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

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

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.


Не в файле хранятся 8 целых чисел. в каждой строке расположены два числа через пробел – координаты т
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика