Программа обрабатывает одномерный целочисленный массив Dat: i 1 2 3 4 5 6 7 8 9 10 Dat[i] 70 80 90 100 80 40 40 70 80 90 Определите, какие числа будут выведены в результате выполнения следующего фрагмента программы: k := 1; m := dat[k]; for i := 2 to 10 do if dat[i] < m then begin m := dat[i]; k := i; end; writeln('m = ', m); writeln('k = ', k);
Для этих точек можно записать известные соотношения:
Приведем их к целочисленным коэффициентам.
Сложим все три уравнения отдельно для X и Y:
Теперь можно записать выражения для нахождения координат вершины А:
Окончательно расчетные формулы:
var
xE, yE, xF, yF, xK, yK, xA, yA: real;
begin
Write('Введите через пробел координаты точки E(x,y): ');
Readln(xE, yE);
Write('Введите через пробел координаты точки F(x,y): ');
Readln(xF, yF);
Write('Введите через пробел координаты точки K(x,y): ');
Readln(xK, yK);
xA := xE + xF - xK; yA := yE + yF - yK;
Writeln('Координаты точки А: ', xA:0:2, ' ', yA:0:2)
end.
Тестовое решение:
Введите через пробел координаты точки E(x,y): 45.67 67.89
Введите через пробел координаты точки F(x,y): 12.34 56.78
Введите через пробел координаты точки K(x,y): 90.12 34.56
Координаты точки А: -32.11 90.11
Тот самый, нередкий случай, когда программа гораздо проще и короче, чем сопутствующие ей математические выкладки.