математические функции, как найти x в степени y/x и куб. корень из y/x? Опции

[MiH@N]

вообщем пример такой:
а мя как всегда не вовремя перемкнуло(решение не лезет в голову хотя проблема пустяковая )

[klem4]

не знаешь как в степень возвести или как модуль числа получить ? В любом учебнике по Паскалю это есть ... Да и на форуме тоже.

Хотя если возводимое число может быть <= 0, то стандартный способ возведения не прокатит.

[MiH@N]

Хотя если возводимое число может быть <= 0, то стандартный способ возведения не прокатит.

это меня и смущает...

не знаю как найти x^y/x и кубический корень из y/x

Сообщение отредактировано: MiH@N - 21.01.2008 20:08

[MiH@N]

вродь чёт нарешал но всё равно выдаёт ошибку...

del:=y/x;
if x>0 then st1:=Exp(del*Ln(x)) else
Function st1(n: integer)  : Integer;
Begin    st1:=(1 - 2*Byte(Odd(n)));
End;
if del>0 then st2:=Exp(del*Ln(1/3)) else
Function st2(n: Integer): Integer;
Begin    st2:=(1 - 2*Byte(Odd(n)));
End;
rez1:=abs(st1-st2);
end;

Сообщение отредактировано: MiH@N - 21.01.2008 20:56

[Yevgeny]

а точно функции st1 и st2 типа integer? может real? попробуй, будь что будет...

[MiH@N]

а в этом чтото есть...эээ хотяч всё равно ошиба

Function st1(n: integer) : real;--- после function

Сообщение отредактировано: MiH@N - 21.01.2008 21:51

[volvo]

Бррр... Погоди, ты функцию описываешь прямо в теле программы? Функция должна описываться перед основным блоком вообще-то... Причем у тебя st1 и st2 вообще выполняют одно и то же, зачем их две?

[MiH@N]

акак примерно должно быть?

[compiler]

акак примерно должно быть?

как нибудь так

function f(n: integer)  : integer;
begin f:=n+1; end;
begin
writeln(f(2));
end.

[MiH@N]

сори что тута но не могу создать новую тему;условие задачи такое:определить сумму чисел от 3 до 99 кратных 3.подскажите где ошибка:

var
a : integer;
b,s : real;
begin
s:=0; a:=3;
while a<=99 do
begin
b:=(a)mod(3) ;
If b=1 then s:=s+a;
a:=a+1;
end;
writeln(s);
readln;
end.

(Р.S.выводит результат 1616)

Сообщение отредактировано: MiH@N - 26.01.2008 12:51

[Client]

If b=0 then s:=s+a;// а не 1