вычисление степени в паскале

[T@tali]

На этот раз совсем не знаю как решать. С математикой туго. помогите Пожалуйста решить задачу. Даже набросок нет.


Создать в ИСР Pascal:
а) Создать пользовательский модуль для вычисления А в степени n, где a – любое вещественное число, n – целое число (может быть как положительным, так и отрицательным), причём обе переменные являются внешними по отношению к основной программе;
б) программу, которая будет использовать модуль (задание А) для вычисления степени некоторого числа, основание и показатель вводятся с клавиатуры.


P.S. Это последняя задачка, которую у меня осталось решить. Буду тож пробовать и выкладывать исходник

[Grag]

Сообщение от T@tali

причём обе переменные являются внешними по отношению к основной программе;

Ты ничего не напутала???

[T@tali]

нет. Скопировала как есть

[T@tali]

а) uses stepen;
	var
	x:integer;
n,g:real;
begin
writeln(‘input osn’);
readln(n);
writeln(‘input step’);
readln(x);
g:=pow(n,x);
writeln(g:6:4);
readln;
end.

а правильно нет не наю, помогите кто знает

[SwiP]

Могу тебе скинуть функцию, которая вычисляет степень, писал сам когда-то,может прикрутишь к своей работе

function stepenj (val:integer):integer;
var inp,i,tmp:integer;
begin
  tmp:=val;
  Result:=1;
  Writeln ('Vvedi stepenj'); Readln (inp);
  for i:=1 to inp do
    Result:=Result*tmp;
Writeln (Result);
end;

Для вызова используй так:
Writeln ('Vvedi 4islo:'); Readln (x);
Stepenj(x);

Паскаль подзабыл могут быть ошибки

[T@tali]

Спасибо за код. скажите а с чем едят пользовательский модуль. Скажите как его создают или это и есть программа????