Odczyt z pliku i dynamiczny przydział danych

0

Witam wszystkich,
Bardzo proszę o pomoc w rozwiązaniu mojego problemu, jak zrobić coś takiego:

Mam plik tekstowy, w którym są zapisywane dane w takiej postaci:

1, 34
2, 56
3, 23
4, 42
5, 33
6, 43
7, 53
8, 66
9, 46
10, 75

itd. (może być nawet 100.000 linii)

Teraz ten plik z danymi, muszę jakoś podzielić na serie danych, na których wykonam operację matematyczną. Serie wyglądają następująco:

Seria pierwsza danych to pobranie danych z rekordu 1, 3 oraz 5 i przypisanie ich do zmiennych, czyli:

A := 34;
B := 23;
C := 33;

Seria druga danych to pobranie danych z rekordu 2, 4 oraz 6 i przypisanie ich do zmiennych, czyli:

A := 56;
B := 42;
C := 43;

Seria trzecia danych to pobranie danych z rekordu 3, 5 oraz 7 i przypisanie ich do zmiennych, czyli:

A := 56;
B := 33;
C := 53;

itd aż do samego końca pliku. W tym przypadku będzie sześć serii a ostatnia będzie taka:

Seria szósta danych to pobranie danych z rekordu 6, 8 oraz 10 i przypisanie ich do zmiennych, czyli:

A := 43;
B := 66;
C := 75;

No i teraz pętla, która powinna wykonywać obliczenia powinna wyglądać jakoś tak:

Rozpocznij pętlę:

pobierz Serię 1 : A,B,C i zsumuj wartości: X := A+B+C; Wartość X wrzuć do Memo.
pobierz Serię 2 : A,B,C i zsumuj wartości: X := A+B+C; Wartość X wrzuć do Memo.
pobierz Serię 3 : A,B,C i zsumuj wartości: X := A+B+C; Wartość X wrzuć do Memo.
pobierz Serię 4 : A,B,C i zsumuj wartości: X := A+B+C; Wartość X wrzuć do Memo.
pobierz Serię 5 : A,B,C i zsumuj wartości: X := A+B+C; Wartość X wrzuć do Memo.
pobierz Serię 6 : A,B,C i zsumuj wartości: X := A+B+C; Wartość X wrzuć do Memo.

Zakończ pętlę;
Koniec;

Zrobiłem konkretny algorytm do przeliczania potrzebnych mi rzeczy, ale zupłnie nie wiem, jak rozwiązać opisany powyżej problem,

Za pomoc serdeczne dzięki!

Baranek, Świąteczny.

0

Cześć, ponawiam prośbę o pomoc.
dzięki

0

Panowie, tracę nadziej i stoję w martwym punkcie... :-(

0

Hej Baranku ;)
zakładam że umiesz otworzyć plik i czytać kolejne linie w pliku
http://4programmers.net/Delphi/Pliki/Operacje
Poniżej dam Ci algorytm na problem, jeśli nie dasz sobie rady przełożyć tego na delphi to daj znać :)
Zaczynamy:

  1. otwierasz plik (FileOpen)
  2. jeśli nie ma końca pliku (if not EOF then) czytasz linię (ReadLn) i przypisujesz do p1
  3. jeśli nie ma końca pliku (if not EOF then) czytasz linię i przypisujesz do p2
  4. jeśli nie ma końca pliku (if not EOF then) czytasz linię i przypisujesz do p3
  5. jeśli nie ma końca pliku (if not EOF then) czytasz linię i przypisujesz do p4
  6. jeśli nie ma końca pliku (if not EOF then) czytasz linię i przypisujesz do p5
    // można to zrobić w pętli i wczytane linie wpisać w tablicę. Mamy teraz pięć kolejnych (od 1 do 5)wartości z pliku
  7. przypisz p1 do zmiennej A
  8. przypisz p3 do zmiennej B
  9. przypisz p5 do zmiennej C
  10. wykonaj obliczenie i wyświetl w memo
  11. teraz musimy przesunąć elementy w tablicy czyli:
    p1 := p2
    p2 := p3
    p3 := p4
    p4 := p5
    // zapętlamy się do pkt. 6. Po wykonaniu pkt 6 w tablicy masz wartości z pliku z pozycji od 2 do 6
    i operacje powatarzamy aż do końca pliku.
  12. Zamykamy plik.

END.

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