Pomoc vo FREE PASCALE

Proksik · Napísal **Proksik**: 31.10.2007 14:18

neviete ako funguje textovy subor vo free pascale:

Program TEXTOVY SUBOR;

var N, M, P, x, y, z, : longint;
F : text;

begin
assign(F, 'VSTUP.IN');
reset(F);
Readln(F, N, M, P);
for i:= 1 to P do Readln(F, x, y, z);
close(F);
Readln;
end;

- toto je cast programu ale hadze chybu .. DAUKJEM

juho · Napísal **juho**: 31.10.2007 14:26

readln na subor? co si ... asi ne

Kód:

read();

Proksik · Napísal autor témy **Proksik**: 31.10.2007 14:55

No compilovat to ide a exe subor funguje aj s vystupmi, ale aj ked dam len read tak to stale hadze chybu

imcold · Napísal **imcold**: 31.10.2007 15:11

Pomohlo by, keby si sem vložil celý program a presný popis chyby, prípadne aj ukážku vstupu. Ak je to chyba pri behu - nenačítavaš za koniec súboru (kontrola s Eof)? To je jedna bežná chyba, čo ma napadá.

juho píše:

readln na subor? co si ... asi ne

Určite áno.

matwej · Napísal **matwej**: 31.10.2007 16:35

urcite by bolo najlepsie dat cely kod, takto sa to tazko urcuje

Roberbo · Napísal **Roberbo**: 31.10.2007 21:58

Proksik píše:

neviete ako funguje textovy subor vo free pascale:

Program TEXTOVY SUBOR;

var N, M, P, x, y, z, : longint;
F : text;

begin
assign(F, 'VSTUP.IN');
reset(F);
Readln(F, N, M, P);
for i:= 1 to P do Readln(F, x, y, z);
close(F);
Readln;
end;

- toto je cast programu ale hadze chybu .. DAUKJEM

Kód:

Program TEXTOVY_SUBOR;

var i, N, M, P, x, y, z : longint;
F : text;

begin
assign(F, 'VSTUP.IN');
reset(F);
Readln(F, N, M, P);
for i:= 1 to P do Readln(F, x, y, z);
close(F);
Readln;
end.

opraveny je len kod v programe

Pomoc vo FREE PASCALE

Podobné témy