patrick dahl wrote:
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.
Ersetzmal die Writln-Zeile durch eine von diesen: writeln(format('Ergebnis: %.4f Grad (aber nicht Celsius*g*)',[winkel])); writeln(format('Ergebnis: %g Grad (aber nicht Celsius*g*)',[winkel])); (es sind nur 2 Zeilen wg. Mailumbruch) hth cu Gerald