Supportnet / Forum / Anwendungen(Java,C++...)
Hilfe bei Delphi
Frage
Hallo zusammen,
muss für die schule ein progamm programmieren (Dreieckberechnung).
Ich habe es auch soweit fertig aber mir wird ein Fehler angezeigt aus dem ich einfach nicht schlau werde...!
(Inkompatible Typen: ´Real´ und ´Tseiten´) vll könnt ihr ja damit was anfangen...
wäre echt toll wenn ihr mir helfen könntet bis dann XxACExX
Antwort 1 von Bubbelup
Hallo,
Tja, deiner dürftigen Beschreibung nach hast du irgenwo eine (Rechen-)Operation drin, die eine Realzahl mir deinem benutzerdefinierten Datentyp "tSeiten" vernudeln will.
Es würden bestimmt mehr Helfer auftauchen, wenn in deiner Frage etwas Quelltext auftauchen würde.
Gruss
Tja, deiner dürftigen Beschreibung nach hast du irgenwo eine (Rechen-)Operation drin, die eine Realzahl mir deinem benutzerdefinierten Datentyp "tSeiten" vernudeln will.
Es würden bestimmt mehr Helfer auftauchen, wenn in deiner Frage etwas Quelltext auftauchen würde.
Gruss
Antwort 2 von XxACExX
ok danke;)
hoffe der teil hilft euch?
der fehler wird mir ganz unten bei If Dreieck rechtwinklig .... angezeigt!
procedure TForm1.BitBtn1Click(Sender: TObject);
var Umfang, Flaeche : real;
begin
Seiten[1] := StrToFloat (Edt_a.Text);
Seiten[2] := StrToFloat (Edt_b.Text);
Seiten[3] := StrToFloat (Edt_c.Text);
if not (IstDreieck(Seiten))
then Showmessage (´Fehler! Seitenlängen ergeben kein Dreieck!´ +
´Geben Sie die Längen so ein,´ +
´dass die Sume zweier Seiten größer als die längste Seite ist!´)
else begin
Dreieckberechnung(Seiten, Umfang, Flaeche);
Edt_Flaecheninhalt.Text := FloatToStrF (Flaeche, ffFixed, 10, 2);
Edt_Umfang.Text := FloatToStrF (Umfang, ffFixed, 10, 2);
if DreieckRechtwinklig (Seiten) then Edt_Rechtwinklig.Text := ´Ja´
else Edt_Rechtwinklig.Text := ´Nein´;
end;
end;
hoffe der teil hilft euch?
der fehler wird mir ganz unten bei If Dreieck rechtwinklig .... angezeigt!
procedure TForm1.BitBtn1Click(Sender: TObject);
var Umfang, Flaeche : real;
begin
Seiten[1] := StrToFloat (Edt_a.Text);
Seiten[2] := StrToFloat (Edt_b.Text);
Seiten[3] := StrToFloat (Edt_c.Text);
if not (IstDreieck(Seiten))
then Showmessage (´Fehler! Seitenlängen ergeben kein Dreieck!´ +
´Geben Sie die Längen so ein,´ +
´dass die Sume zweier Seiten größer als die längste Seite ist!´)
else begin
Dreieckberechnung(Seiten, Umfang, Flaeche);
Edt_Flaecheninhalt.Text := FloatToStrF (Flaeche, ffFixed, 10, 2);
Edt_Umfang.Text := FloatToStrF (Umfang, ffFixed, 10, 2);
if DreieckRechtwinklig (Seiten) then Edt_Rechtwinklig.Text := ´Ja´
else Edt_Rechtwinklig.Text := ´Nein´;
end;
end;