[Pascal] Найдите сумму ряда x^3+x^5+...+x^n не используя функцию вычисления степени. Через процедуру получилось, но она не работает

[765785467]

Задание: Найдите сумму ряда x^3+x^5+...+x^n не используя функцию вычисления степени. Через процедуру.

вот что получилось, но она не работает:

program summ;
const h=2;
const z=3;
var x,i,n,s:integer;
procedure step(i:integer;x,s,z:real);
begin
for i:=1 to n do
begin
s:=1;
x:=x**z;
z:=z+h;
s:=s+x;
end;
end;
begin 
writeln('Введите первый член ряда: ');
Readln(x);
writeln('Введите количество членов ряда: ');
Readln(n);
step(i,z,x,s);
writeLn('Сумма равна: ',s);
end.

Пожалуйста, оформляйте Ваш код согласно правилам.

[evg_m]

procedure step(i:integer;x,s,z:real);
чтобы получать результат из процедур
надо исп. var параметр

procedure step(i:integer;x,s,z:real; var s: real);

или функцию

function step(i:integer;x,z:real): real;

[p51x]

1. Если хотите параметр поменять, то его надо через вар передавать
2. Не надо на каждом шагу сбрасывать сумму в 1

[765785467]

он пишет: "неправильный тип параметров подпрограммы"

[ViktorR]

А что ожидал?
У тебя параметр z - real, а ты подставляешь переменную s - integer.

[val_nnm]

Набросал ответ
(правда писал без проверки, и паскаль уже совсем забыл. поэтому если будут ошибки, поправь сам)

program summ;

var x,s:real;
    n:integer;

procedure step(x:real;n:integer;var s:real);
var
    tmp:real;
    i:integer;
begin
  s:=0;
  tmp:= x*x*x;
  i:=3;
  while (i<=n) do Begin
    s:=s+tmp;
    tmp:=tmp*x*x;
    i:=i+2;
  end;
end;

begin 
  writeln('Введите первый член ряда: ');
  Readln(x);
  writeln('Введите количество членов ряда: ');
  Readln(n);
  step(x,n,s);
  writeLn('Сумма равна: ',s);
end.