Fehlermeldung:Inkompatible Typen:'Integer'und'Extended' ????

[Hans33]

Hallo

Ich vestehe nicht warum bei mir eine Fehlermeldung bei diesem Code kommt:

Delphi-Quellcode:

var x,y,c,m:Integer;
y:=m/(x+(270-(2*x)));

Fehlermeldung:

Zitat:

[Pascal Fehler] Unit1.pas(65): E2010 Inkompatible Typen: 'Integer' und 'Extended'

Danke für Hilfe

[mkinzler]

Beim Dividieren könnten Nachkommastellen entstehen. Deshalb als Ergebnis ein Float, Runden/Anschneiden oder ein DIV statt /

[DeddyH]

Integer-Division geht mit div statt /.

[edit] Schon wieder dieser Markus *grmpf* [/edit]

[juergen]

Hallo Hans33,

du vernwendest bei Integer "/". Das geht nicht.
Entweder du verwendest div evtl. in Kombination mit mod oder du musst deinen Datentyp ändern (anstelle Integer dann z.B. Extended)

Edit: roter Kasten, viiiel zu langsam....

[Hans33]

Das Problem ist nur folgendes: Ich muss auch durch Null teilen

Delphi-Quellcode:

for x := 1 to 270 do
    begin
         y:=m/(x+(270-(2*x)));
         Paintbox1.Canvas.Pixels[x,y]:=clBlue;
    end;

Mit div statt / kommt: Dividieren durch Null nicht möglich

[Hans33]

mit y:real; klappt es nicht zu zeichnen, denn dazu brauch ich nämlich Integerwerte

[haentschman]

Zitat:

Mit div statt / kommt: Dividieren durch Null nicht möglich

...das ist grundsätzlich nicht möglich.
Diesen Fall mußt du vorher abfangen und entsprechend reagieren.

[DeddyH]

Durch 0 kannst Du nicht teilen, egal ob ganze oder Fließkommazahl. Du kannst statt div zu verwenden aber auch anders vorgehen:

Delphi-Quellcode:

for x := 1 to 270 do
    begin
         y:=round(m/(x+(270-(2*x)))); // x und y sind integer
         Paintbox1.Canvas.Pixels[x,y]:=clBlue;
    end;

[Hans33]

hab jetzt halt

Delphi-Quellcode:

for x := 1 to 270 do
    begin
         y:=round((x+(270-(2*x)))/m);
         Paintbox1.Canvas.Pixels[x,y]:=clBlue;
    end;

[Zipp]

Zitat von Hans33:

Das Problem ist nur folgendes: Ich muss auch durch Null teilen

Delphi-Quellcode:

for x := 1 to 270 do
    begin
         y:=m/(x+(270-(2*x)));
         Paintbox1.Canvas.Pixels[x,y]:=clBlue;
    end;

Mit div statt / kommt: Dividieren durch Null nicht möglich

Wenn man

x+(270-(2*x))

umformt, dann erhält man

270-x

Da die Schleife bis 270 geht ist klar, dass beim letzten Durchlauf x=270 ist und damit der Nenner 0 wird.