Cоставить программу в Паскале:
10-11 класс
|
Заданы координаты концов отрезка (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; // чтоб было приятно, возьмём координаты начальных точек - целыми числами.
begin
writeln ('Введите координаты первой точки через пробел');
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.
Другие вопросы из категории
Для каждого из перечисленных ниже десятичных чисел построили двоичную запись. Укажите число, двоичная запись которого содержит наибольшее количество значащих нулей.
16 строк, в строке 40 символов, сколько подобных файлов потребуется для хранения архива из 3000 сочинений?
вывести сумму элементов массива которые кратны 7 и оканчиваются на 5 .Гарантируется,что в исходном массиве есть хотя бы один такой элемент.
НА ЯЗЫКЕ ПАСКАЛЬ!!!!
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
Описать функцию у=arcsin(x), cоставить программу решения уравнения sin(ax+b)=c (Паскаль)
программу меняющихся местами первую и последнюю цифру.
Разработать
программу в соответствии со своим вариантом: создать структуру типа «запись», выполнить
обработку данных.