Ich habe jetzt diese Vorschläge umgesetzt, dann werden aus den 2 plötzlich 5 Fehler
Quelltext:
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(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.
Ps:ich will hier níemanden verarschen, sóndern endlich das Programm fertigmachen
Sonst täte ich ja nicht um Hilfe bitten
PPS: Fehler sind in 26,24 und 42,24 und 43,24 und 52 und 0.
26,24: Error: identifier not found "format"
42,24: Error: Incompatible types: got "Extended" expected "longInt"
43,24: Error: identifier not found "format"
50: Fatal: There were 3 errors compiling module, stopping
0: Fatal: Compilation aborted