Turmrechenprogramm

[quendolineDD]

Ja, ansonsten würde es ja nicht gehen

[mkinzler]

Damit hast du bewiesen wie genau du unsere Antworten liest

[FreePascal]

Weil ich den Begriff Fliesskommazahl nicht in meinem Wortschatz hatte1
Gruß Martin

Quellcode:

Delphi-Quellcode:

program turmrechner; 
uses crt; 
var zaehler:integer; 
    ergebnis:longint; 
    zahl:real; 


begin 

              clrscr; 
              writeln('Das hier ist ein Turmrechenprogramm. Bitte geben Sie Ihre Startzahl ein!'); 
              readln(zahl); 
              zahl:=ergebnis; 
              FOR zaehler:=1 TO 9 DO 
              

                 begin 
                 ergebnis:=zahl*zaehler; 
                 writeln(format( '%d X %d = %g', [zahl, zaehler, ergebnis])); 
                 end; 



              FOR zaehler:=9 DOWNTO 1 DO 
                  


                  begin 
                  ergebnis:=zahl/zaehler; 
                  writeln(format( '%d X %d = %g', [zahl, zaehler, ergebnis])); 
                  end; 

      writeln('Ende der Schleife!'); 
      writeln('Zaehlerstand am Ende der Schleife: ',zaehler); 
      readln; 


end.

Noch immer die gleichen 5 Fehler

[mkinzler]

Grundlagen sind auch was für Deppen und alte Säcke

[FreePascal]

Ich sehe meine Fehler nicht, haben Sie eine Ahnung wo sie sein könnten
Gruß, Martin

[quendolineDD]

Ich sagte bereits, das Ergebnis auch ein reeller Datentyp (= real) sein muss.

[mkinzler]

Wenn du endlich verstehen würdest das ein / eine Fliesskommazahl zurückliefert, würdest du den Fehler sehen!!!!!!!!

[FreePascal]

Jetzt steht im debug: got "Real" expected "LongInt"

[FreePascal]

Und wenn Ihr wisst, wie es geht, dass alles geht, dann sagt mir bitte den kompletten Quelltext, aber nicht in kleinen Stückchen, sodass es nur eingefleischte Informatiker verstehen können.
Wenn ich den richtigen Quelltext hätte, dann würde ich für lange Zeit, vlt. für immer, von hier verschwinden.
Danke, MArtin

[mkinzler]

Da du den Typ von Zahl geändert hast musst du den auch im Format anpassen oder wieder zurückändern

writeln(format( '%g X %d = %g', [zahl, zaehler, ergebnis])); Aber jede deiner fragen zeigt ganz deutlich, dass du dir mal die Grundlagen aneignen solltest.