Re: Turbo Pascal question

Jochen wrote:
> 
> do u have to store the digits in a temp array? homework?


It was classwork, and is considered completed. In my original code, I 
had provided a power function myself.


> why not simply make it like this:
> 
> for j := digit_amount downto 1 do
>   result:= result * 10 + temp_array[j];


Interesting. However I can't make it work. Consider the code:

{ A number e.g. 1923=3291 }
program reverse;
uses crt;
var
                i, j, digit_amount, number: longint;
                                temp_array: array[1..5] of longint;
    array_element, 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;}


for j := digit_amount downto 1 do
   result:= result * 10 + temp_array[j];

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

readln;
end.