Turmrechenprogramm

[mkinzler]

Poste nocheinmal den aktuellen Quelltext

[Satty67]

Du hast auch zahl:=ergebnis entfernt, wie ich oben vorgeschlagen hab?

[FreePascal]

Ich habe es jetzt entfernt und jetzt läuft das Programm: Allerdings sollte im dritten Schritt ergebnis:=zahl sichergestellt werden, dass das Programm mit dem Ergebnis aus dem vorigen Durchlauf weiterrechnet :!:
WO soll ich dann das ergebnis:=zahl reintun?
Gruß, Martin

[mkinzler]

Am Ende der Schleife, nach der Anzeige

[FreePascal]

Delphi-Quellcode:

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


begin 

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

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



              FOR zaehler:=9 DOWNTO 1 DO 
                  


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

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


end.

´

Wo genau soll ich hier das ergebnis:=zahl einfügen?

[mkinzler]

Delphi-Quellcode:

    
    begin
        ergebnis:=zahl*zaehler;
        writeln(format( '%f X %d = %f', [zahl, zaehler, ergebnis]));
    end;
    zahl := ergebnis;
    FOR zaehler:=9 DOWNTO 1 DO 
    ...