Re: Nullstellen Berechnung für y=ax²+bx+c [Gelößt]
Danke für eure Tipps habe es heute früh hingekriegt, weil ich hatet ja probiert mit rechter Maustaste als Adminstrator auszuüfuhren probiert, der Fehler blieb.
Ich hab den Fehler behoben indem ich auf Kompabilitätsmodus Windows xp Sp 2 gewechselt habe und über eigenschaften noc mal geändert habe als Adminstrator ausführen und die Berechtiguungen geändert habe. |
Re: Nullstellen Berechnung für y=ax²+bx+c [Gelößt]
:-D :-D :-D
|
Re: Nullstellen Berechnung für y=ax²+bx+c [Gelößt]
Falls immer noch jemand so ein Programm benötigt, hier ist meins, ist ganz einfach zu machen, wenn man bisschen Mathe kann und schon mal was von der Mitternachtsformel gehört hat.
http://www.file-upload.net/download-...nacht.exe.html |
Re: Nullstellen Berechnung für y=ax²+bx+c [Gelößt]
Erstmal herzlich willkommen in der DP. :dp:
Interessant für andere Benutzer wäre eher der Delphi-Code. Gruß Wolfgang |
Re: Nullstellen Berechnung für y=ax²+bx+c [Gelößt]
Soll ich einfach den Code posten oder das Projekt uploaden?
|
Re: Nullstellen Berechnung für y=ax²+bx+c [Gelößt]
Hier anhängen wäre vielleicht am Besten, falls der Hoster mal dicht macht. ;)
|
Re: Nullstellen Berechnung für y=ax²+bx+c [Gelößt]
Delphi-Quellcode:
[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]
unit Mitternachtsformelberechnung;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls, MPlayer; type TForm1 = class(TForm) Image1: TImage; Button1: TButton; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label12: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function plus(a,b,c: Real): Real; begin plus:=(-b+(SQRT(b*b-4*a*c)))/(2*a); end; function minus(a,b,c: Real): Real; begin minus:=(-b-(SQRT(b*b-4*a*c)))/(2*a); end; procedure TForm1.Button1Click(Sender: TObject); var a,b,c,d,e: Real; begin Label1.Caption:=''; Label2.Caption:=''; a := StrToFloat(Edit1.Text); b := StrToFloat(Edit2.Text); c := StrToFloat(Edit3.Text); if b*b-4*a*c>=0 then begin d := plus(a,b,c); e := minus(a,b,c); Label1.Caption := FloatToStr(d); Label2.Caption := FloatToStr(e); Label12.Caption:=''; end else Label12.Caption:='Es gibt keine Nullstellen!'; end; end. |
Re: Nullstellen Berechnung für y=ax²+bx+c [Gelößt]
Schließ das Ganze 'mal bitte mit Delphi-Tags ein, dann läßt es sich besser lesen.
Gruß Wolfgang |
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:20 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