Søg
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Andet programmering kategorien

Titel Indlæg Oprettet Seneste aktivitet
Bat file. Af johnnylassen i Andet programmering 4 23/04/202616:10 21/08/202611:03
Hjælp til Api.asmx Af lurup i Andet programmering 1 17/03/202609:27 17/03/202614:12
burgermenu til hjemmeside - hjælp! Af SabrinaL i Andet programmering 2 12/11/202514:10 21/08/202611:08
Hjælp til programmering af website Af hamdenlange i Andet programmering 16 17/08/202522:26 19/08/202515:53
Kan man registrere hvis folk lukker en side ned Af KurtG i Andet programmering 8 24/07/202513:06 28/07/202517:03
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 14:58 Scanner program til PC Af fjorbak i Andet software
16/1016:25 En "Gammel" & "Retro" PC Service ? Husker ikke navnet .... Af Ikke-ekspert i Diverse
16/1016:17 Jeg har lige købt en Samsung mobil telefon Af Strawberry i Mobiltelefoner
16/1013:20 Lotus Approach Af Carsten i Andet software
15/1015:34 Epson scanner forbinder ikke til computer Af bbkdk i Printere
White papers
Flere white papers »