
Originally Posted by
Sdcit
You dont know how to to that really fast and u beat me in the SAT math!?
jk nice script driger
I'm smarter than j00.
I'm kidding..haha
Code:
procedure QuadraticSolver(a, b, c : Integer);
var
z, g, A1, A2 : Extended;
begin
Writeln('<---------------------------------------------------------->');
Writeln('Showing Work Too');
Writeln('1st Line : '+FloatToStr(-1 * b)+' ± SquareRoot('+FloatToStr(Sqr(b))+ '-4('+FloatToStr(a)+')('+FloatToStr(c)+'))) / '+FloatToStr(a*2));
z:= Sqr(b)-(4* a *c);
Writeln('2nd Line : '+FloatToStr(b*-1)+' ± SquareRoot('+FloatToStr(z)+') / '+FloatToStr(a*2));
z:= Sqrt(z);
g:= (-1 * b)
A1:=(g + z) / 2;
A2:=(g - z) / 2;
Writeln('+ Answer : '+FloatToStr(A1))
Writeln('- Answer : '+FloatToStr(A2))
Writeln('<---------------------------------------------------------->');
end;
Example of how to use:
Code:
begin
QuadraticSolver(5, -11, 2);
end.
I made one too, how is it driger?