Паскаль.Процедуры

[uropb992]

Вычислить значение выражения y=x^n+x^(n-1)+x^(n-2)+...+x+1, значения "x" и "n" вводятся с клавиатуры. Нахождение степени числа "х" оформить в виде процедуры.

[Snejnaya]

procedure stepen(x1:real; n1:integer; var z1:real);
var i:integer;
begin
z1:=1;
for i:=1 to n1 do
begin
z1:=1*x1;
end;
end;

//основная программа

var n,j:integer;
var x,y,z:real;

begin
readln(x);
readln(n);
y:=0;
for j:=0 to n do
begin
stepen(x,n,z);
y:=y+z;
end;
writeln(y);
end.

[uropb992]

спасибо большое)

[blondino4ka_milk]

а как в функции будет это выглядеть?

у меня задание оформить в виде функции!
и я не могу понять что мне здесь возвращать?!
кошмар какой! =(

[Volt]

function res(x1:real; n1:integer; var z1:real):real;
var i, j:integer; y:real;
begin
y:=0;
for j:=0 to n1 do
begin
z1:=1;
for i:=1 to n1 do
begin
z1:=1*x1;
end;
y:=y+z1;
end;

result:=y; /// не помню как возвращается на делфи так а на поскале
res:=y; // возможно так

end;

var x,z:real;  n:integer;

begin
readln(x);
readln(n);

writeln(res(x,n,z));
end.

[blondino4ka_milk]

спасибо большое!

result:=y; /// не помню как возвращается на делфи так а на поскале
res:=y; // возможно так

а там так и так можно записать

[uropb992]

procedure stepen(x1:real; n1:integer; var z1:real);
var i:integer;
begin
z1:=1;
for i:=1 to n1 do
begin
z1:=1*x1; <- Здесь вычисления неправильные ((
end;
end;

допустим если вводить 2 числа "3" и "2" то должно получиться 3^2+3^1+3^0=9+3+1=13
А у меня по этой проге выходит 9

[Полинка]

Здравствуйте!!=))
Можете помочь!!Срочно нужны 2 блок схемы двух процедур!!(Паскаль)

[ROMA2PVT]

Полинка создайте новую тему и нелезьте в чужую.

[Полинка]

упс..sorry