Паскаль!!! Проверьте...

[DjDeniels-61]

Паскаль!!! Проверьте...

Program an4isel;
FUNCTION X2n (X:Extended; n:INTEGER):Extended;
Var i:INTEGER;
Y:Extended;
BEGIN
IF n=0 THEN X2n:=1 ELSE
IF n=1 THEN X2n:=X ELSE
BEGIN
Y:=X;
FOR i:=2 TO n DO Y:=Y*X;
X2n:=Y;
END;
END.

Условие:
Написать рекурсивную функцию для рачета степени n вещественного числа а(n - натуральное число).
Выдает ощибку FUNCTION X2n (X:Extended; n:INTEGER):Extended; в первом слове Extended...

 

[Vladimir_S]

Program an4isel;
FUNCTION X2n (X:Extended; n:INTEGER):Extended;
Var i:INTEGER;
Y:Extended;
BEGIN
IF n=0 THEN X2n:=1 ELSE
IF n=1 THEN X2n:=X ELSE
BEGIN
Y:=X;
FOR i:=2 TO n DO Y:=Y*X;
X2n:=Y;
END;
END.

Условие:
Написать рекурсивную функцию для рачета степени n вещественного числа а(n - натуральное число).
Выдает ощибку FUNCTION X2n (X:Extended; n:INTEGER):Extended; в первом слове Extended...

1. Если Ваш Паскаль не понимает формата Extended, попробуйте заменить Extended на Real в трех местах.
2. Программа должным образом не оформлена. После имени программы должен идти раздел описания констант, типов и переменных - у Вас отсутствует, далее - процедуры и функции (есть), потом BEGIN (нету), далее тело программы (нету), и в конце END. (есть). Так дело не пойдет.

 

[DjDeniels-61]

Можете исправить ощибки,плизз,напишите как правильно..

 

[Vladimir_S]

Можете исправить ощибки,плизз,напишите как правильно..

Например, так:

Program an4isel;
VAR
xx:REAL;
nn:INTEGER;

FUNCTION X2n(X:REAL; n:INTEGER):REAL;
Var i:INTEGER;
Y:REAL;
BEGIN
IF n=0 THEN X2n:=1 ELSE
IF n=1 THEN X2n:=X ELSE
BEGIN
Y:=X;
FOR i:=2 TO n DO Y:=Y*X;
X2n:=Y;
END;
END;

BEGIN
Write('x = '); ReadLn(xx);
Write('n = '); ReadLn(nn);
Writeln('y = ', X2n(xx,nn));
ReadLn;
END.

 

[DjDeniels-61]

Спасибо большое))))