Написать программы в паскале 1) Проверить является ли введенное с клавиатуры число х корнем уравнения ax^2+bx+c=0 2) Вычислить
Написать программы в паскале 1) Проверить является ли введенное с клавиатуры число х корнем уравнения ax^2+bx+c=0 2) Вычислить сумму n членов последовательности, задаваемой формулой a^n=1/(2n+1)^2 очень срочно!!!!!
Для начала нужно ввести числа квадратного уравнения в строку. То есть, числа вместо a, b и c. А потом надо ввести в строку число "х", чтобы проверить его на наличие решения. Вот сам код:
program name; var a, b, c, d, x1, x2, x3: real; begin writeln('Введите коэффициенты квадратного уравнения') ; readln(a, b, c); d:=sqr(b) - (4*a*c); x1:= (-b-sqrt(d)) / 2*a; x2:= (-b+sqrt(d)) / 2*a; Writeln('Введите число х, чтобы проверить, является ли оно корнем уравнения') ; readln(x3); If x3 = x1 then Writeln('Число ', x3, ' является корнем уравнения.') Else If x3 = x2 then Writeln('Число ', x3, ' является корнем уравнения.') Else Writeln('Число ', x3, ' не является корнем уравнения.') ; End.