Вверх ↑
Ответов: 3349
Рейтинг: 233
#1: 2011-04-24 18:50:29 ЛС | профиль | цитата
code_23499.txt
------------ Дoбавленo в 18.50:
[b]Леонид[/b],
#pas
procedure Power(var x, Exponent: real);
var y:integer;
begin
y := Round(Exponent);
if Exponent=y then x := IntPower(x, y)
else if (x=0)and(Exponent>0) then x := 0
else x := Exp(Exponent*Ln(x)); \ Тут все это есть
end;
карма: 1

0
файлы: 1code_23499.txt [958B] [204]