DIV Problem (Integer?)

[Decadoria]

Hallo Ihr :D
Ich hab n problem und finde meinen Fehler nicht!
Und zwar geht es darum das ich in meinem Programm eine Rechnung machen will,
als ergebnis will ich aber nur GANZE zahlen ausgegeben bekommen.

Ich hab daher jetzt in meiner Rechnung mit DIV statt / gerechnet..
Allerdings bekomme ich nun immer folgende Fehlermeldung:

[Fehler] Unit1.pas(42): Operator ist auf diesen Operandentyp nicht anwendbar

Hier Nochmals mein Quelltext... Kann mir jemand sagen was ich jetzt Falsch gemacht habe???

var
Form1: TForm1;
L,H,L2,H2:real;


procedure TForm1.RechneClick(Sender: TObject);

begin
L:=strtoint (Laenge.text);
H:=strtoint (Hoehe.text);

if L>H then begin
L2:=L;
H2:=(L div 3)*2;
end
else
begin
H2:=H;
L2:=(H div 3)*2;
end;

Hoehe2.text:=inttostr(H2) ;
Laenge2.Text:=intttostr(L2) ;

end;


LG Deca

[DeddyH]

DIV funktioniert nur mit ganzen Zahlen, L ist aber vom Typ real.

P.S.: Willkommen in der DP :dp:

[mkinzler]

Warum deklarist du die Variablen als Reals und nicht als Integer?

[himitsu]

Warum sind eigentlich

Delphi-Quellcode:

L,H,L2,H2:real;

global deklariert, obwohl sie nur lokal benötigt werden?

Zitat:

Zitat von mkinzler (Beitrag 1102283)

Warum deklarist du die Variablen als Reals und nicht als Integer?

Vorallem da du ja eigentlich überall Integer haben wolltest.
siehe

Delphi-Quellcode:

L:=strtoint

,

Delphi-Quellcode:

intttostr(L2)

,

Delphi-Quellcode:

div

und vorallem

Zitat:

DIV Problem (Integer?)

Zitat:

[Fehler] Unit1.pas(42): Operator ist auf diesen Operandentyp nicht anwendbar

Operator = dein DIV
Operandentyp = Typ deiner Variable
Also, da kann man aus der Fehlermeldung herauslesen, daß die Variable einen unpassenden Typen besitzt, welcher nicht mit dieser Operation vereinbar ist.
PS: Für Fließkommazahlen nutzt man das

Delphi-Quellcode:

/

als Divisionsoperator.



Man hätte nicht alles fett schreiben müssen und der Code paßt auch ganz gut in ein [code]...[/code] oder sogar ein [delphi]...[/delphi] (der Knopf mit dem roten Helm) rein. :zwinker:
Für Fehlerstellen macht sich z.B. ein Kommentar ala

Delphi-Quellcode:

// <<<<< hier ist es

nicht verkehrt.

[Decadoria]

Aaaaaa Danke schön :D

Ich hatte das problem das am anfang immer die fehlermeldung kam das InttoFloat nicht möglich ist ^-^
Aber habe das problem behoben xD

danke euch xD

und das mit [delphi] und Code und so wusste ich nich - . - sorry

[Deep-Sea]

Zitat:

Zitat von Decadoria (Beitrag 1102311)

[...] die fehlermeldung kam das InttoFloat nicht möglich ist [...]

So eine Funktion gibt es auch nicht. Für was auch?!

[himitsu]

Er/Sie/Es meinte vermutlich StrToFloat und die Zuweisung an einen Integer. :stupid:

[Decadoria]

Also ne xD Das mit Int und Floats hab ich noch nich kapiert xD

Ich krieg dauerhaft Fehlermeldungen - .-

Code:

procedure TForm1.RechneClick(Sender: TObject);

var V,L,H,L2,H2:integer;

begin
L:=strtoint (Laenge.text);
H:=strtoint (Hoehe.text);
V:= L div H;

if V>1.5 then
  begin
  H:= L div 1.5; // [Fehler] Unit1.pas(47): Operator ist auf diesen Operandentyp nicht anwendbar
  end
else
  begin
  L:=1.5*H;
  end
end;

Hoehe2.text:=inttostr(H2) ;
Laenge2.Text:= intToStr(L2) ;

omg - . - Warum ist mein Operator jetz nich anwendbar?? ich hab das doch als Integer deklariert ö.ö

Sorry bin zu blöd für Delphi glaub ich langsam xD

[DeddyH]

Delphi-Quellcode:

Integerergebnis := Integer div Integer;

Alle 3 Teile müssen ganzzahlig sein, sonst kannst Du DIV nicht anwenden. 1,5 geht also nicht.

[Deep-Sea]

Weil 1,5 nun mal keine ganze Zahl ist, der div-Operator aber nur für ganze Zahlen zu nutzen ist. Wenn du durch 1,5 teilen musst, musst du den normalen Teilungsoperator "/" nutzen. Um das Gleitkommaergebnis dieser Operation wieder in eine ganze Zahl zu wandeln hilft z.B. die Funktion Round.

[Decadoria]

[Fehler] Unit1.pas(47): Inkompatible Typen: 'Integer' und 'Extended'
krieg ich wenn ich / nehm statt DIV

[DeddyH]

Wir drehen uns hier im Kreis. Was genau möchtest Du denn erreichen?

[Decadoria]

Ich will das so rechnen wie es da steht >> also teilen ^^

Allerdings soll er am ende nur GANZE zahlen ausgeben^^

Deswegen dachte ich an INT und DIV ^^ etc - . - xD

[Deep-Sea]

Zitat:

Zitat von Deep-Sea (Beitrag 1102355)

Um das Gleitkommaergebnis dieser Operation wieder in eine ganze Zahl zu wandeln hilft z.B. die Funktion Round.

Wenn du eine Zahl mit / teilst, kommt nun mal eine Gleitkommazahl raus. Diese kann man nicht ohne weiteres einer ganzen Zahl zuweisen.
Also entweder du nutzt eine Funktion wie Round, wie ich ja schon sagte (auch wenn's scheinbar keiner gelesen hat :roll:) oder du rechnest komplett mit Gleitkommazahlen und gibst das Ergebnis nicht mit FloatToStr sondern mit Format (o.ä.) aus. Dort kannst du dann immer noch bestimmen, wie viele Nachkommastellen du anzeigen willst.

[DeddyH]

Genau, durchgängig mit Fließkommazahlen rechnen und nur die Ausgabe auf ganze Zahlen beschränken.

[Decadoria]

hmm ich versuchs mal xD

ich kenn Round nich :D

[DeddyH]

Round

[Deep-Sea]

Zitat:

Zitat von Decadoria (Beitrag 1102369)

ich kenn Round nich :D

1. Der Name ist ja auch so kompliziert gewählt, dass man sich nichts drunter vorstellen kann, gell?
2. Eine Hilfe hat Delphi ja auch nicht.
3. Soll heißen? Alles was du nicht kennst, willst du auch nicht kennenlernen? Damit wirst du nicht weit kommen :wink:

[Decadoria]

aaaaa xD doch klar will ich das kennenlernen etc ^^ aber ich hatte mich auch ma über round informiert und hat trotzdem nix geklappt ^^ deswegen bin ich auf DIV gegangen was auch nich ging und dann war ich planlos xD

[DeddyH]

Die Datentypen müssen schon passen, da ist Delphi sehr pingelig. Übrigens würde ich es begrüßen, wenn Du in angemessenem Deutsch posten würdest. Nichts gegen einen gelegentlichen Smiley, aber bitte in überschaubarer Anzahl, wir sind ja nicht im Chat hier.

[himitsu]

Wobei man auch nichtganzzahlige Divisionen bei DIV verwenden kann ... und zwar dann, wenn man die Divisor und Dividend auf ganzahlige Werte erweitert. :stupid:

Delphi-Quellcode:

x := y / 1.5;  // float

x := Trunc(y / 1.5);  // integer (abgerundet)
x := Round(y / 1.5);  // integer (gerundet)

x := y * 2 div 3;  // integer (abgerundet)
x := (y * 2 + 2{*1}) div 3;  // integer (aufgerundet)
x := (y * 2 + 1{*2}) div 3;  // integer (nahezu gerundet)

*1 = 3 - 1 = Divisor - 1 = höchster Wert eines Divisionsergebnisses
*2 = 3 / 2 = Divisor / 2 = Hälfte des Divisors

[Deep-Sea]

Zitat:

Zitat von himitsu (Beitrag 1102382)

Wobei man auch nichtganzzahlige Divisionen bei DIV verwenden kann ... und zwar dann, wenn man die Divisor und Dividend auf ganzahlige Werte erweitert. :stupid:

OMG! Also in Mikrocontrollern ist das ja ok - ohne FPU ist das sonst oft kontraproduktiv. Aber in einem PC lohnt sich dieser Umweg imho nicht wirklich.

Fehlen in deiner schönen Auflistung nicht auch noch Floor und Ceil als grundlegende Funktionen zu dem Thema? :P

[DeddyH]

Habt Ihr noch mehr zur Verwirrung des TE beizutragen? :tongue: