Avatar billede rdc Nybegynder
23. oktober 2003 - 22:39 Der er 12 kommentarer og
1 løsning

Returnerer i x n'te

Hej allesammen

Hvordan gør man sådan så man i delphi, vha. af 3 tekstfelter + en button, kan returneren i x n'te.

1 tekstfelt: xpotens
2 tekstfelt: npotens
3 tekstfelt: resultat

button: potens.


Min function skal hedde:
Potens(x: double; n: integer): double;
Avatar billede Slettet bruger
23. oktober 2003 - 22:43 #1
Kan du ikke bruge pow i math??
Avatar billede Slettet bruger
23. oktober 2003 - 22:44 #2
Eller det hedder vist power
Avatar billede Slettet bruger
23. oktober 2003 - 22:45 #3
uses Math;
function Potens(x: double; n: integer): double;
begin
Result := Power(x, n);
end;
Avatar billede arne_v Ekspert
23. oktober 2003 - 22:45 #4
res := floattostr(power(strtofloat(x),strtofloat(n)));
Avatar billede rdc Nybegynder
23. oktober 2003 - 22:47 #5
jamen hejhej, det skal være sådan at jeg skal indtaste et tal i npotens, og det tal jeg indtaster i xpotens skal opløftes med tallet i npotens. Fx.
xpotens: 3
npotens: 2
potens: 9
Avatar billede Slettet bruger
23. oktober 2003 - 22:48 #6
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit3.Text := FloatToStr(Power(StrToFloat(Edit1.Text), StrToFloat(Edit2.Text)))
end;
Avatar billede rdc Nybegynder
23. oktober 2003 - 22:52 #7
Vil du ikke lave en, uden den der power ting, for jeg må ike bruge noget som jeg ikke kender til. Den enkelte måde ville være rart
Avatar billede arne_v Ekspert
23. oktober 2003 - 22:55 #8
function Potens(x: double; n: integer): double;

var
  res : double;
  i : integer;

begin
  res := 0;
  for i := 1 to n do res := res * x;
  potens := res;
end;
Avatar billede arne_v Ekspert
23. oktober 2003 - 22:55 #9
function Potens(x: double; n: integer): double;

var
  res : double;
  i : integer;

begin
  res := 1; (* <----- *)
  for i := 1 to n do res := res * x;
  potens := res;
end;
Avatar billede rdc Nybegynder
23. oktober 2003 - 23:32 #10
Tak
Avatar billede arne_v Ekspert
23. oktober 2003 - 23:39 #11
Øh.
Avatar billede Slettet bruger
24. oktober 2003 - 07:08 #12
rdc -> Det var arne_v, der lagde de sidste svar :)

arne_v -> Skal jeg oprette et spm med point til dig?
Avatar billede arne_v Ekspert
24. oktober 2003 - 07:25 #13
Nej.

Det gider vi ikke.

Jeg undrede mig bare lidt.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester