Напишите функцию нахождения числа с = а^b

[Настенька..Блонди]

Помогите пжл. Выручите бедную студентку!!!!!



1. Напишите функцию нахождения числа с = а^b . Найдите 2^10

2. Заполнить матрицу линейной последовательностью, от левого верхнего угла по спирали: вправо - вниз - влево - вверх. Размерность матрицы должна вводиться при выполнении программы. Само решение задачи должно быть оформлено в виде функции, которой передается матрица и ее размерность.

3. Описать функцию WordN(S,k) строкового типа, возвращающую k-е слово строки S (под словом понимается набор символов, не содержащий пробелов и ограниченный пробелами или началом/концом строки). Если количество слов в строке меньше k, то функция возвращает пустую строку. Используя эту функцию, выделить из данной строки S слова с номерами k1, k2, k3.

[Настенька..Блонди]

Это надо решить в паскале))

[valetik]

program Vozvedenie_v_stepen;
Var
a,b: LongInt;
c: Real;

function sqr_x(osn, stepen: LongInt): Real;
begin
Case stepen of
0:
begin
sqr_x:=1;
exit;
end
else
If stepen>0 then sqr_x:=sqr_x(osn, abs(stepen)-1)*osn;
If stepen<0 then sqr_x:=1/(sqr_x(osn, abs(stepen)-1)*osn);
end
end;

Begin
Write('Osnovanie: ');
ReadLn(a);

Write('Stepen: ');
ReadLn(b);

c:=sqr_x(a, b);
WriteLn(c:0:3);
End.

В основе алгоритма рекурсивный вызов процедуры.

P.S. 2^10 - это же как "отче наш" ))