SRL Archive - Other Scripts

Here is a little thing I made to help me in math.

NICE! hm… make a,b a extended?

For what??

a and b really needed?

Now you gotta make a full blown triangle solver :)

This is great, even thought in most of my classes we have to show our work.

Hmmm, the script doesn't show up for me??

The link is missing, I would love to get a hold of this!

Thanks,
Cheesehunk.

Edit by Star: Bye Bot

Uhm… Neon is a friend of mine… I got it somewhere… There we go… Its attached to my post.

Methinks Incebrot is a bot…

Somebody whip out the ban stick, lol

From: tarajunky
Methinks Incebrot is a bot…

Somebody whip out the ban stick, lol

hehehe.

@Ben : Yeah, now he does. I might even do it :)

Cool program and pretty simple.

a² + b² = c²

Here are some quick functions to FindA, FindB, and FindC. :)

{
 Checks if the functions work using this triangle.

       |\
       | \
 A = 3 |  \ C = 5
       |   \
       |____\
        B = 4

By Ron :D
}

program PythagoreanFunctionsByRon;

const
  SideA = 3;
  SideB = 4;
  SideC = 5;

// FindA - Finds side A using pythagorean's theorem.
// By Ron :)
function FindA(SideB, SideC : Extended) : Extended;
begin
  Result := Sqrt(pow(SideC, 2) - pow(SideB, 2));
end;

// FindB - Finds side B using pythagorean's theorem.
// By Ron :)
function FindB(SideA, SideC : Extended) : Extended;
begin
  Result := Sqrt(pow(SideC, 2) - pow(SideA, 2));
end;

// FindC - Finds side C using pythagorean's theorem.
// By Ron :)
function FindC(SideA, SideB : Extended) : Extended;
begin
  Result := Sqrt(pow(SideA, 2) + pow(SideB, 2));
end;

begin
  ClearDebug;
  WriteLn('Side A = ' + FloatToStr(FindA(SideB, SideC)) + ' if... Side B = ' + FloatToStr(SideB) + ' | Side C = ' + FloatToStr(SideC));
  WriteLn('Side B = ' + FloatToStr(FindB(SideA, SideC)) + ' if... Side A = ' + FloatToStr(SideA) + ' | Side C = ' + FloatToStr(SideC));
  WriteLn('Side C = ' + FloatToStr(FindC(SideA, SideB)) + ' if... Side A = ' + FloatToStr(SideA) + ' | Side B = ' + FloatToStr(SideB));
end.

~Ron

Ron, one function is easier xD

function Pythagorean(SideA, SideB, SideC : Extended; SolveFor: string): Extended;
begin
  if(Lowercase(SolveFor) = 'a') then
    Result := Sqrt(pow(SideC, 2) - pow(SideB, 2));
  else if(Lowercase(SolveFor) = 'b') then
    Result := Sqrt(pow(SideC, 2) - pow(SideA, 2));
  else if(Lowercase(SolveFor) = 'c') then
    Result := Sqrt(pow(SideA, 2) + pow(SideB, 2));
end;

how about something that looks like this?

procedure Pythag(var a,b,c:extended);
begin
if(a<>0)and(b<>0)and(c<>0)then
 Exit;
if(a=0)then
 begin
 a= Sqrt( (c*c) - (b*b) );
 end else
if(b=0)then
 begin
 a= Sqrt( (c*c) - (a*a) );
 end else
if(c=0)then
 begin
 a= Sqrt( (a*a) + (b*b) );
 end
end;

the procedure finds which is 0, then uses the other two to solve it

Edit by Star: Bye bot

Whats up with all these bots visiting SRL ?