Код: Выделить всё
program uravnenie;
{$mode objfpc}{$H+}
uses
Classes, SysUtils
{ you can add units after this };
var a,b,c,d,x,x1,x2:integer;
{$IFDEF WINDOWS}{$R uravnenie.rc}{$ENDIF}
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите с');
readln(c);
d:=sqr(b)-4*a*c;
if d<0 then
writeln('Неверное уравнение')
else if d=0 then
begin
x:=(-b)/2*a;
writeln('X = ',x)
end
else
begin
x1:=(-b+sqr(d))/2*a;
x2:=(-b-sqr(d))/2*a;
writeln('x1 = ', x1);
writeln('x2 = ', x2);
end;
end.
при сборке жалуется на ошибку в x:=(-b)/2*a; меняю тип переменных x,x1,x2 на real, прога собирается, но ответ я получаю довольно странный
Код: Выделить всё
earl@earl-pc:~$ ./ur1
Введите a
1
Введите b
2
Введите с
1
X = -1.00000000000000E+000
раньше писал только в школе в проге PasABC, и там все работало
