Delphi - funkcja - pomocy!

05.04.2006

15:09

[1]

[MiKu[ [ Pretorianin ]

Delphi - funkcja - pomocy!

Witam! Moglibyscie mi pomoc ze zrobieniem funkcji w delphi, ktorej zadaniem bedzie obliczenie potegi? W formularzu mamy podane dwie zmienne. Licze na szybka odpowiedz! Z gory dzieki!

05.04.2006

15:18

[2]

Narmo [ nikt ]

podniesienie do kwadratu:

function potega:real;
begin
writeln('Podaj liczbe');
readln(liczba);
pot:=sqr(liczba);
end;

podniesienie do potegi y
Wymaga użycia modułu math, czyli na samym początku po uses dopisujesz math:
uses
SysUtils,
math;

function potega:real;
begin
writeln('Podaj liczbe');
readln(liczba);
writeln('Podaj potege');
readln(y);
pot:= power(liczba,y);
end;

liczba i y to liczby rzeczywiste (real). Potem w programi głównym wystarczy napisać
potega

i wystarczy.

05.04.2006

15:19

[3]

Tomus665 [ Legend ]

Tu masz kod z TP na potęge dalej chyba sobie poradzisz.

function poteguj(a,b : longint) : longint;
var
i,n,c : longint;
begin
c := 1;
i := 1;

for n := 1 to 31 do
begin
if b and i <> 0 then c := c * a;
i := i shl 1;
a := a * a;
end;

poteguj := c;
end;

Sorki nie mam czasu niestety, a bym z miłą chęcią pomógł.

05.04.2006

15:20

[4]

alan09 [ Konsul ]

chyba cos takiego:

function potega(a:integer,b:integer):integer;
var i:integer;
begin
for i:=1 to b
a:=a*a;
result a;
end;