'Integer' and 'Extended' Fehler

  • 'Integer' and 'Extended' Fehler

    Hallo an alle ich bin leider ein anfänger in Delphi und benötige euere Hilfe.

    Ich bin dabei eine Consolen anwendung zu machen die mir die SChnittpunkte von 2 lineare Gleichungen ausrechnet. Ich bin zwar noch nicht fertig aber habe schon paar probleme die mein Programm irgendwie nicht zum laufen bringt :// "?

    Könnt ihr mir helfen ^^ ? !

    Quellcode

    1. program Project2;
    3. {$APPTYPE CONSOLE}
    5. uses
    6. SysUtils;
    8. var
    9. x1,x2,x3,x4: integer;
    11. y1,y2,y3,y4: integer;
    13. mA,bA : integer;
    14. mB,bB : integer;
    16. XAB: integer;
    17. YAB: integer;
    21. begin
    22. (* Anganben von Informationen *)
    24. writeln('The cut Point calculator');
    25. writeln('Please enter X & Y coordinations');
    26. writeln;
    28. (*Entering the coordinations *)
    30. write ('ENTER X1: '); readln(x1);
    31. write ('ENTER Y1: '); readln(y1);
    33. write ('ENTER X2: '); readln(x2);
    34. write ('ENTER Y2: '); readln(y2);
    36. write ('ENTER X3: '); readln(x3);
    37. write ('ENTER Y3: '); readln(y3);
    39. write ('ENTER X4: '); readln(x4);
    40. write ('ENTER Y4: '); readln(y4);
    41. writeln;
    42. (* mathematical analysis *)
    44. (*Berechnung von mA und mB*)
    46. mA := ( y2 - y1 ) / (x2 - x1);
    47. mB := ( y4 - y3 ) / (x4 - x3);
    49. (*Berechnung von bA und bB*)
    51. bA := ( y1 - ( y2 - y1 / x2 - x1) * x1 );
    52. bB := ( y3 - ( y4 - y3 / x4 - x3) * x3 );
    54. (*BERECHNUNG VON XAB und YAB *)
    56. XAB := (bB - bA) / (mA - mB);
    58. YAB := (mA * (bB - bA) / (mA - mB) + bA);
    61. (*Ausgabe von mA/B und bA/B *)
    66. writeln(' Die erste Funktion hat die Steigung y=' ,mA:10:2,'x +',bA:10:2,);
    67. readln;
    76. end.
    Alles anzeigen




    es kommen folgende fehler

    Build
    [Error] Project2.dpr(46): Incompatible types: 'Integer' and 'Extended'
    [Error] Project2.dpr(47): Incompatible types: 'Integer' and 'Extended'
    [Error] Project2.dpr(52): Incompatible types: 'Integer' and 'Extended'
    [Error] Project2.dpr(56): Incompatible types: 'Integer' and 'Extended'
    [Error] Project2.dpr(56): Illegal type in Write/Writeln statement
    [Error] Project2.dpr(56): Illegal type in Write/Writeln statement

  • Soweit ich sehe, benutzt du nur Zahlen?
    Dann nehm doch Real. Ist bei mir so Standard.
    Real nehm ich für Zahlen und Char für Zeichenketten. Dann kann der String auch mal was länger werden =)
    Äußerdem müsstest du die Definition der Variablen mit VAR nicht trennen. Du kannst alle hintereinander schreiben. Immerhin wechselt du ja nicht den Datentyp.

  • Ah danke ^^ !! die Fehler medlung hat sich schon drastisch reduziert :D !!!

    jetzt habe ich noch Folgende fehlermeldungen

    Build
    [Error] Project2.dpr(63): Illegal type in Write/Writeln statement
    [Error] Project2.dpr(63): Illegal type in Write/Writeln statement
    [Error] Project2.dpr(64): Illegal type in Write/Writeln statement
    [Error] Project2.dpr(64): Illegal type in Write/Writeln statement
    [Error] Project2.dpr(65): Missing operator or semicolon
    [Error] Project2.dpr(65): Expression expected but ')' found
    [Error] Project2.dpr(65): Statement expected, but expression of type 'String' found


    Quellcode

    1. program Project2;
    3. {$APPTYPE CONSOLE}
    5. uses
    6. SysUtils;
    8. var
    9. x1,x2,x3,x4: real;
    11. y1,y2,y3,y4: real;
    13. mA,bA : real;
    14. mB,bB : real;
    16. XAB: real;
    17. YAB: real;
    21. begin
    22. (* Anganben von Informationen *)
    24. writeln('The cut Point calculator');
    25. writeln('Please enter X & Y coordinations');
    26. writeln;
    28. (*Entering the coordinations *)
    30. write ('ENTER X1: '); readln(x1);
    31. write ('ENTER Y1: '); readln(y1);
    33. write ('ENTER X2: '); readln(x2);
    34. write ('ENTER Y2: '); readln(y2);
    36. write ('ENTER X3: '); readln(x3);
    37. write ('ENTER Y3: '); readln(y3);
    39. write ('ENTER X4: '); readln(x4);
    40. write ('ENTER Y4: '); readln(y4);
    41. writeln;
    42. (* mathematical analysis *)
    44. (*Berechnung von mA und mB*)
    46. mA := ( y2 - y1 ) / (x2 - x1);
    47. mB := ( y4 - y3 ) / (x4 - x3);
    49. (*Berechnung von bA und bB*)
    51. bA := ( y1 - ( y2 - y1 / x2 - x1) * x1 );
    52. bB := ( y3 - ( y4 - y3 / x4 - x3) * x3 );
    54. (*BERECHNUNG VON XAB und YAB *)
    56. XAB := (bB - bA) / (mA - mB);
    58. YAB := (mA * (bB - bA) / (mA - mB) + bA);
    61. (*Ausgabe von mA/B und bA/B *)
    63. writeln(' Die erste Funktion hat die Steigung y=',mA:10:2,'x +',bA:10:2,);
    64. writeln(' Die erste Funktion hat die Steigung y=' ,mB:10:2,'x +',bB:10:2,);
    65. writeln(' Der SChnittpunkt liegt bei'(,XAB:8:2,'/',YAB:8:2,)'des Koordinatenkreuz');
    66. readln;
    75. end.
    Alles anzeigen

  • Schau mal in deine Zeilen 63 & 64:

    Quellcode

    1. writeln(' Die erste Funktion hat die Steigung y=',mA:10:2,'x +',bA:10:2,);
    2. writeln(' Die erste Funktion hat die Steigung y=' ,mB:10:2,'x +',bB:10:2,);

    Die Kommata vor den ) müssten weg:

    Quellcode

    1. writeln(' Die erste Funktion hat die Steigung y=',mA:10:2,'x +',bA:10:2);
    2. writeln(' Die erste Funktion hat die Steigung y=' ,mB:10:2,'x +',bB:10:2);

  • Das Progrämmchen läuft so weit aber die COnsolenanwendung klappt noch nicht so ganz

    Die ZEILE 65 und 66

    will er in der Consolenanwendung nicht anzeigen !? warum ? ..

    Quellcode

    1. program Project2;
    3. {$APPTYPE CONSOLE}
    5. uses
    6. SysUtils;
    8. var
    9. x1,x2,x3,x4: integer;
    11. y1,y2,y3,y4: integer;
    13. mA,bA : real;
    14. mB,bB : real;
    16. XAB: real;
    17. YAB: real;
    21. begin
    22. (* Anganben von Informationen *)
    24. writeln('The cut Point calculator');
    25. writeln('Please enter X & Y coordinations');
    26. writeln;
    28. (*Entering the coordinations *)
    30. write ('ENTER X1: '); readln(x1);
    31. write ('ENTER Y1: '); readln(y1);
    33. write ('ENTER X2: '); readln(x2);
    34. write ('ENTER Y2: '); readln(y2);
    36. write ('ENTER X3: '); readln(x3);
    37. write ('ENTER Y3: '); readln(y3);
    39. write ('ENTER X4: '); readln(x4);
    40. write ('ENTER Y4: '); readln(y4);
    41. writeln;
    42. (* mathematical analysis *)
    44. (*Berechnung von mA und mB*)
    46. mA := ( y2 - y1 ) div (x2 - x1);
    47. mB := ( y4 - y3 ) div (x4 - x3);
    49. (*Berechnung von bA und bB*)
    51. bA := ( y1 - ( y2 - y1 div x2 - x1) * x1 );
    52. bB := ( y3 - ( y4 - y3 div x4 - x3) * x3 );
    54. (*BERECHNUNG VON XAB und YAB *)
    56. XAB := (bB - bA) / (mA - mB);
    58. YAB := (mA * (bB - bA) / (mA - mB) + bA);
    61. (*Ausgabe der Steigungen der zwei Funktionen *)
    64. writeln(' Die erste Funktion hat die Steigung f(x)',mA:8:2,' x + ',bA:8:2,');
    65. writeln(' Die zweite Funktion hat die Steigung f(x)',mB:8:2,' x + ',bB:8:2,');
    67. (*Ausgabe von XAB und YAB *)
    69. writeln(' Der SChnittpunkt liegt bei(',XAB:8:2,'/',YAB:8:2,')des Koordinatenkreuz');
    71. readln;
    80. end.
    Alles anzeigen