Pascal-problém s FILE

mmarekk11 · Napísal **mmarekk11**: 10.01.2008 15:44

Dajme tomu že zadanie príkladu znie: Zostav prog. na načítanie čísiel zo súboru st.in a ich vypísanie v programe.
Tak som urobil toto:

Kód:

program postupnosti;
uses crt;
var i:byte;
    f:text;
    A:array[1..500] of byte;
BEGIN
 assign(f,'st.in');
 reset(f);
 clrscr;
 i:=1;
 write('Cisla zo suboru su: ');
 while not eof(f) do begin
                            read(f,A[i]);
                            write(A[i]);
                            write(' ');
                            inc(i);
                            end;
close(f);
readln;
end.

Program ide v pohode pokial f deklarujem ako text.Ale ked dam f:file of byte tak mi vypíše viac a iné čísla ako mam v súbore.A čísla v súbore som mal od 1-70.

programator · Napísal **programator**: 10.01.2008 22:05

Zistil som preco je to tak... Subor typu file of byte musi mat presne stanovenu formu, nesmu sa medzi cislami nachadzat medzery.
Napr. obsah suboru obsahujuci cisla : (10,20,30,40,50) je : "(2"
Zistil som to tak, ze som pomocou pascalu vytvoril subor a zapisal don hodnoty.
Cize ak maju cisla v tvojom vstupnom subore formu napr. "10 20 30 40 50", dojde k nespravnemu precitaniu hodnot. Preto odporucam pouzit subor typu text, alebo vstupny subor vytvorit pomocou dalsieho programu a pouzit subor typu byte.

snake2 · Napísal **snake2**: 10.01.2008 22:08

nezda sa mi toto :

Kód:

A:array[1..500] of byte;

pokial sa nemylim , tak byte ma rozsah 0..255

mmarekk11 · Napísal autor témy **mmarekk11**: 10.01.2008 23:06

2 Snake2: To je jedno,aj ked to zmením na 100 ,tak to nepomôže.
Asi to bude tak ako vraví programator,skúšal som vytvoriť súbor a naozaj tam napísalo blbosti a nie 10,20 ...

p360t · Napísal **p360t**: 11.01.2008 10:41

snake2 píše:

nezda sa mi toto :

Kód:

A:array[1..500] of byte;

pokial sa nemylim , tak byte ma rozsah 0..255

To je úplne v poriadku, pretože interval 1..500 je len veľkosť toho poľa (počet prvkov). Tj. je to pole s indexami 1 až 500 ktorého každý prvok je typu Byte (teda 1..255).

snake2 · Napísal **snake2**: 11.01.2008 11:13

heh, dlho som s pascalom nerobil ,ale spomenul som si na fajnu procedurku val(retazec,cislo,chyba); ktora ti z retazca spravi cislo, ak pri konvertovani nastane chyba , tak do code sa ulozi pozicia znaku , ktory sa neda koncertovat

neznamy · Napísal **neznamy**: 11.01.2008 11:36

hmmm no skus este nieco taketo mne to ide v pohode... zadeklaruj f ako file of byte.. a potom namiesto write(a[i]); napis write(char(a[i]),' '); .... inak neviem aku mam verziu pascalu a ak sa mam priznat tak neviem ci je to to co chces

snake2 · Napísal **snake2**: 11.01.2008 15:05

neznamy píše:

.. a potom namiesto write(a[i]); napis write(char(a[i]),' '); ....

urcite nie !! vypise uplnu chujovinu , toto nema s ASCII nic spolocne

neznamy · Napísal **neznamy**: 11.01.2008 16:44

Kód:

program postupnosti;
uses crt;
var i: Byte;
     f: file of Byte;
     a:array [1..500] of Byte;
begin
  Assign(f, 'st.in');
  reset(f);
  clrscr;
  i:=1;
  write('Cisla zo suboru su: ');
  while not eof(f) do begin
                             read(f, a[i]);
                             write(char(a[i]),' ');
                             inc(i);
  end;
  close(f);
  readkey;
end. 

toto je moj zdrojovy subor... ak dam do suboru st.in 10,20,30,40,50 tak vystup je Cisla zo suboru su: 1 0 , 2 0 , 3 0 , 4 0 , 5 0 ... mas pravdu vzpise to chujovinu lebo to neberie cislo 10 ako 10 ale ako 1 a 0 .. ale myslim ze na vypis zo suboru je to celkom postacujuce.. dalo by sa to osetrit tak ze ak je ciarka tak da medzeru inak nie.. a nik by si to nevsimol... skus si to dat do pasclau...alebo aspon mi pls napis co ti to vypisalo lebo mne to ide.. mozes aj ss

snake2 · Napísal **snake2**: 12.01.2008 10:57

toto ide, ale s tymi cislami nespravis ziadne operacie , beer to totiz ako retazec :

Kód:

program postupnosti;
uses crt;
var i: Byte;
     f: text;
     a:array [1..100] of string;
begin
  Assign(f,'in.txt');
  reset(f);
  clrscr;
  i:=1;
  write('Cisla zo suboru su: ');

  while not eof(f) do begin
                             read(f,a[i]);
                             write(a[i],' ');
                             inc(i);
                      end;
  close(f);
  readkey;
end.

neznamy · Napísal **neznamy**: 12.01.2008 12:36

no neviem ale on tusim chcel len vypisat tie cisla .. inak dalo by sa aj toto upravit.. pomocou fcie StrToInt ...

snake2 · Napísal **snake2**: 12.01.2008 12:53

neznamy píše:

no neviem ale on tusim chcel len vypisat tie cisla .. inak dalo by sa aj toto upravit.. pomocou fcie StrToInt ...

heh , ta fncia ide len v delphi

programator · Napísal **programator**: 12.01.2008 13:29

Ako som napisal, bud si spravis program, pomocou kt. si vytvoris vstupny subor of byte (pretoze ten ma inu strukturu) a nasledne ho budes v programe definovat ako file of byte a bude sa z neho spravne citat, alebo subor bude typu text a obsah suboru citat pomocou fcie read(x), kde x je typu integer/byte.

neznamy · Napísal **neznamy**: 12.01.2008 13:41

snake2 píše:

heh , ta fncia ide len v delphi

myslim ze s mylis.. http://www.pcforum.sk/strtoint-vt14420.html

to programator.. a co ak mu ten subor vytvoril niekto iny?

snake2 · Napísal **snake2**: 12.01.2008 14:08

nene , nemylim sa , v standardnych knizniciach pascalu nie je .. ak si tu temu pozries dokladnejsie , tak zbadas, ze tu fciu StrToInt si musis zadeklarovat pomocou Val

neznamy · Napísal **neznamy**: 12.01.2008 14:20

snake2: ja som nepovedal ze je v standarde.. ja som len povedal ze ak by nieco s tymi cislicami zo suboru chcel robit tak by to mohol previest cez tuto fciu.. ty si povedal ze ta funkcia ide LEN v delphi co nie je pravda.. ale ok necchem sa tu teraz hadat.. dufam ze sa v tom aspon trochu on vyzna a niektore z tych rieseni co tu boli sa mu hodilo

programator · Napísal **programator**: 12.01.2008 14:34

neznamy píše:

to programator.. a co ak mu ten subor vytvoril niekto iny?

V tom pripade musi byt znama struktura suboru a podla toho sa zariadit...

mmarekk11 · Napísal autor témy **mmarekk11**: 12.01.2008 15:57

neznamy píše:

Kód:

program postupnosti;
uses crt;
var i: Byte;
     f: file of Byte;
     a:array [1..500] of Byte;
begin
  Assign(f, 'st.in');
  reset(f);
  clrscr;
  i:=1;
  write('Cisla zo suboru su: ');
  while not eof(f) do begin
                             read(f, a[i]);
                             write(char(a[i]),' ');
                             inc(i);
  end;
  close(f);
  readkey;
end. 

toto je moj zdrojovy subor... ak dam do suboru st.in 10,20,30,40,50 tak vystup je Cisla zo suboru su: 1 0 , 2 0 , 3 0 , 4 0 , 5 0 ... mas pravdu vzpise to chujovinu lebo to neberie cislo 10 ako 10 ale ako 1 a 0 .. ale myslim ze na vypis zo suboru je to celkom postacujuce.. dalo by sa to osetrit tak ze ak je ciarka tak da medzeru inak nie.. a nik by si to nevsimol... skus si to dat do pasclau...alebo aspon mi pls napis co ti to vypisalo lebo mne to ide.. mozes aj ss

Ano vypísalo mi to tak isto ako tebe

hawe · Napísal **hawe**: 14.01.2008 12:59

Chcelo by to najprv napisat ako su tie cisla ulozene v subore, ci je medzi nimi medzera, ciarka,...
Ak vsak to nie je presne urcene, citaj postupne znaky a kontroluj ci znak nie je cislo, ak je precitany znak cislo, vrat ho do bufferu a precitaj ho klasicky ako cislo.
Prikazy ti vsak nepoviem, lebo pascal som uz dlhsiu chvilu nevidel:)

Pascal-problém s FILE

Podobné témy