Составить программу для возведения вещественного числа A в натуральную степень n, не используя функции Power

@BloodyS · Регистрация: 01.11.2015

Студворк — интернет-сервис помощи студентам

Составить программу для возведения вещественного числа A в натуральную степень n, не используя функции Power.Паскаль

@Кирилл_В · 05.11.2015, 17:54

Pascal

var n:integer;
    x: real;
begin
 writeln('Введите число: ');
 readln(x);
 writeln('Введите степень: ');
 readln(n); 
 writeln('Равно: ', exp(n*LN(x)));
end.

Добавлено через 21 минуту

Pascal

var n, i:integer;
    x,s: real;
begin
writeln('Введите число: ');
readln(x);
writeln('Введите степень: ');
readln(n);
s:=1;
  for i:=1 to n do
  s:=s*x;   //накапливаем значение степени
  writeln('Равно ',s);
end.

@APALoff · 05.11.2015, 17:58

Pascal

Function AinB(a : Real; b : Integer) : Real;
Begin
  If b>0 then AinB:=a*AinB(a,b-1) else AinB:=1;
end;
Begin
  Writeln(AinB(-3,3));
end.

Составить программу для возведения вещественного числа A в натуральную степень n, не используя функции Power

Решение

Решение

@BloodyS 0 / 0 / 0 Регистрация: 01.11.2015 Сообщений: 9
		1
	Составить программу для возведения вещественного числа A в натуральную степень n, не используя функции Power 05.11.2015, 16:43. Показов 3032. Ответов 2 Метки нет (Все метки) Составить программу для возведения вещественного числа A в натуральную степень n, не используя функции Power.Паскаль 0

Опции темы