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 .

zusammenfalten · markieren

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.

Das letzte ' in den Zeilen 64/65/69 scheint mir zuviel.

Zitat von finalmaster2k:

achso und es stüzt jedesmal ab, wenn ich komma zahlen in die Anwendung schreibe

Überleg mal warum das so sein könnte wenn du die Variablen als Integer deklarierts:

markieren

Delphi-Quellcode:

x1,x2,x3,x4: integer;

y1,y2,y3,y4: integer;

Und was haben deine Programmierfehler mit Windows zu tun?

ahh stimmt nur ganzzahl bei integer

soll ich dann jetzt "Real" nehmen oder "single " ?

ehct keine möglichkeit die Zeilen 64/65/69 aanzugeben ;/ ?.

Zitat:

soll ich dann jetzt "Real" nehmen oder "single " ?

Am Besten Extended

Zitat:

ehct keine möglichkeit die Zeilen 64/65/69 aanzugeben ;/ ?.

writeln(' Die erste Funktion hat die Steigung f(x)',mA:8:2,' x + ',bA:8:2);

danke ^^ komme immer näher zum ziel ..

zusammenfalten · markieren

Delphi-Quellcode:

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.

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 ?..

markieren

Delphi-Quellcode:

if

  mA = mB

  then
  begin
   ..
  end
    else
...