wczytywanie danych w"parach"

0

jak wczytac dane z pliku tekstowego ktore sa umieszczone w kolumnach (6) a wyglada to mniej wiecej tak:
<13, 14, 15, 82, 46, 24>
<48, 45, 81, 94, 35, 9>
<57, 84, 28, 5, 39, 19>
<64, 36, 79, 14, 30, 32>

z ort! pierwsze 3 cyfry maja byc poddna innym obliczeniom (wyciagnieta srednia z kazdej pary dwoch kolumn np. 13i 48, 57i 64, 14i 45 itd a pozostale 3 z kazdej kolumny maja byc wczytane do macierzy i tez wykonane obliczenia(dokladniej-mnozenie dwoch macierzy)
jak cos takiego zrobic bo sie mecze i nic nie moge.. :(
pozdrawiam i dziekuje

0

może <ort>po prostu</ort> wykorzystaj tablice i do nich wrzuć dane a potem będziesz mogl latwo nimi operowac

0

To nie jest takie trudne, na jakie wyglada.
Na poczatku wczytujesz kazda lini osobno (nie bede tego tu opisywal, bo to troche z proste).
Dalej trzeba by zdeklarowac tablice dynamiczna, np.

var
 t: array of array [0..5] of integer;

Jak moze zauwazyles, jest to tablica dwuwymiarowa.
Teraz przed wcztaniem kazdej lini dodajesz cos takiego:

SetLength(t, Length(t) + 1);

To bedzie powiekszac tablice o 1 dla kazdej lini.
Teraz czas przezucic liczby z odczytanego pliku do tablicy. Zakladam, ze linia jest odcztytana w zmiennej o nazwie "s" typu string.

var
 licznik, l2: byte;
 s2: string;
begin
 Delete(s, 1, 1);
 for licznik := 0 to 5 do
 begin
  l2 := 1;
  s2 := '';
  while (s[l2] <> ',') and (s[l2] <> '>') do
  begin
   s2 := s2 + s[l2];
   l2 := l2 + 1;
  end;
  Delete(s, 1, l2);
  s := Trim(s);
  s2 := Trim(s2);
  t[numerLini, licznik] := StrToInt(s2);
 end;
end;

Powinno dzialac, ale spodziewaj sie bledow, bo pisalem z glowy, nie sprawdzalem czy dziala :>

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