Функции

[Dionix]

Блин как ЭТО решить с помощью функций?

[_-Re@l-_]

Можно так:

Uses CRT;

Function Stepen(x,y:longint):longint;
var i:integer;
     t:longint;
begin
       t:=x;
       for i:=1 to y-1 do
       x:=x*t;
       Stepen:=x;
end;

Var
     a,b,c,d:longint;
     y:double;
Begin
       Clrscr;
       Write('a,b,c,d = ');
       Readln(a,b,c,d);
       y:=(Stepen(a+d,3)+Stepen(a-b,4))/(Stepen(b,5)-Stepen(c,3));
       Write('y = ',y);
       Readln;
end.

Вроде бы вот

[DomiNick]

Модуль Math... Функция Power()... А можно просто умножать...

[DRAgon™]

может так?

FUNCTION Power(Osnovanie:Real;  Stepen,Stepen1:Word) : Real;
  VAR  a,b,d,c,y:Real;  i:Integer;
  BEGIN
  a:=1;
		for i:=1 to Stepen do a:=(a+d*Stepen)+(a-b*Stepen)*Osnovanie;
                      	
                         {Здесь нельзя было написать
		Power:=Power*Osnovanie, так как в пpавой части опеpатоpа пpисвоения
		функция Power обязана быть записана с паpаметpами}
	Power:=a
  END;
BEGIN
	WriteLn(Power( 5+3,3)+(5-3,4) : 30:10);
	WriteLn(Power(8,5-3,3): 30:10);

END.

[_-Re@l-_]

Модуль Math... Функция Power()... А можно просто умножать...

Где вы видели модуль Math для паскаля???Он же в Delphi!

[DRAgon™]

FUNCTION Power(Osnovanie:Real; Stepen,Stepen1:Word) : Real;
VAR a,b,d,c:Real; i:Integer;
BEGIN
a:=1;
for i:=1 to Stepen do a:=(a+d*Stepen)+(a-b*Stepen)/(b*Stepen-c*Stepen)*Osnovanie;

{Здесь нельзя было написать
Power:=Power*Osnovanie, так как в пpавой части опеpатоpа пpисвоения
функция Power обязана быть записана с паpаметpами}
Power:=a;
end;
Var y:Real;

BEGIN

y:=(Power( 5+3,3)+(5-3,4))/(8,5-3,3);
Writeln(y);


END.

чет я запутался

[_-Re@l-_]

чет я запутался

Дык распутайся
Так-то у тебя в принципе примерно тоже самое как и у меня, ток немного по-другому...

[DRAgon™]

Сообщение от _-Re@l-_

Дык распутайся
Так-то у тебя в принципе примерно тоже самое как и у меня, ток немного по-другому...

щасссс

[DomiNick]

Где вы видели модуль Math для паскаля???Он же в Delphi!

Эм... А что такое-то? У нас в институте был... И прекрасно работал..... о___о

[DRAgon™]

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

Эм... А что такое-то? У нас в институте был... И прекрасно работал..... о___о

Может ты его сам создавал?