Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
Вниз
возведение числа в целую степень при помощи циклов Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c
