Cteni ze souboru bez udani typu – Pascal – Fórum – Programujte.com

 Je dan soubor bez udani typu, v nemz jsou ulozeny zaznamy o cerpani paliva nakladniho vozidla (datum 8bytove cislo, mnozstvi realne cislo, retezec zakonceny bytem s hodnotou nula udavajici adresu cerpaci stanice). Vlozte tyto udaje do pole zaznamu a pole vypiste.

Prosim jak prectu pomoci Blockread ten soubor ? Kdyby to obsahovalo pouze retezce vim dela se to po znacich. Jak to mam udelat zde prosim o radu. Soubor mam vytvoreny.

type
  zaznam = record
    datum: array[1..8] of byte;
    mnozstvi: real;
    adresa: string;
  end;

var
  // a seradim to podle mnozstvi // pomoci bin. strom // bubble //
  f: file;
  data1, data2, data3 : zaznam;
  poledat : array[1..3] of zaznam;
  i: byte;

begin
Assign(f, 'cerpani');
Rewrite(f, 1);

data1.datum[1]:=1;data1.datum[2]:=1;data1.datum[3]:=1;data1.datum[4]:=0;
data1.datum[5]:=2;data1.datum[6]:=0;data1.datum[7]:=1;data1.datum[8]:=4;
data1.mnozstvi:=5.4;
data1.adresa:='Brno';   
Blockwrite(f,data1.datum, sizeof(data1.datum));
Blockwrite(f,data1.mnozstvi, sizeof(data1.mnozstvi));
Blockwrite(f, data1.adresa[1], length(data1.adresa));
i:=0;
Blockwrite(f, i, 1);

data2.datum[1]:=1;data2.datum[2]:=5;data2.datum[3]:=1;data2.datum[4]:=0;
data2.datum[5]:=2;data2.datum[6]:=0;data2.datum[7]:=1;data2.datum[8]:=4;
data2.mnozstvi:=3.1;
data2.adresa:='Ostrava';   
Blockwrite(f, data2.datum, sizeof(data2.datum));
Blockwrite(f, data2.mnozstvi, sizeof(data2.mnozstvi));
Blockwrite(f, data2.adresa[1], length(data2.adresa));
i:=0;
Blockwrite(f, i, 1);

data3.datum[1]:=1;data3.datum[2]:=4;data3.datum[3]:=1; data3.datum[4]:=0;
data3.datum[5]:=2;data3.datum[6]:=0;data3.datum[7]:=1;data3.datum[8]:=4;
data3.mnozstvi:=7.8;
data3.adresa:='Praha';      
Blockwrite(f, data3.datum, sizeof(data3.datum));
Blockwrite(f, data3.mnozstvi, sizeof(data3.mnozstvi));
Blockwrite(f, data3.adresa[1], length(data3.adresa));
i:=0;
Blockwrite(f,i,1);
Close(f);

Assign(f, 'cerpani');
Reset(f, 1);
                   


Close(f);
end.

Blockread se používá stejně jako blockwrite.

Jestli ti jde o ty stringy, tak je jasně uvedeno, že jsou v souboru ukončeny nulovým bytem, takže budeš číst byty, dokud nenaraziš na ten ukončovací nulový.

Mne jde prave o ty ostatni real a byte string s nulou vim 

Blockread se používá stejně jako blockwrite.

Prosim jak bych vypsala prvni datum hodnoty real na na vystup ? 

Blockread(f, data1.datum, sizeof(data1.datum));

write(data1.datum); 

Nefunguje

#5 Danielle
Koukám, že makáš na více věcech najednou...

Jak nefunguje? To snad ani nemůže fungovat, to nejde ani přeložit... Pascal nikdy neuměl vypisovat příkazem write celé pole. Tak to vypiš hezky cyklem jedno číslo za druhým...

datum: array[1..8] of byte;
 

Diky moc toto bylo v pohode jeste jsem si udelala razeni bubble a bin. stromem.