Ich habe paar fragen, ich habe jetzt if then else mit rein gepack und muss bei (* Vergleichgen *)
irgendwie die mA und mB mit boolean versehen, muss ich extra für diese Operation eine Procedure machen ?..
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
x1,x2,x3,x4: real;
y1,y2,y3,y4: real;
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 ) / (x2 - x1);
mB := ( y4 - y3 ) / (x4 - x3);
(*Berechnung von bA und bB*)
bA := ( y1 - ( y2 - y1 / x2 - x1) * x1 );
bB := ( y3 - ( y4 - y3 / x4 - x3) * x3 );
(*BERECHNUNG VON XAB und YAB *)
XAB := (bB - bA) / (mA - mB);
YAB := (mA * (bB - bA) / (mA - mB) + bA);
(*Steigung der 2 Funktionen*)
writeln(’ Die erste Funktion hat die Steigung f(x)’,mA:8:2,’ x + ‚,bA:8:2);
writeln(‘ Die erste Funktion hat die Steigung f(x)’,mB:8:2,’ x + ',bB:8:2);
readln;
(*UNENDLICHE SCHNITpunkte*)
end;
(* Vergleichgen *)
procedure Vergleichen
if
mA := mB ;
then
if
bB := bA;
then
writeln (‚unendliche Schnitpunkte‘);
else
writeln (‚keine Schnitpunkte‘);
else
(*Ausgabe von XAB und YAB *)
writeln(’ Der SChnittpunkt liegt bei(’,XAB:8:2,’/’,YAB:8:2,’)des Koordinatenkreuz’);
readln;
end.