Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Mathefunktionen (https://www.delphipraxis.net/66420-mathefunktionen.html)

cissi88 29. Mär 2006 14:38


Mathefunktionen
 
hey leute
hab in der schule eine aufgabe aufbekommen: und zwar sollen wir via function unter delphi folgendes berechnen: a hoch n, c fakultät, x über y. kann mir jemand sagen wie man dies ausdrückt??

fwsp 29. Mär 2006 14:40

Re: Mathefunktionen
 
wie würdest du es denn mathematisch ausdrücken?

cissi88 29. Mär 2006 14:44

Re: Mathefunktionen
 
also ich will wissen wie man erstens diese gleichungen macht und mit welchen schleifen .
ein beispiel würde mir sehr helfen

Flare 29. Mär 2006 14:45

Re: Mathefunktionen
 
a hoch n:
Delphi-Quellcode:
function ahochn(a,n: integer): integer;
var i: integer;
begin
  Result := 1;
  for i:=1 to n do Result := Result * a;
end;
c Falkultät:
Delphi-Quellcode:
function cfakultaet(c: integer): integer;
var i: integer;
begin
  Result := 1;
  for i:=0 to c do Result := Result * i;
end;
Ich habe gerade vergessen was x über y war...
Und ich hoffe dass ich bei den Funktionen keinen Fehler gemacht habe und dass es das ist was du suchst.


Flare

markusj 29. Mär 2006 14:50

Re: Mathefunktionen
 
EDIT: Das ist Bockmist *hmpf*
Aber mal so ganz am Rande: ich möchte wissen hört sich besser an als ICH WILL.

mfG

Markus

EDIT2: Bei wer-weiss-was gefunden: X!/(Y!*(X-Y)!
EDIT3: zu langsam^^ (ich)

Nikolas 29. Mär 2006 14:51

Re: Mathefunktionen
 
bei a hoch n könnte man es auch etwas einfach haben:
Delphi-Quellcode:
function ahochn(a,n: integer): integer;
begin
result:= power(a,n); // benötigt die math-Unit
end;
Die Binomialkoeffizienten kann man schnell bei Wikipedia nachschauen:
(n über k)= n!/(k!*(n-k)!).

Flare 29. Mär 2006 14:57

Re: Mathefunktionen
 
@ Toxman: ich weiß, das es diese Funktion auch gibt, ich bin mir aber sicher dass der Lehrer eine eigene Funktion haben möchte.

Hier die ergänzung zu x über y:
Delphi-Quellcode:
function xuebery(x,y: integer): integer;
begin
  Result := round(cfakultaet(x)/(cfakultaet(c-y)*cfakultaet(y)));
end;

Flare

cissi88 29. Mär 2006 15:52

Re: Mathefunktionen
 
danke euch für diese hilreichen anworten

gordon freeman 29. Mär 2006 15:55

Re: Mathefunktionen
 
@All
Ohne hier wieder eine endlose Diskussion anfangen zu wollen.... aber in dem Kodex der Delphi-Praxis steht, das dieses Board hier KEINE Hausaufgabe löst. Ich möchte keinem User hier vorschreiben, auf welche Frage er antworten soll und auf welche nicht, dass soll eure Entscheidung sein, aber ich finde, in dem Moment wo jemand "cissi88" immer noch Antworten auf "Fragen" wie
Zitat:

Zitat von cissi88
also ich will wissen wie man erstens diese gleichungen macht und mit welchen
schleifen .
ein beispiel würde mir sehr helfen

bekommt, dann lernt er/sie ja nie wirklich selbstständig die Suche, google, Wikipedia, etc. zu benutzen.

@Cissi
ein "Bitte" und ein "Danke" tun auch dir nicht weh. Und man wird dir eher mal wieder antworten, wenn du die Nettiquette beachtest.

//edit: Das 'Danke' ist ja schonmal ein guter Anfang

mfg, Martin


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:09 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz