[newbie] Einfache Kylix/Delphi-Anwedung - läuft aber nicht so richtig ;)

29 Dec 2003

      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*) 

------------------

[newbie] Einfache Kylix/Delphi-Anwedung - läuft aber nicht so richtig ;)

patrick dahl