В чем ошибка?

[bwitcher]

Составить программу возводящую любое число n в любую степень m. Для возведения в степень определить необходимую функцию.

Program MyProg;
Var
n,m,i:integer;
Function FR(a,b:integer):integer;
Begin
for i:=1 to b do 
FR:=FR*a;
end;
Begin
Writeln('vvedite chislo');
Readln(a);
Writeln('vvedite stepen chisla');
Readln(b);
Writeln('stepen chisla=',FR(a,b));
Readln;
End.

В чем ошибка, не подскажете?

[Mad_Cat]

Function FR(a,b:integer):real;
var z:real;
Begin
z:=1;
for i:=1 to b do 
z:=z*a;
fr:=z;
end;

[Ybn2]

Сообщение от bwitcher

Составить программу возводящую любое число n в любую степень m. Для возведения в степень определить необходимую функцию.

У тебя по заданию m и n любые числа, и не где не говориться, что они целые. Вот Код для возведения в степень как целых, так и вещественных:

Program MyProg;
Var
n,m:Real;
Function FR(a,b:real):real;
Begin
  FR:=Exp(b*Ln(a));
end;

Begin
Write('vvedite chislo');
Readln(n);
Write('vvedite stepen chisla');
Readln(m);
Writeln('stepen chisla=',FR(n,m):4:5);
Readln;
End.

[bwitcher]

Дык вроде бы самому нужно составить функцию для возведения в степень. Экпонент я тоже знаю
Mad_Cat, ничего не понимаю. Ввел, что вы написали, так Паскаль мне пишет, что a - не описанный идентификатор...

[Mad_Cat]

Вот Код для возведения в степень как целых, так и вещественных:

ну возведи своим кодом 7.5 в 0 степень или в -1

Паскаль мне пишет, что a - не описанный идентификатор

а он у тя кроме функции нигде и не описан

Program MyProg;
Var
n,m,i:integer;
Function FR(a,b:integer):real;
var z:real;
Begin
z:=1;
for i:=1 to b do 
z:=z*a;
fr:=z;
end;
Begin
Writeln('vvedite chislo');
Readln(n);
Writeln('vvedite stepen chisla');
Readln(m);
Writeln('stepen chisla=',FR(n,m));
Readln;
End.

[bwitcher]

Да, я опять тупанул с мелочью. Дошло. Спасибо! А не могли бы вы помочь еще с одной программкой?))

[Mad_Cat]

А не могли бы вы помочь еще с одной программкой?))

1) одна тема - 1 вопрос
2) ты подпись читал?
3) не флуди!

[Ybn2]

Сообщение от Mad_Cat

ну возведи своим кодом 7.5 в 0 степень или в -1

Чуть чуть подправил код (там перепутал степень с числом) и все работает, хоть для 0, хоть для -1 степени. Только с одним соглашусь, число должно быть >0, но на этот случай можно написать проверку четности степени.

[bwitcher]

Сообщение от Mad_Cat

1) одна тема - 1 вопрос
2) ты подпись читал?

Читал, да. А если спрошу в другой теме, то поможете?)