program uravnenie;
var
a, b, c: integer;
D, x1, x2: Real;
begin
writeln('Р Е Ш Е Н И Е К В А Д Р А Т Н О Г О У Р А В Н Е Н И Я');
writeln('ax^2 + bx + c = 0');
writeln('Введите коэффициент a');readln(a);
if (a <> 0) then begin
writeln('Введите коэффициент b');readln(b);
writeln('Введите коэффициент c');readln(c);
D := sqr(b) - 4 * a * c;
if (D > 0) then
begin
x1 := (-b - sqrt(D)) / (2 * a);
x2 := (-b + sqrt(D)) / (2 * a);
writeln('x1 = ', x1 : 5 : 4);
writeln('x2 = ', x2 : 5 : 4);
end
else if (D = 0) then
begin
x1 := -b / (2 * a);
writeln('x = ', x1 : 5 : 4);
end
else
writeln('Данное уравнение не имеет корней')
end
else
writeln('Данное уравнение не является квадратным')
end.
Program yravnenie;
Var
a,b,c,D,x1,x2,p,q:Real;
Begin
Repeat
Write('a= ');
Readln(a);
if a=0 then writeln('Error: a=0. Enter another value');
Until a<>0;
Write('b= ');
Readln(b);
Write('c= ');
Readln(c);
p:=b/a;
q:=c/a;
D:=Sqr(p/2)-q;
If D>0 then
begin
Writeln('x1 = ',-p/2-Sqrt(D):0:5);
Writeln('x2 = ',-p/2+Sqrt(D):0:5);
end
else
If D=0 then
Writeln('x1 = x2 = ',-p/2:0:5)
else
begin
Writeln('x1 = ',-p/2:0:5,'-i*',Sqrt(-D):0:5);
Writeln('x2 = ',-p/2:0:5,'+i*',Sqrt(-D):0:5);
end;
Readln;
End.
смотри флэшку надо кидать об стену к врагу
допустим даст 2 со стороны кто на длину кидать в вверх надо