Написать программу на Паскаль: 1) Составить программу, которая при заданных значениях x и y вычисляет функции A с точностью 10^-3 A=((x*y)/(x+y))/(1+√(x²-x-4)); 2) Составить программу, которая запрашивает ввод коэффициентов a,b,c,d уравнение вида "ax+b=c+dx", а после ввода коффициентов напечатает или решение или сообщение о том, что решение не существует, коэффициенты уравнения вводятся в соответствии одному из этих случаев.

ниях x и y вычисляет функции A с точностью 10^-3 A=((x*y)/(x+y))/(1+√(x²-x-4)); 2) Составить программу, которая запрашивает ввод коэффициентов a,b,c,d уравнение вида "ax+b=c+dx", а после ввода коффициентов напечатает или решение или сообщение о том, что решение не существует, коэффициенты уравнения вводятся в соответствии одному из этих случаев.

  • 26-03-2008 00:00
  • Просмотры: 13
Ответы ( 1 )
ЛЕЙЛА РАДЧЕНКО
+1
26-03-2008 07:17

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