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 :zwinker:

[Der.Kaktus]

Zitat:

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:

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