Problém se soubory

Ahoj,
měla bych prosbu: Poprvé zkouším načítat data do programu ze souboru a nějak mi to vůbec nefunguje. Našla by se tu nějaká dobrá duše, která by mi řekla, kde je chyba? Díky moc...

Inkriminovaný kus zdrojáku:
var Vstup:text;
procedure Nacti;
var i1,i2:integer;
begin
assign(Vstup,'C:\Vstup.txt');
reset(Vstup);
readln(Vstup,Start1,Start2);
readln(Vstup,Cil1,Cil2);
while not seekeof do
begin
readln(Vstup,i1,i2);
S[i1,i2]:=0;
end;
close(Vstup);
end;

LuKu wrote:Ahoj,
měla bych prosbu: Poprvé zkouším načítat data do programu ze souboru a nějak mi to vůbec nefunguje. Našla by se tu nějaká dobrá duše, která by mi řekla, kde je chyba? Díky moc...

Inkriminovaný kus zdrojáku:
var Vstup:text;
procedure Nacti;
var i1,i2:integer;
begin
assign(Vstup,'C:\Vstup.txt');
reset(Vstup);
readln(Vstup,Start1,Start2);
readln(Vstup,Cil1,Cil2);
while not seekeof do
begin
readln(Vstup,i1,i2);
S[i1,i2]:=0;
end;
close(Vstup);
end;

Predpokladam, ze cil1,cil2,start1,start2 a s[] su globalne
Procedure seekeof treba zadat parameter, koniec ktoreho suboru kontrolujes, teda seekeof(vstup).

Grafik wrote:

LuKu wrote: while not seekeof do
begin
readln(Vstup,i1,i2);
S[i1,i2]:=0;
end;

Predpokladam, ze cil1,cil2,start1,start2 a s[] su globalne
Procedure seekeof treba zadat parameter, koniec ktoreho suboru kontrolujes, teda seekeof(vstup).

Hmm.....a neslo by to skor s eof(vstup); ?

Grafik wrote:

LuKu wrote:Ahoj,
měla bych prosbu: Poprvé zkouším načítat data do programu ze souboru a nějak mi to vůbec nefunguje. Našla by se tu nějaká dobrá duše, která by mi řekla, kde je chyba? Díky moc...

Inkriminovaný kus zdrojáku:
var Vstup:text;
procedure Nacti;
var i1,i2:integer;
begin
assign(Vstup,'C:\Vstup.txt');
reset(Vstup);
readln(Vstup,Start1,Start2);
readln(Vstup,Cil1,Cil2);
while not seekeof do
begin
readln(Vstup,i1,i2);
S[i1,i2]:=0;
end;
close(Vstup);
end;

Predpokladam, ze cil1,cil2,start1,start2 a s[] su globalne
Procedure seekeof treba zadat parameter, koniec ktoreho suboru kontrolujes, teda seekeof(vstup).

Díky za odpověď, nakonec se mi na to sice dokonce podařilo přijít samotný, ale i tak. Omlouvám se, že tu otravuju s takovou blbostí...

No ujistuju te ze to blbost neni.....na dnesnim zapoctovym testu sem dostal sifru monte christo a algoritmus sem mel za pulhodiny a zbylych dve a pul hodiny sem bojoval se vstupem a vystupem ze souboru...fakt boj :(....jeste ze tam meli vc na tvoreni tech souboru.

Můžu se zeptat, co je to za šifru? Jinak zdá se, že jsi bojoval úspěšně, tak gratuluju.

LuKu wrote:Můžu se zeptat, co je to za šifru? Jinak zdá se, že jsi bojoval úspěšně, tak gratuluju.

No sifra se ma tak, ze mas derovanou matici (jsou v ni diry a a zbytek se jakoby zakreje) a tu prilozis na matici znaku a prectes znaky co jsou videt po radkach. pak otocis o 90stupnu a znova, takhle ctyrikrat.

No a program mel dostat v souboru matici der, zkontrolovat ji.
a pak efektivne kodovat a dekodovat. Jediny co na mym reseni nakonec nechodili byl znaky konce radku.

Anonymous wrote: No sifra se ma tak, ze mas derovanou matici (jsou v ni diry a a zbytek se jakoby zakreje) a tu prilozis na matici znaku a prectes znaky co jsou videt po radkach. pak otocis o 90stupnu a znova, takhle ctyrikrat.

No a program mel dostat v souboru matici der, zkontrolovat ji.
a pak efektivne kodovat a dekodovat. Jediny co na mym reseni nakonec nechodili byl znaky konce radku.

Nechci byt puntíčkář, ale tento šifrovací způsob se jmenuje Fleissnerova otočná mřížka více info je třeba zde: ftp://ftp.decros.cz/pub/Archiv/Publicat ... 20-120.jpg a nebo zde: http://crypto-world.info/casop6/crypto11_04.pdf