Nullstellen Berechnung für y=ax²+bx+c [Gelößt]

[youcefdar]

Nullstellen Berechnung für y=ax²+bx+c / Delphi klappt nicht,

Hi ich bräcuhte eine Nullstellen Berechnung für y=ax²+bx+c, hatte letztens schon ganz viele tipps gekriegt, doch auf einmal hab ich das Problem DELPHI klappt nicht.
Na Toll, und muss morgen das Programm abgeben.

Könnte jemand mir das Programm also schreiben, die Dateien archivieren, uploaden und dann mir bereitstellen, ich weiß das ist sehr viel verlangt.

Also die Delphi Dateien archievieren und nicht nur die EXE Dateien.

Ich weiß das ich sehr viel verlange, aber ich hoffe jemand könnte das ehrlich für mich machen, denn Delphi zeigt mir eine unbekannte Fehlermeldung an.

Muss nicht schön aussehehen, einfach nur so provisorisch.

[mkinzler]

Besser wäre ja, wenn du uns deinen Code und die Fehlermeldung nennen würdest

[DP-Maintenance]

Dieses Thema wurde von "mkinzler" von "Programmieren allgemein" nach "Sonstige Fragen zu Delphi" verschoben.
Geht um Delphi

[Der.Kaktus]

Einmal Googlen brachte hunderte Ergebnisse ;-) Nullstelle Delphi berechnen

P.S.:

Sowas "Könnte jemand mir das Programm also schreiben, die Dateien archivieren, uploaden und dann mir bereitstellen, ich weiß das ist sehr viel verlangt.

Also die Delphi Dateien archievieren und nicht nur die EXE Dateien.

Ich weiß das ich sehr viel verlange, aber ich hoffe jemand könnte das ehrlich für mich machen, denn Delphi zeigt mir eine unbekannte Fehlermeldung an.

Muss nicht schön aussehehen, einfach nur so provisorisch. "

..solltest Du hier lieber lassen..Fragen beantworten wir gerne..aber Hausaufgaben machen wir nicht!! :dp:

[DeddyH]

Zitat:

Zitat von mkinzler

Besser wäre ja, wenn du uns deinen Code und die Fehlermeldung memme würdest

[OT] Markus, *ähem* :mrgreen: [/OT]
Aber ich teile Deine Ansicht.

[youcefdar]

Unable to Rename 'C:\Program Files\Borland\Delphi6\Bin\delphi32.$$$' to C:\Program Files\Borland\Delphi6\Bin\delphi32.dro'

[youcefdar]

das programm schreiben ist nicht nur allgemein das problem, delphi klappt nicht!^^

[DeddyH]

Windows Vista? Gib Dir mal alle Rechte auf das "Borland"-Verzeichnis samt aller Unterverzeichnisse (Tipp auf die Schnelle).

[turboPASCAL]

Man kann diese Datei auch per Hand umbenennen. ;)

[youcefdar]

hab versucht klappt immer noch nicht

[Cyberbob]

würde dein programm denn schon funktionineren? dann lade es hier hoch und jemand kompiliert es für dich.
ansonsten würde ich mal versuchen delphi als administrator auszuführen und wenn das nicht funktioniert könnte man noch eine neu-installation von delphi versuchen

[DeddyH]

Aber dann nicht nach "C:\Programme"

[Wolfgang Mix]

:-D

[youcefdar]

ook??? bin jetzt müde und versteh jetzt kein wort mehr von dem was ihr meint^^

[Luckie]

Zitat:

Zitat von youcefdar

hab versucht klappt immer noch nicht

Nun ja, bei dieser ausführlichen und umfassenden Fehlerbeschreibung... :?

[youcefdar]

Ich bin ja hier nicht der Profi.

[Luckie]

Trotzdem kannst du doch wohl beschreiben, was passiert.

[mkinzler]

Die UAC bei Vista bzw. fehlende Rechte verhindert ein Schreiben in Programmverzeichnis. Deshalb muss etwas an den Rechten verändert werden oder in einen abweichenden Pfad installiert werden

[hoika]

Hallo,

Delphi als Admin starten kann doch nicht so schwer sein ?
Einer mit Vista gebt ihm doch ne Anleitung.

- Verknüpfung auf Delphi.Exe auf dem Desktop anlegen
- rechte Maustaste, Eigenschaften
- "unter anderem Benutzernamen ausführen" oder ähnlich anklicken

Klappt das dann immer noch nicht,
Delphi z.B. nach c:\Delphi6 installieren
oder falls es noch ein anderes Laufwerk gibt, dorthin.


Heiko

[DeddyH]

Genau das versuche ich doch die ganze Zeit zu erklären. Testhalber Delphi einmal als Admin starten. Treten dort keine Probleme auf, Vollzugriff auf den "Borland"-Ordner vergeben. Alternativ Delphi neu installieren, aber nicht in das Standard-Verzeichnis (d.h. "Programme"-Ordner). Wenn das alles nicht hilft, weiß ich es auch nicht :glaskugel:

[youcefdar]

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.

[Wolfgang Mix]

:-D :-D :-D

[netmario]

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

[Wolfgang Mix]

Erstmal herzlich willkommen in der DP. :dp:

Interessant für andere Benutzer wäre eher der Delphi-Code.

Gruß

Wolfgang

[netmario]

Soll ich einfach den Code posten oder das Projekt uploaden?

[Mithrandir]

Hier anhängen wäre vielleicht am Besten, falls der Hoster mal dicht macht. ;)

[netmario]

Delphi-Quellcode:

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.

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]

[Wolfgang Mix]

Schließ das Ganze 'mal bitte mit Delphi-Tags ein, dann läßt es sich besser lesen.

Gruß

Wolfgang