Algorytm wypisujaca najwiekszą wartość z kazdego wiersza pliku

0

W każdym wierszu pliku tekstowego (dane.txt) umieszczone jest po kilka liczb rzeczywistych, napisz program który utworzy plik tekstowy wynik.txt, zawierający w każdym wierszu jedną liczbę będącą liczbą największą spośród liczb odpowiedniego wiersza pliku dane.txt, np :

dane.txt              wynik.txt
1 5 -6 9              9
5 2 8 6 9 65 4 4      65
-5                    -5
0

Jak dobrze pamiętam, możesz to wykonać w poniższy sposób:

var
  LInput, LOutput: TextFile;
  LNumber, LHighest: Integer;
begin
  AssignFile(LInput, 'dane.txt');
  AssignFile(LOutput, 'wynik.txt');
  try
    Reset(LInput);
    ReWrite(LOutput);

    while not EoF(LInput) do
    begin
      LHighest := Low(Integer);

      while not EoLn(LInput) do
      begin
        Read(LInput, LNumber);

        if LNumber > LHighest then
          LHighest := LNumber;
      end;

      WriteLn(LOutput, LHighest);
    end;
  finally
    CloseFile(LInput);
    CloseFile(LOutput);
  end;
end.

Ale nie testowałem, więc mogę się mylić.

1 użytkowników online, w tym zalogowanych: 0, gości: 1