Hilfe bei Klausuraufgaben

[jarturogt]

ermittle ich denn die n-zeilen mittels einer repeat-until-schleife? der erste schritt soll ja sein, alles bis zum eof(f) auszulesen...

[mkinzler]

Delphi-Quellcode:

while not eof(f) do
begin
    inc(n);
    Summe := Summe + Wert;
    ...
end;

[jarturogt]

wäre der beginn so richtig:

button1.click
begin
assignfile(f,'datei.txt');
reset(f)
while not eof(f) do
begin
inc(n);
summe := summe + wert;

[mkinzler]

Du solltest natürlich den Wert auch aus der Datei lesen

[Der.Kaktus]

Zitat von jarturogt:

wäre der beginn so richtig:

Delphi-Quellcode:

button1.click
begin
   summe:=0; //eingefuegt
   assignfile(f,'datei.txt');
   {$I+} //eingefuegt
   reset(f)
   {$I-}//eingefuegt
   while not eof(f) do
   begin
      read(f,s); readln(f); //eingefuegt
      If length(s) <>0 then 
      begin 
        inc(n); //korrigiert
        summe := summe + wert;
      end;
   end;
end; //eingefuegt

versuch das mal als Ansatz

[mkinzler]

Zitat:

versuch das mal als Ansatz Wink

Und das ohne selber überlegen zu müssen.

[jarturogt]

vielen dank schonmal.... ihr habt gut reden, arbeitet wahrscheinlich jeden tag mit delphi und könnt das gut

wieso aber denn real(f,s) und dann nochmal readln(s)?

zudem irritiert mich die variable "wert", wofür soll die stehen?

[xxl1]

wert ist natürlich der "wert" den du aus der zeile der datei ausgelesen hast!

[Der.Kaktus]

Zitat von jarturogt:

vielen dank schonmal.... ihr habt gut reden, arbeitet wahrscheinlich jeden tag mit delphi und könnt das gut

wieso aber denn real(f,s) und dann nochmal readln(s)?

zudem irritiert mich die variable "wert", wofür soll die stehen?

read liest Zeile bis Zeilenende(Text vor $0D0A)..readln(f) liest das ($0D0A) nur ein..das EOF erfolg"t" erst nach!!! dem einlesen des ($0D0A)

[mkinzler]

ReadLn() macht beides