Funktion: Soll Steigungs-Winkel einer Geraden berechnen. (Hoffe mal, die Formel stimmt so ;) ) Problem: Das Ergebnis(letzte Zeile der Mail). Welchen Variabelen-Typ muss ich denn nehmen, um ein normales, numerisches Ergebnis zu bekommen? (z.b. 20.Grad) Wenn ich für x,y.. und winkel 'integer' nehme, sagt mir der Compiler, dass die Typen nicht kombatibel zu 'Extended' seien, 'double' liefert das gleiche Ergebnis wie 'Extended'... ------------------ Code: program swinkel; {$APPTYPE CONSOLE} uses SysUtils, Math; var x1, x2, y1, y2:Extended; winkel:Extended; begin writeln('Berechnung von Steigungswinkel(mit zwei Punkten)'); write('x1 eingeben:'); readln(x1); write('x2 eingeben:'); readln(x2); write('y1 eingeben:'); readln(y1); write('y2 eingeben:'); readln(y2); winkel := ArcTan((y2-y1)/(x2-x1)); writeln('Ergebnis: ',winkel,' Grad (aber nicht Celsius*g*)'); end. ------------------ Konsole (Bsp.): Berechnung von Steigungswinkel(mit zwei Punkten) x1 eingeben:7 x2 eingeben:14 y1 eingeben:2 y2 eingeben:6 Ergebnis: 5.19146114246523E-0001 Grad (aber nicht Celsius*g*) ------------------