Re: Turbo Pascal question

john wrote:
> 
> Yes, Richard's solution requires real, but I need to use longint.
> 
> More precisely, I want to do a program that provides and stores the 
> reverse of a number. For example:
> 
> 
> input: 12345
> 
> result: 54321
> 
> 
> I am using div and mod to do that (with two longints and an array of 
> longint), and having not thought any other way I can do the above, I 
> can't use the elegant N^P= exp( P* ln(N) ); solution.
> 
> Is there any way I can do casting in Turbo Pascal 7.1 (like in C or
C++)?

I made some longints. reals, and used a real temp. Basically the program 
as it currently is:


{ A number e.g. 1923=3291 }
program reverse;
uses crt;
var
                              i, j, number: longint;
                                temp_array: array[1..5] of longint;
    array_element, digit_amount, result: real;

begin
clrscr;

write('Give the number: ');
readln(number);

i:=0;
while (number div 10)<> 0 do
       begin
       i:=i+1;
       temp_array[i]:= number mod 10;
       number:= number div 10;
       end;

i:= i+1;
temp_array[i]:= number mod 10;

digit_amount:= i;

result:= 0;

for j:= 1 to i do
     begin
     array_element:= temp_array[j];
     result:= result+ array_element* exp( (digit_amount- j)* ln(10) );
     end;

writeln;
writeln('The reversed number is: ', result:0:0);

readln;
end.

----------------------------------------------------------------------------


I would prefer result to be of integral type.