Bei diesem Programm geht es um Turmrechnen, du weisst schon, Pyramidenrechnen
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.