[Back to MATH SWAG index] [Back to Main SWAG index] [Original]

    {LOU DUCHEZ

    > Could anybody explain how to Write such a routine in Pascal?

    Here's a dorky little "Factoring" Program I wrote to display the factors
    of a number:
    }

    Program factors;
    Var
      lin,
      lcnt : LongInt;
    begin
      Write('Enter number to factor: ');
      readln(lin);
      lcnt := 2;
      While lcnt * lcnt <= lin do
      begin
        if lin mod lcnt = 0 then
          Writeln('Factors:', lcnt : 9, (lin div lcnt) : 9);
        lcnt := lcnt + 1;
      end;
    end.

    {
    Notice that I only check For factors up to the square root of the number
    Typed in.  Also, notice the "mod" operator: gives the remainder of Integer
    division ("div" gives the Integer result of division).

    Not Really knowing exactly what you want to accomplish, I don't Really know
    if the above is of much help.  But what the hey.
    }

[Back to MATH SWAG index] [Back to Main SWAG index] [Original]