Процедура и функция в делфи

[Ken_Watanabe]

Здравствуйте!
пишу код в делфи в консоль, запускаю программу оно сразу же закрывается ,что тут не так? пробовал операторы readln,writeln не робит.

Описать функцию Power2 (A,N) вещественного типа, находящую величину А^N (A-вещественный,N-целый параметр) по следующим формулам: A^0=1; A^N=A*A*...*A (N сомножителей), если N>0; A^N=1/ (A*A*...*A)
(|N| сомножителей), если N<0.
С помощью этой функций найти A^K, A^L, A^M, если даны числа A, K, L, M.

Пример:
Исходные данные
A=4.50
K=0
L=3
M=0

Пример верного решения
Power2(A,K)= 1.00
Power2(A,L)= 92.63
Power2(A,M)= 1.00

function power2(A:real;N:integer):real;
var
i:integer;
r:real;
begin
r:=1;
if N=0 then begin
Result:=1;
exit;
end;
for i:=1 to N do
r:=r*A;
if N<0 then Result:=1/r else Result:=r;
end;

[Utkin]

А где Вы пробовали writeln? В вашем коде его нет, и то что Вы вложили это фрагмент, а не программа. Выложите место где Вы выводите результат работы данной функции.
Код программы оформляется кнопочкой #, многие просто не читают код оформленный иначе. Если хотите чтобы Вам ответили, оформляйте код программы как положено. И еще Ваш код не учитывает что N может быть отрицательной величиной, результат в таком случае непредсказуем и возможно будет отличаться при каждом запуске программы.

[Ken_Watanabe]

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

А где Вы пробовали writeln? В вашем коде его нет, и то что Вы вложили это фрагмент, а не программа. Выложите место где Вы выводите результат работы данной функции.
Код программы оформляется кнопочкой #, многие просто не читают код оформленный иначе. Если хотите чтобы Вам ответили, оформляйте код программы как положено.

а как еще можно решить? я просто примерно написал. Помогите студенту позязя)

[Utkin]

Выложите полный текст программы. То что у Вас только фрагмент и я сильно подозреваю, что он написан не Вами, а стырен на просторах Интернета.

[Ken_Watanabe]

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

Выложите полный текст программы. То что у Вас только фрагмент и я сильно подозреваю, что он написан не Вами, а стырен на просторах Интернета.

Создал консоль в делфи, написал код который сверху стоит, вот и все больше нечего волшебного не добавлял/изменял.

[indexx]

Ken_Watanabe Ткни пальцем в своём коде, где там есть readln. И ещё момент. Что заставляет выполнять твою функцию?

[Utkin]

Создал консоль в делфи, написал код который сверху стоит, вот и все больше нечего волшебного не добавлял/изменял.

Мой скромный опыт подсказывает, что приведенный выше фрагмент в том виде в котором он выложен не может быть исполнен. Это не законченная программа, а только ее часть. Вот Вам голову оторвать, Вы есть сможете? Я думаю что нет. Здесь аналогично - головы у программы нету потому она и голодная (то есть задача не решена).

[Ken_Watanabe]

Все спасибо за советы, разобрался)

[min@y™]

Я уже говорил, что грешников, выкладывающих свой код без подсветки и форматирования в аду варят в котлах с кипящим вольфрамом?

function power2(const A: Double; const N: Integer): Double;
var
  i: integer;
begin
  Result:= 1;
  for i:= 1 to Abs(N) do Result:= Result * A;
  if N < 0 then Result:= 1 / Result;
end;

[Ken_Watanabe]

Сообщение от min@y™

Я уже говорил, что грешников, выкладывающих свой код без подсветки и форматирования в аду варят в котлах с кипящим вольфрамом?

function power2(const A: Double; const N: Integer): Double;
var
  i: integer;
begin
  Result:= 1;
  for i:= 1 to Abs(N) do Result:= Result * A;
  if N < 0 then Result:= 1 / Result;
end;

сяб! из за оформление не потейте, бывает...