Написать рекурсивную процедуру Power, которая возводит число X в степень

@johnkrut · Регистрация: 17.09.2014

Написать рекурсивную процедуру Power( X, N, Y) которая возводит число X в степень N и возвращает результат Y .

@JokeR.BY · 22.12.2014, 10:55

Pascal

var
    x, y : Double;
    n : Word;
procedure Recurr(const x : Double; const n : Word; var y : Double);
begin
    if (n > 0)
    then
    begin
        Recurr(x, n - 1, y);
        y := y * x;
    end;
end;
begin
    Write('x='); ReadLn(x);
    y := 1;
    Write('n='); ReadLn(n);
    Recurr(x, n, y);
    WriteLn('y=', y:0:3);
end.

хотя функцией, имхо, лучше писать подобные задания

Pascal

var
    x : Single;
    n : Word;
function Recurr(const x : Double; const n : Word) : Double;
var
    Result : Double;
begin
    if (n > 0)
    then
        Result := x * Recurr(x, n - 1)
    else
        Result := 1;
    Recurr := Result;
end;
begin
    Write('x='); ReadLn(x);
    Write('n='); ReadLn(n);
    WriteLn('y=', Recurr(x, n):0:3);
end.

@johnkrut 0 / 0 / 0 Регистрация: 17.09.2014 Сообщений: 93
		1
	Написать рекурсивную процедуру Power, которая возводит число X в степень 22.12.2014, 09:13. Показов 1533. Ответов 1 Метки нет (Все метки) Написать рекурсивную процедуру Power( X, N, Y) которая возводит число X в степень N и возвращает результат Y . __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Написать рекурсивную процедуру Power, которая возводит число X в степень

Решение