PASCAL programozás, beolvasás hogyan?
A 2013 májusi emelt informatika érettségi programozás részéhez van egy txt melynek ez a tartalma:
5 19 Ablak Antal -
1 120 Alma Dalma GYEP
7 162 Bab Zsuzsanna ZEP
2 59 Barack Barna GYEP
6 73 Birs Helga GYEP
1 154 Bors Botond HEP
5 188 Brokkoli Gyula ZEP
6 29 Ceruza Zsombor -
4 143 Fasirt Ferenc HEP
8 157 Gomba Gitta TISZ
3 13 Halmi Helga -
2 66 Hold Ferenc -
7 34 Hurka Herold HEP
5 288 Joghurt Jakab TISZ
4 77 Kajszi Kolos GYEP
2 187 Kapor Karola ZEP
6 13 Karfiol Ede ZEP
6 187 Kefir Ilona TISZ
7 130 Kupa Huba -
8 98 Languszta Auguszta -
1 34 Lila Lilla -
1 56 Medve Rudolf -
5 67 Meggy Csilla GYEP
3 45 Moly Piroska -
4 221 Monitor Tibor -
8 288 Narancs Edmond GYEP
2 220 Oldalas Olga HEP
3 185 Pacal Kata HEP
1 199 Petrezselyem Petra ZEP
8 77 Pokol Vidor -
8 67 Ragu Ida HEP
3 156 Retek Etelka ZEP
7 129 Sajt Hajnalka TISZ
4 38 Simon Simon -
3 87 Szilva Szilvia GYEP
3 187 Tejes Attila TISZ
2 65 Tejfel Edit TISZ
4 39 Uborka Ubul ZEP
6 288 Vadas Marcell HEP
5 68 Vagdalt Edit HEP
Kérdésem hogy/miként tudom úgy beolvasni egy olyan tömbbe ahol a soronkénti 5 adat egy rekordba esik?
Igazából a számokkal nincs gond csak a szövegeket rakja egy rekordba és ez lenne a baj mivel külön kéne.
Valahogy így oldanám meg:
Lenne egy "kepviselo" nevű rekord, és egy "kepviselok" nevű tömb a rekord elemeivel. A beolvasás valahogy így nézne ki: (a képviselők tömböt "k"-nak rövidítem)
i:=0 {tömb első indexe}
while not eof(f) do begin
readln(f,k[i].szam, k[i].szavazat, k[i].vnev, k[i].knev, k[i].part);
inc(i);
end;
Lehet, hogy van benne valami hiba, nem teszteltem.
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!