Problém se soubory

LuKu
Matfyz(ák|ačka) level III
Příspěvky: 117
Registrován: 15. 1. 2005 18:29
Typ studia: Informatika Mgr.

Problém se soubory

Příspěvek od LuKu »

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;
Grafik
Matfyz(ák|ačka) level I
Příspěvky: 10
Registrován: 14. 1. 2005 14:08

Re: Problém se soubory

Příspěvek od Grafik »

LuKu píše: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).
Uživatelský avatar
Isidor
Adoptoval Tutcheka
Adoptoval Tutcheka
Příspěvky: 247
Registrován: 8. 12. 2004 23:22
Typ studia: Informatika Mgr.
Bydliště: mám
Kontaktovat uživatele:

Re: Problém se soubory

Příspěvek od Isidor »

Grafik píše:
LuKu píše: 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); ?
Inteligentních lidí je menšina. Demokracie je vláda většiny.
LuKu
Matfyz(ák|ačka) level III
Příspěvky: 117
Registrován: 15. 1. 2005 18:29
Typ studia: Informatika Mgr.

Re: Problém se soubory

Příspěvek od LuKu »

Grafik píše:
LuKu píše: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í...
Návštěvník

Příspěvek od Návštěvník »

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.
LuKu
Matfyz(ák|ačka) level III
Příspěvky: 117
Registrován: 15. 1. 2005 18:29
Typ studia: Informatika Mgr.

Příspěvek od LuKu »

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

Příspěvek od Návštěvník »

LuKu píše: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.
Uživatelský avatar
Necroman
Supermatfyz(ák|ačka)
Příspěvky: 459
Registrován: 20. 1. 2005 19:46
Typ studia: Informatika Mgr.
Bydliště: Louny / kolej Jednota, Praha
Kontaktovat uživatele:

Nesprávný název šifry

Příspěvek od Necroman »

Anonymous píše: 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
WANTED:
Dead or Alive
^-^
( ^ )
Schroedinger's Cat
Odpovědět

Zpět na „2004“