SRL Archive - Other Scripts

Whiteshadow wanted help for his homework, this is the result I'm giving him ;) It shows most of the work that goes into it, so it's nice and easy. It has two variables you can get answers from (since two answers usually come out of this). It also shows if there are no solutions. It returns true if there is a solution, and false if there is not. I enjoyed making this one :D

function QuadraticFormula(a,b,c: extended; var answer1,answer2: extended): boolean;
var i: extended;
begin
  Writeln('('+FloatToStr(b*-1)+' ± SquareRoot('+FloatToStr(Sqr(b))+' - 4('+FloatToStr(a)+')('+FloatToStr(c)+'))) / '+FloatToStr(a*2));
  i := Sqr(b)-(4*a*c);
  If(i<0)Then
    begin
      Result := false;
      answer1 := 0;
      answer2 := 0;
      Writeln('('+FloatToStr(b*-1)+' ± SquareRoot('+FloatToStr(i)+')) / '+FloatToStr(a*2)+' - No solutions');
      Exit;
    end;
  i := Sqrt(i);
  Writeln('('+FloatToStr(b*-1)+' ± '+FloatToStr(i)+') / '+FloatToStr(a*2));
  answer1 := ((b*-1) + i)/(a*2);
  answer2 := ((b*-1) - i)/(a*2);
  Result := true;
end;

Maybe someone else will like this or thank me for it ;)

W00t, thanks for listening to my request Driger. Now I can do my hmk in like fucking secs. :p
Saved me an hour trying to make my own.
~WhiteShadow

You dont know how to to that really fast and u beat me in the SAT math!? :p

jk nice script driger

From: Sdcit
You dont know how to to that really fast and u beat me in the SAT math!? :p

jk nice script driger

I'm smarter than j00. :p

I'm kidding..haha

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:

begin
  QuadraticSolver(5, -11, 2);
end.

I made one too, how is it driger?

It won't work.

Test it using a=1 b=2 c=3 ;)

Ok, Mr. NoRunTimes… ;p

I edited.

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));
  if(z > 0)then
  begin
    z:= Sqrt(z);
    g:= (-1 * b)
    A1:=(g + z) / 2;
    A2:=(g - z) / 2;
    Writeln('+ Answer : '+FloatToStr(A1))
    Writeln('- Answer : '+FloatToStr(A2))
    Writeln('<---------------------------------------------------------->');
  end else
  begin
    Writeln('Answer : No Solution(Can''t get the square root of a -number)');
  end;
end;

begin
  QuadraticSolver(1, 2, 3);
end.

Much better ;) However, your work isn't ever brought outside of the procedure. I guess for your purpose that's fine though :) Good job WhiteShadow :D

From: driger1592
Much better ;) However, your work isn't ever brought outside of the procedure. I guess for your purpose that's fine though :) Good job WhiteShadow :D

I can make the vars Global in 2 seconds. ;p

Thanks, Driger.

You're welcome :p You've always been quite a decent scripter :D