Hallo,
beim vorliegenden Programm möchte ich die eingegebenen Werte (jeder Stunde) addieren. So das ich zum Schluss die Gesamteinnahmen aller Stunden habe. Das habe ich auch schon mit einer zweiten For-to-do Schleife probiert, leider ohne Erfolg. In der Vergangenheit, hatte ich dieses Problem schon einmal gelöst, jedoch finde ich die passende Datei nicht mehr.
Es wäre nett, wenn sich das mal Jemand ansehen könnte.
Ich danke euch bereits im voraus!
Delphi-Quellcode:
program In_Out;
{$APPTYPE CONSOLE}
uses
SysUtils;
var Datei_X:file of real;
Wert,Ergebnis:real;
i:integer;
{------------------------------------------------------------------------------}
procedure Eingabe;
var i:integer;
begin
ASSIGN (Datei_X,'C:\Dokumente und Einstellungen\File.DAT');
REWRITE(Datei_X);
for i:=10 to 19 do
begin
write(' ',i,':00 Uhr! Wie hoch waren die Einnahmen?:');
readln(Wert);
WRITE(Datei_X,Wert);
end;
CLOSE(Datei_X);
writeln;writeln(' ENTER dr',#129,'cken...');
readln;
end;
{------------------------------------------------------------------------------}
procedure Ausgabe;
Begin
for i := 1 to 20 do writeln(' ');
writeln(' Ihre Einnahmen...:');
writeln;
ASSIGN (Datei_X, 'C:\Dokumente und Einstellungen\File.DAT');
{$I-}
RESET(Datei_X);
{$I+}
if IOResult <>0 then
writeln('Datei ist weg')
else begin
While not EoF(Datei_X) do
begin
READ(Datei_X, Wert);
write(' ');writeln(Wert:10:2,' Euro');
for i:=10 to 19 do
Ergebnis:=Wert+1;
end;
writeln;writeln(Ergebnis:10:2);
CLOSE(Datei_X);
writeln;writeln;writeln;writeln(' ENTER dr',#129,'cken...');
readln;
End;end;