SRL Archive - NOTA

Ok i'm bored >.<

{*******************************************************************************
procedure: SquareItNumberRange(NumberRangeLow, NumberRangeHigh: intger);
By: All that is man
Description: Squares all the numbers from the first parameter to the second. POINTLESS I know...
*******************************************************************************}
procedure SquareItNumberRange(NumberRangelow, NumberRangeHigh: integer);
var i: integer;
begin
  for i := NumberRangelow to NumberRangehigh do Writeln(IntToStr(i) + ' squared is equal to ' + IntToStr(i * i) + '.');
end;
{*******************************************************************************
procedure: SquareIt(number: intger);
By: All that is man
Description: Squares the parameter... POINTLESS I know.. returns the squared number
*******************************************************************************}
function SquareIt(number: integer): integer;
begin
  result := (number * number);
  Writeln((IntToStr(number)) + ' squared is equal to ' + IntToStr(number * number) + '.');
end;
{*******************************************************************************
procedure: CubeItNumberRange(NumberRangeLow, NumberRangeHigh: intger);
By: All that is man
Description: Cubes all the numbers from the first parameter to the second. POINTLESS I know...
*******************************************************************************}
procedure CubeItNumberRange(NumberRangelow, NumberRangeHigh: integer);
var i: integer;
begin
  for i := NumberRangelow to NumberRangehigh do Writeln(IntToStr(i) + ' cubed is equal to ' + IntToStr(i * i * i) + '.');
end;
{*******************************************************************************
procedure: CubeIt(number: intger);
By: All that is man
Description: Cubes the parameter... POINTLESS I know... returns the squared number
*******************************************************************************}
function CubeIt(number: integer): integer;
begin
  result := (number * number  * number);
  Writeln((IntToStr(number)) + ' cubed is equal to ' + IntToStr(number * number * number) + '.');
end;

Mathz functions?

From: Rubix
Mathz functions?

Yes boredem mathz functions :P

You maked me laugh… talenty.. and nerdy… nice the best of both worlds… out of random curiosity… what math classes have you are been taking?

From: anonymity
You maked me laugh… talenty.. and nerdy… nice the best of both worlds… out of random curiosity… what math classes have you are been taking?

Err i'm going into highschool this year in like 18 days >.< but i took honors alegbra in 8th grade and "perfect squares" tests every friday, so I was thinking of math class and made this >.< dun make fun of me

EDIT: In my freshmen year of highschool i'm taking honors geometary(how ever the hell you spell i <3 math not english :P)

I taking geometry wtf. going into 9th… (maybe, i could be 19 (for the governement who checks my background))

What state you live in. If you live in states?

From: ZaSz
I taking geometry wtf. going into 9th… (maybe, i could be 19 (for the governement who checks my background))

What state you live in. If you live in states?

From: His profile
Location: Illinois

That should answer your question.

Oh, :( dunno him

I know you were just proceduring squares and whatnot… but usually people don't play with math unless they really like it.. keep up the honors classes… they kick your butt… however they will help you in the long run…

From: ZaSz
I taking geometry wtf. going into 9th… (maybe, i could be 19 (for the governement who checks my background))

What state you live in. If you live in states?

Lol yeah my "location" should anwser that and Method :P

From: anonymity
I know you were just proceduring squares and whatnot… but usually people don't play with math unless they really like it.. keep up the honors classes… they kick your butt… however they will help you in the long run…

Thanks, I will!

So

 procedure SquareItNumberRange(NumberRangelow, NumberRangeHigh: integer); 

Is some sort the opposite of factorial?

All that is man, if you're learning about squares, maybe try writing a function that figures out if a number is a perfect square :)

It's fun practice, and the most important part of learning math is applying it, so for that I applaud you.

From: Hermen
So

 procedure SquareItNumberRange(NumberRangelow, NumberRangeHigh: integer); 

Is some sort the opposite of factorial?

No, it just prints out a range of squared numbers.

Yes, but factorial goes from high to low.

The factorial function doesn't do any squaring anyways. 5! = 5 * 4 * 3 * 2 * 1

Thanks everyone lol I know there pointless and wouldn't ever be used for a runescape script

function EatFood: boolean;
begin
  if(SquareIt(5) <> 25)then 
  begin
    Writeln('5 squared isn''t 25!!!!! terminating');
    TerminateScript;
  end;
end;

^
|
|
Lol
but yeah I've memorized 1-30 squares because of math >.< but I was really bored haha