Problém se soubory
-
- 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
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;
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;
Re: Problém se soubory
Predpokladam, ze cil1,cil2,start1,start2 a s[] su globalneLuKu 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;
Procedure seekeof treba zadat parameter, koniec ktoreho suboru kontrolujes, teda seekeof(vstup).
- Isidor
- 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
Hmm.....a neslo by to skor s eof(vstup); ?Grafik píše:Predpokladam, ze cil1,cil2,start1,start2 a s[] su globalneLuKu píše: while not seekeof do
begin
readln(Vstup,i1,i2);
S[i1,i2]:=0;
end;
Procedure seekeof treba zadat parameter, koniec ktoreho suboru kontrolujes, teda seekeof(vstup).
Inteligentních lidí je menšina. Demokracie je vláda většiny.
-
- 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
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í...Grafik píše:Predpokladam, ze cil1,cil2,start1,start2 a s[] su globalneLuKu 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;
Procedure seekeof treba zadat parameter, koniec ktoreho suboru kontrolujes, teda seekeof(vstup).
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.LuKu píše:Můžu se zeptat, co je to za šifru? Jinak zdá se, že jsi bojoval úspěšně, tak gratuluju.
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.
- Necroman
- Supermatfyz(ák|ačka)
- Příspěvky: 459
- Registrován: 20. 1. 2005 19:46
- Typ studia: Informatika Mgr.
- Login do SIS: suchm4am
- Bydliště: Louny / kolej Jednota, Praha
- Kontaktovat uživatele:
Nesprávný název šifry
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.pdfAnonymous 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.
WANTED:
Dead or Alive
^-^
( ^ )
Schroedinger's Cat
Dead or Alive
^-^
( ^ )
Schroedinger's Cat