Функция...

[Sota]

Всем доброго времени суток!
недавно столкнулся с задачей на Pascal'е. Она звучит следующим образом:
"type natur = 1..maxint;
var a, b : real; k: natur;
Описать функцию st(x, n) от вещественного x и натурального n , вычисляющую через умножение величину , и использовать ее для вычисления определенного выражения."

Я написал код всей проги. Вот он:

program zadacha;
Uses CRT;
type natur = 1..maxint;
var a,b:real; k:natur;
function st(x:real;n:natur):real;
var p:real;
    i:integer;
begin
     p:=1;
     for i:=1 to n do begin p:=p*x;
     writeln(p:5:3); end;
end;
begin clrscr;
write('Input a and k:'); read(a,k);
b:=st(2.7,k)+1/st((a+1),5);
writeln('b=',b:6:3);
readkey;
end.

Но программа работает некорректно. Например, если ввести k=0 и a=0, то ответ должен быть равен 2! В чем же ошибка не разберу. Прошу указать на ошибку или предложить другой вариант алгоритма.
Прошу помочь. Всем заранее спасибо.

[hoza_syl]

Конечно не работает.
Твоя функция st вместо того, чтобы возвращать результат, просто печатает его на екране.

Вот тебе нормальный код:

program zadacha;
 uses crt;
type natur = 1..maxint;   
var a,b:real; k:natur;

function st(x:real; n:natur):real;   
var p:real;   
    i:integer;   
begin   
     p:=1;   
     for i:=1 to n do
     begin
        p:=p*x;
        writeln(p:5:3); //если разпечатка на екране не нужна, удали эту строку
     end;
     result:=p;  //А эту добавь!!!:) 
end;   
begin
write('Input a and k:');
read(a,k);
b:=st(2.7,k)+1/
st((a+1),5);

writeln('b=',b:6:3);   
readkey;
end.

[Sota]

Огромное спасибо)))... Да, действительно я ступил)))... Ещё раз спасибо.)))

[puporev]

вычисляющую через умножение величину , и использовать ее для вычисления определенного выражения."

Ваша функция должна умножать одно число на другое, а у вас по сути пошаговое возведение в степень с выводом на экран. По сути это процедура. А все намного проще. Вот код.
Кстати To hoza_syl result в Паскале не рулит.

program zadacha;   
Uses CRT;   
type natur = 1..maxint;   
var a,b:real; k:natur;   
function st(x:real;n:natur):real;   
begin
st:=n*x;//умножение
end;
begin
clrscr;
write('Input a and k:');
read(a,k);
b:=st(a,k)+1/st(a,k);//выражение использует функцию умножения
writeln('b=',b:6:3);   
readkey;
end.

[hoza_syl]

result в Паскале не рулит

Да дал маху. Там надо написать :

st:=p;

А вообще, я не понял задачи. А заметив в коде ошыбку решил помочь исправить.

[Sota]

я сначала тож не врубился, че за резулт. Но потом заменил на нужную операцию присваивания и все ОК. А код у меня такой был, т.к там нужно возведение степени методом умножения сделать. Вот пришлось зацикливать)))