Нужна помощь в интересной задачке..

[swink]

Спасибо

[МульТ (Татьяна)]

а можешь обьяснить эту строку?
K:=I+1;

[swink]

Что вычисляет функция Х?
Какой тип её формальных параметров?
Какой тип самой функции?

Program P2;
Var S:Real;
B,C,D:Byte;
Function X (n:Real;m:Byte):Real;
Var st:real;I:Byte;
St:=1;
For I:=1 to n do
St:=St*a;
X:=St;
End;
Begin
B:=3;C:=2;D=4;
S:X(B,3)+X(C,4)+Y(D,2);
Writeln(S:2:2);
end.

[IT-man]

Странная какая то функция.Она вообще работает?

[МульТ (Татьяна)]

Что-то Ваша задача уж больно смахивает на задачу Linus в соседней теме. И ошибки почти те же...
непосредственно эта формула
St:=St*a; учитывая, что начальное значение St равно 1, получается,
а в степени n.
а, вообще, поскольку программу тебе будет сложно исправить возьми ручку и пробегись по циклу, предварительно поприсваивай значение n

[__STDC__]

Сообщение от МульТ (Татьяна)

а, вообще, поскольку программу тебе будет сложно исправить возьми ручку и пробегись по циклу, предварительно поприсваивай значение n

Зачем ручку? оО есть такое прекрасное средство как отладчик.. удобнее, чем листы портить и снижать популяцию деревьев...
***
функция вообще ересь.. если даже не обращать внимание на пропущенное в S:X(B,3)+X(C,4)+Y(D,2); "=".. в функцию X первый аргумент - вещественное число, а не byte.. Но это только нанометр беды.. не знаю.. может имелось ввиду что-то такое:

Var 
	S,B,C,D:Real;
Function X (a:Real;n:Byte):Real;
Var 
	st:real;
	I:Byte;
begin
	St:=1;
	For I:=1 to n do
		St:=St*a;
	X:=St;
End;

Begin
	B:=3.0; C:=2.0; D:=4.0;
	S:=X(B,3)+X(C,4)+X(D,2);
	Writeln(S:0:2);
end.

?
Тогда это просто ф-ция вычисления степени n числа a