Die Consolenanwendung klappt leider bei mir nicht ganz und zwar bekomme ich den bereich
(*Ausgabe der Steigungen der zwei Funktionen *)
nicht's in er Console angegeben !?
achso und es stüzt jedesmal ab, wenn ich komma zahlen in die Anwendung schreibe !? . normal ^^ ?! oder typisch WINDOFF XP .
Delphi-Quellcode:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
x1,x2,x3,x4: integer;
y1,y2,y3,y4: integer;
mA,bA : real;
mB,bB : real;
XAB: real;
YAB: real;
begin
(* Anganben von Informationen *)
writeln('The cut Point calculator');
writeln('Please enter X & Y coordinations');
writeln;
(*Entering the coordinations *)
write ('ENTER X1: '); readln(x1);
write ('ENTER Y1: '); readln(y1);
write ('ENTER X2: '); readln(x2);
write ('ENTER Y2: '); readln(y2);
write ('ENTER X3: '); readln(x3);
write ('ENTER Y3: '); readln(y3);
write ('ENTER X4: '); readln(x4);
write ('ENTER Y4: '); readln(y4);
writeln;
(* mathematical analysis *)
(*Berechnung von mA und mB*)
mA := ( y2 - y1 ) div (x2 - x1);
mB := ( y4 - y3 ) div (x4 - x3);
(*Berechnung von bA und bB*)
bA := ( y1 - ( y2 - y1 div x2 - x1) * x1 );
bB := ( y3 - ( y4 - y3 div x4 - x3) * x3 );
(*BERECHNUNG VON XAB und YAB *)
XAB := (bB - bA) / (mA - mB);
YAB := (mA * (bB - bA) / (mA - mB) + bA);
(*Ausgabe der Steigungen der zwei Funktionen *)
writeln(' Die erste Funktion hat die Steigung f(x)',mA:8:2,' x + ',bA:8:2,');
writeln(' Die zweite Funktion hat die Steigung f(x)',mB:8:2,' x + ',bB:8:2,');
(*Ausgabe von XAB und YAB *)
writeln(' Der SChnittpunkt liegt bei(',XAB:8:2,'/',YAB:8:2,')des Koordinatenkreuz');
readln;
end.