процедуры

[homa371]

Оформить в виде процедуры алгоритм вычисления степени y=x^N(x в степени N). ПОМОГИТЕ!!!ААА!! ваще не шарю паскаль.....

[phomm]

procedure pow_std (x : real ;s : integer ; out res : real);
var i : integer;
begin
res := x;
case s of
  0 : res := 1;
  1 : res := x;
  else for i := 2 to s
      do res := res*x;
end;
end;

procedure pow_rec (x : real ;s : integer ; out res : real);
begin
case s of
  0 : res := 1;
  1 : res := x;
  else begin
    pow_rec(x, s-1, res);
    res := res*x;
    end;
end;
end;

2 варианта - с рекурсией и обычная, считает все числа с целой степенью , степень >= 0. передаешь число, степень , и переменную в которую будет записан результат

и что хочу сказать ещё : меняй манеру написания тем ! излагай четко и просто, не нужны тут никому твои помогите, шарю/не шарю, пиши спокойно : необходима процедура для возведения числа в степень на паскале

кстати, если хочешь, могу ещё индусскую написать :D