Написать программу на Паскаль:

1) Составить программу, которая при заданных значениях x и y вычисляет функции A с точностью 10^-3

A = ((x*y) / (x+y)) / (1+√ (x²-x-4));

2) Составить программу, которая запрашивает ввод коэффициентов a, b, c, d уравнение вида "ax+b=c+dx", а после ввода коффициентов напечатает или решение или сообщение о том, что решение не существует, коэффициенты уравнения вводятся в соответствии одному из этих случаев.

1) Точность вычисления в программе не задается. Указано только количество цифр дробной части (3), которое требуется вывести на экран.

var x, y, a:real;

begin

write ('x = ');

readln (x);

write ('y = ');

readln (y);

if x*x-x-4>=0 then

begin

a: = ((x*y) / (x+y)) / (1+sqrt (x*x-x-4));

writeln ('a = ', a:5:3);

end

else writeln ('Корень из отрицательного числа');

end.

2)

var a, b, c, d:real;

begin

writeln ('Введите a, b, c, d:');

readln (a, b, c, d);

if (a=d)

then if (c=b) then writeln ('Бесконечно много решений')

else writeln ('Решения нет')

else writeln ('x = ', (c-b) / (a-d));

end.

Пример:

Введите a, b, c, d:

2 1 4 3

x = - 3