Домашние задания: Информатика

Пожалуйста помогите с заданием!

Определить корни квадратного уравнения вида ax2 + bx + c = 0 на языке программирования Паскаль.
Леди Очарование
Леди Очарование
3
PROGRAM KORNI;
uses wincrt;
var a,b,c,D:integer;
X1,X2 :real;
begin
Writeln('Введите a,b и c');
read (a);
read (b);
read (c);
begin
D:= SQR(b)-4*a*c;
If D<0 then writeln('Корней нет');
end;
X1:=-b+SQRT(D)/(2*a);
X2:=-b-SQRT(D)/(2*a);
Writeln('D=', D);
Writeln('X1=',X1:4:2);
Writeln('X2=',X2:4:2);
end.
Павел Орлов
Павел Орлов
3 571
Лучший ответ 
 Program P1; 

uses crt; 

var a, b, c: real; 

begin 

clrscr; 

writeln ('Введите с клавиатуры значения коэффициентов (только числа), после ввода каждого из значений нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.'); 

write ('Введите коэффициент при (x в квадрате): a='); 

readln (a); 

write ('Введите коэффициент при x: b='); 

readln (b); 

write ('Введите свободное число: c='); 

readln (c); 

if sqr (b)-4*a*c
Марина Аргутина
Марина Аргутина
43 559
program QuadraticEquation;

uses Math;

var
a, b, c, D, x1, x2: real;

begin
write('Введите значение a: ');
readln(a);
write('Введите значение b: ');
readln(b);
write('Введите значение c: ');
readln(c);

D := b * b - 4 * a * c;

if D < 0 then
writeln('Корней нет')
else if D = 0 then
begin
x1 := -b / (2 * a);
writeln('Уравнение имеет один корень: ', x1:0:2);
end
else
begin
x1 := (-b + sqrt(D)) / (2 * a);
x2 := (-b - sqrt(D)) / (2 * a);
writeln('Уравнение имеет два корня: x1 = ', x1:0:2, ', x2 = ', x2:0:2);
end;

readln;
end.
Александр Пашин
Александр Пашин
212
Марина Аргутина нафига math, если и без него Паскаль спокойно корни вычисляет?

Похожие вопросы