#### Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

#### Categories

Posts: 8Member
hello everyone! i wanted to know if enyone can help me with this: i am learning pascal basics in school so i have one little problem with this:

i want to make programm where the 'x' value type user, and then the sum is calculated, but i dont know how to make formula for this

(1/2)+(3/2^2)+(5/2^3)+...+((2x-1)/2^x)

so the formula is ((2x-1)/2^x); for example: user types that x is 3;
then the programm puts 3 in x place; then 2; and then 1 and then all this sum together like this example where x is 3
((6-1)/8) + ((4-1)/4) + ((2-1)/2) = ...

so i want to create summing like this, i think it is something related with cycles, but i dont know for sure, so if anyone can help me i'll be grateful

• Posts: 1Member
What you are trying to do is called recurrsion where you loop calling the same function until the variable reaches a set point.
• Posts: 438Member
It's called iteration, not recursion.

• Posts: 8Member
ok, thanks, i wll try to find information about iteration, how to use it; but for now i have got this far:

program number;
var i,x,s:integer;
begin
writeln('type number');
s:=0;
for i:=1 to x do
s:=s+((2*i-1)/_____);

writeln('sum:',s);
end.

everything works luckily, but i dont know how to add 2^x where i have this underline, i even read that in pascal you cant do the multiplication involution, is that true?
• Posts: 438Member
[blue]: ... i even read that in pascal you cant do the
: multiplication involution, is that true?
:[/blue]
It's been a long time since I've heard the word involution. ;-)

The answer is yes and no. You can do involution but Pascal does not provide an operation for it the way Fortran and Basic do. You have to write your own routine, like below.
[code]
program number ;

[red]function power (x : real ; n : integer) : real ;
{
raise a real number to an integer power
}
var
product : real ;
i : integer ;
begin
product := 1.0 ;
for i := 1 to n do
product := x * product ;
power := product
end ;[/red]

var
i,x : integer ;
s : real ;

begin
writeln('type number') ;