Программа для вычисления функции - Pascal (80312)

Формулировка задачи:

Составить программу для вычисления функции (функция внизу), где x - меньший корень уравнения ax^2+bx+c=0. Значения a, b, с задавать при вводе. На экран дисплея вывести значения a, b, c, x, y. Спасибо

Код к задаче: «Программа для вычисления функции - Pascal (80312)»

textual
var a,b,c,d,x1,x2,x,y: real;
    k:byte;
begin
writeln('Введите коэффициенты квадратного уравнения a,b,c');
readln(a,b,c);
d:=b*b-4*a*c;
k:=0;
if d<0 then write('Уравнение не имеет действительных корней')
else if d=0 then write('Уравнение имеет только 1 действительный корень')
else
 begin
  x1:=(-b-sqrt(d))/(2*a);
  x2:=(-b+sqrt(d))/(2*a);
  if x1<x2 then x:=x1
  else x:=x2;
  writeln('x1=',x1:0:3,' x2=',x2:0:3,' x=',x:0:3);
  if x<0 then y:=x+cos(x)/(x*x-1)
  else
   begin
    if x=0 then k:=1
    else y:=(x*x+1)*cos(x)/(x*x);
   end;
   if k=1 then write('Значение Y не определено, деление на 0')
   else write('Y=',y:0:3)
  end;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

14   голосов, оценка 4.071 из 5


СДЕЛАЙТЕ РЕПОСТ