Cоставить программу в Паскале:Заданы координаты концов отрезка (x1; y1) и (x2; y2) и два целых числа N1, N2.
Вычислить координаты точки (х; у), которая делит отрезок в отношении N1/N2: если L=N1/N2, то х=(х1+L*x2)/(1+L) , y=(y1+L*y2)/(1+L).
- program qq;uses crt;var x1, y1, x2, y2, n1, n2: integer; x, y, L, M, k, b: real; // чтоб было приятно, возьмём координаты начальных точек — целыми числами.beginwriteln (‘Введите координаты первой точки через пробел’);readln(x1, y1);writeln(‘Введите координаты второй токи через пробел’);readln(x2, y2);writeln (‘введите через пробел числа N1 и N2’);readln(n1, n2);
l:=n1/n2; //далее производится расчет по формулам, данным в задании
x:=(x1+L*x2)/(1+L);y:=(y1+L*y2)/(1+L);writeln (‘Координаты искомой точки (‘,x,’;’,y,’)’);
end.