Math в TP7

[digitalis]

Что-то в приступе любви к ближним решил сегодня после обеда: напишу-ка я прогу для студента. Правда, в TP7 я практически не работал, но ведь на Делфи написаны мегабайты нетленки Облом-с ! Уперся в Power. Не понимает компиллер! Ясен пень, в Делфи я бы подключил uses Math - но тут нет такого ? Все TPU - о чем-то другом, а не о расширенных мат. функциях. Чего я не догоняю ?

[p51x]

Экспонента с логарифмом вас спасет

[Pavia]

Math нету, но это не мешает его написать самому. Или портировать из Delphi.

function power(const Base, Exponent: Extended): Extended;
var Ln_base:Extended;
var For_exp:Extended;
begin
   Ln_base:=Ln(Base);
   For_exp:=Exponent*Ln_base;
   power := Exp(For_exp);
end;

[digitalis]

Спасибо за ответы. Написать самому - это, конечно, как два байта об асфальт. Но вот отсутствие такого необходимого штатного инструмента в ТР7 - удивляет. Думал - чего-то не понимаю, не там ищу. Оказалось - нет черной кошки в темной комнате
В общем, век живи - век "Учись, студент !" ©

[Serge_Bliznykov]

угу, не было такого в Turbo Pascal.

в простейших случаях Power заменялась на

function POWERFN (number, exponent : real) : real;
     begin
       powerfn := Exp(exponent*Ln(number));
     end;

в особо "тяжёлых" так (скопировано ОТСЮДА

To make it general use:

   (* Generalized power function by Prof. Timo Salmi *)
   function GENPOWFN (number, exponent : real) : real;
   begin
     if (exponent = 0.0) then
       genpowfn := 1.0
     else if number = 0.0 then
       genpowfn := 0.0
     else if abs(exponent*Ln(abs(number))) > 87.498 then
       begin writeln ('Overflow in GENPOWFN expression'); halt; end
     else if number > 0.0 then
       genpowfn := Exp(exponent*Ln(number))
     else if (number < 0.0) and (Frac(exponent) = 0.0) then
       if Odd(Round(exponent)) then
         genpowfn := -GENPOWFN (-number, exponent)
       else
         genpowfn :=  GENPOWFN (-number, exponent)
     else
       begin writeln ('Invalid GENPOWFN expression'); halt; end;
   end;  (* genpowfn *)

On the lighter side of things an extract from an answer of mine in
the late comp.lang.pascal UseNet newsgroup:
>anyone point out why X**Y is not allowed in Turbo Pascal?
The situation in TP is a left-over from standard
Pascal. You'll recall that Pascal was originally
devised for teaching programming, not for
something as silly and frivolous as actually
writing programs. :-)

Вольный перевод последней фразы:

> Кто-нибудь может объяснить, почему X ** Y не допускается в Turbo Pascal?
Ситуация в TP является пережитком, доставшемся от стандартного Паскаля.
Вы помните, что Паскаль был первоначально разработан для обучения программированию,
а не для таких глупостей и легкомысленностей, как обычное написание программ. :-)