G$5*$A12 , знак $ необходим для закрепления ячейки в формуле , в D$5 закрепляется строка , а столбец , при переносе формулы изменяется ну и аналогично с $A10.Столбец закрепляется , а строка изменяется .
Расстояние от точки до начала координат находится как длина гипотенузы прямоугольного треугольника, катетами которого являются координаты точки. Поскольку нам нужны не сами расстояния, а лишь сравнить их, то можно сравнивать квадраты, чтобы не извлекать корня.
// PascalABC.NET 3.0, сборка 1088 var x1,x2,y1,y2,r1,r2:real; begin Write('Введите координаты первой точки: '); Read(x1,y1); Write('Введите координаты второй точки: '); Read(x2,y2); r1:=sqr(x1)+sqr(y1); r2:=sqr(x2)+sqr(y2); if r1>r2 then Writeln('Ближе вторая точка') else if r1<r2 then Writeln('Ближе первая точка') else Writeln('Точки равноудалены') end.
Тестовое решение: Введите координаты первой точки: 16.3 -11.7 Введите координаты второй точки: 15.8 12 Ближе вторая точка
begin writeln('Введите ', n, ' положительных элементов массива Х'); amax := -1E20; k := 0; for i := 1 to n do begin read(x[i]); {защита от дурака} if x[i] < 0 then x[i] := abs(x[i]) else if x[i] = 0 then x[i] := 1; {сразу же находим значения элементов массива у и заодно нужный максимум} y[i] := 0.5 * ln(x[i]); if (y[i]>=3) and ((Trunc(y[i]) mod 3) = 0) and (amax<y[i]) then begin amax := y[i]; k := i end end; writeln(' i Xi Yi'); writeln(''); for i := 1 to n do writeln(i:3,x[i]:12:4, y[i]:12:4); writeln; writeln('Искомый индекс:', k) end.
Тестовое решение:
Введите 20 положительных элементов массива Х 365 7236 1243.4 1823 4.8 273 97.54 17000 42334 13443 323674 6787.23 100000 543433 17422.74732 19534.3 212 5454 7354.8 3153.67 i Xi Yi
D$5 закрепляется строка , а столбец , при переносе формулы изменяется
ну и аналогично с $A10.Столбец закрепляется , а строка изменяется .