Написать программу на паскале, которая вычислит точки пересечения двух функций.

Предыдущий
вопрос Следующий
вопрос

program IntersectionPoints;

var
a, b, c, d: Real;

function Function1(x: Real): Real;
begin
Function1 := a*x + b;
end;

function Function2(x: Real): Real;
begin
Function2 := c*x + d;
end;

var
x1, y1, x2, y2: Real;

begin
writeln('Введите коэффициенты уравнения первой функции (ax + b):');
readln(a, b);

writeln('Введите коэффициенты уравнения второй функции (cx + d):');
readln(c, d);

writeln('Точки пересечения функций:');

if a = c then
begin
writeln('Функции параллельны, нет точек пересечения.');
end
else
begin
x1 := (d - b) / (a - c);
y1 := Function1(x1);

end;
end.