Turmrechenprogramm

[FreePascal]

Bei diesem Programm geht es um Turmrechnen, du weisst schon, Pyramidenrechnen :thumb:
der Quelltext ist jetzt folgender:

Delphi-Quellcode:

program turmrechner; 
uses crt; 
var zaehler:integer; 
    zahl, ergebnis:longint; 
    ergebnis1: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(zahl,'X' ,zaehler, '=',ergebnis);  
                 end; 



              FOR zaehler:=9 DOWNTO 1 DO 
                  


                  begin 
                  ergebnis:=zahl/zaehler; 
                  writeln(zahl,'/' , zaehler, '=',ergebnis);  
                  end; 

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


end.

Das ist jetzt mein Quelltext
Gruß, Martin, der für jede Hilfe sehr dankbar ist.

[fkerber]

Hi!

Und in welcher Zeile tritt der Fehler jetzt auf?
Am besten mal die betroffene Zeile mitsamt der Fehlermeldung mal hier reinkopieren.


Ciao, Frederic

[mkinzler]

Delphi-Quellcode:

Writeln(format( '%d X %d = %g', [zahl, zaehler, ergebnis]));

[quendolineDD]

Die Argumente die an Format übergeben werden, müssen in ein offenes Array. Also

Delphi-Quellcode:

format('%d %d %s', [Wert1, Wert2, Wrt3]);

[FreePascal]

Hi,
bei dem vorhin geschriebenen Programmierung treten die Fehler bei 41,24 und 50,13 auf
Zeile 41:

Delphi-Quellcode:

 ergebnis:=zahl/zaehler;

Zeile 50:

Delphi-Quellcode:

 end.

:gruebel:

PS: Dieses format('%d %d %s', [Wert1, Wert2, Wrt3]); wo soll das hin :?:
Gruß Martin, der für jede Hilfe dankbar ist. :roll:

[mkinzler]

Zitat:

PS: Dieses format('%d %d %s', [Wert1, Wert2, Wrt3]); wo soll das hin Question

In das Writeln()

[quendolineDD]

Das war nur ein Beispiel. Das musst du schon für dich umändern.
Und der Fehler bei Zeile 41 kommt daher, dass du den / Operator nutzt. Das Ergebnis kann eine reelle Zahl sein, jedoch ist Ergbenis als ganzzahliger Typ deklariert. Entweder du nutzt an dieser Stelle div oder änders Ergebnis in einen reellen Datentypen.
Wie gesagt, ich kann es dir nur ans Herz legen, dir die Grundlagen von Delphi anzueignen.

[FreePascal]

Ich programmiere aber in Free Pascal :!:
Gruß, Martin

[mkinzler]

Beides ist (Object-)Pascal.
Zudem wäre es ratsam unsere Vorschläge auch umzusetzen! Sonst könnte es sein, dass sich mancher hier verarscht fühlt!

[Luckie]

Was ist denn jetzt schon wieder Turmrechnen? Meinst du die Türme von Hanoi?