Patogus duomenų nuskaitymas (FPS)

Taigi reikia nuskaityt duomenis iš failo, kurie yra tokiu formatu:

Petras 5 4 3 8 4 2

Kadangi pirmas yra stringas, tai neina su Read() patogiai (arba nemoku). Gal kas žino, kaip patogiau, negu su ReadLn()+Pos()+Copy()+Delete() ?

Taigi reikia nuskaityt duomenis iš failo, kurie yra tokiu formatu:

Petras 5 4 3 8 4 2

 

Kadangi pirmas yra stringas, tai neina su Read() patogiai (arba nemoku). Gal kas žino, kaip patogiau, negu su ReadLn()+Pos()+Copy()+Delete() ?

siūlau viršuj apsirašyti kokį nors vardą ir skirt jam tam tikrą vietų skaičių.

vardas: String[10]

balas: integer;

tuomet PETRAS_-_-5 4 3 8 2 (brūkšniais pažymėti tarpai). T.y. faile būtinai turėsi išskirti 10 simbolių vardui, o po to galėsi skaityti pažymius.

Read (vardas, balas); // nuskaitys Petras 5

Tikiuosi aiškiau bent kiek

Hm, nebloga mintis, bet duomenų failai jau pateikti (egzas), tai gan komplikuotai gautųs čia manau...

program KaipNuskaityti;

var
   sk:array[1..6] of byte;
   vardas:string[6];

procedure Nuskaityti();
var i:integer;
   D:Text;
begin
assign(D, 'DuomenuFailas.txt'); reset(D);
read(D, vardas);
for i:=1 to 6 do
   read(sk[i]);
close(D);
end;

BEGIN
Nuskaityti();
END.

Hm, nebloga mintis, bet duomenų failai jau pateikti (egzas), tai gan komplikuotai gautųs čia manau...

Tai egzui taip ir reikia kaip sako.