Как написать функцию которая возводит число в любую степень? с целыми степенями все вроде понятно... а если надо посчитать что то вроде x^12.17??? как быть?
volvo
26.10.2004 20:17
Для положительных чисел -
Код
{ только для А > 0 !!! } function Pwr(a, x: real): real; begin pwr := Exp(x*Ln(a)); end;
var x: real; begin x := 5; Writeln( x, '^12.17 = ', Pwr(x, 12.17) ); end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.