Скачать: CL | DM;

возведение числа в целую степень при помощи циклов   Найти похожие ветки 

← →
frizZ. ©   (2003-02-23 22:11) [0]

Помогите сделать возведение числа в целую степень при помощи циклов, очень надо

---

← →
Palladin ©   (2003-02-23 22:21) [1]

эээх ты... школьник...


function MyPower(p_fNum:real;p_nPower:integer):real;
var
i:integer;
begin
result:=0;
for i:=1 to p_nPower do result:=result*p_fNum;
end;


Внимание вопрос!
Найди ошибку в вышеприведенном коде :)
Если вдруг найдеш, то исправь :)

---

← →
mrcat ©   (2003-02-23 22:22) [2]

Мона мне исправить? =)

---

← →
___ALex___ ©   (2003-02-23 22:27) [3]

function Deg(x: Extended; n: Integer): Extended;
var
i: Word;
begin

Result := 1;
for i := 1 to Abs(n) do Result := Result * x;
if n < 0 then Result := 1 / Result

end;

---

← →
Palladin ©   (2003-02-23 22:31) [4]

> ___ALex___ © (23.02.03 22:27)

ну блин

зачем приколы портить...

---

← →
___ALex___ ©   (2003-02-23 22:35) [5]

To Palladin
ты хотел чтоб у него голова что ли лопнула?
ладно в следующий раз не испорчу

---

← →
Palladin ©   (2003-02-23 22:39) [6]

:))
от чего тут лопатся то?

а вот отрицательную степень я не учел...
согласен, косяк...

---

← →
frizZ. ©   (2003-02-23 22:52) [7]

А отрицательная мне и не нужна, мне для частного случая, нафиг блин спасибо и всё такое, а Turbo Pascal функции точно также как и в Delphi записываются ?
Это мне для школы, а там TP

---

← →
Palladin ©   (2003-02-23 23:00) [8]

нэт, такое тебе в TP не пойдет


function MyPower(p_fNum:real;p_nPower:integer):real;
var
i:integer;
result:real;
begin
result:=1;
for i:=1 to p_nPower do result:=result*p_fNum;
MyPower:=result;
end;


---

← →
frizZ. ©   (2003-02-23 23:16) [9]

всё, я рад и доволен(почти)

фэнк ю вэри мач

---

← →
Alex Konshin ©   (2003-02-24 07:10) [10]


function myPower( p_fNum : Extended; p_nPower: LongWord ) : Extended;
var
x : Extended;
n : Integer;
begin
Result := 1;
if p_nPower=0 then Exit;
n := 1;
x := p_fNum;
repeat
if (n and p_nPower)<>0 then
begin
Result := Result*x;
p_nPower := p_nPower and not n;
if p_nPower=0 then Exit;
end;
Inc(n,n);
x := x*x;
until False;
end;


---

← →
Palladin ©   (2003-02-24 11:56) [11]

Удалено модератором
Примечание: Личная переписка

---

← →
Axel ©   (2003-02-24 12:03) [12]

Удалено модератором
Примечание: Задай СВОЙ вопрос в отдельной ветке

---

← →
Palladin ©   (2003-02-24 12:12) [13]

> Axel © (24.02.03 12:03)

а если более конкретно спросить?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.013 c