begin write('A = ' readln(A); if (A=0) then begin writeln('Not a quadratic equation.' halt; end; write('B = ' readln; write('C = ' readln(C); D := B*B-4*A*C; if (D=0) then begin writeln('x = ',-B/2.0/A); halt; end; if (D>0) then begin writeln('x1 = ',(-B+Sqrt)/2.0/A); writeln('x2 = ',(-B-Sqrt)/2.0/A); end else begin writeln('x1 = (',-B/2.0/A,',',Sqrt(-D)/2.0/A,'' writeln('x2 = (',-B/2.0/A,',',-Sqrt(-D)/2.0/A,'' end; end.
Комментарии 2
var
A,B,C,D: integer;
begin
write('A = '
readln(A);
if (A=0) then
begin
writeln('Not a quadratic equation.'
halt;
end;
write('B = '
readln
write('C = '
readln(C);
D := B*B-4*A*C;
if (D=0) then
begin
writeln('x = ',-B/2.0/A);
halt;
end;
if (D>0) then
begin
writeln('x1 = ',(-B+Sqrt
writeln('x2 = ',(-B-Sqrt
end
else
begin
writeln('x1 = (',-B/2.0/A,',',Sqrt(-D)/2.0/A,'
writeln('x2 = (',-B/2.0/A,',',-Sqrt(-D)/2.0/A,'
end;
end.