[Pascal] Error 100 - Disk Read Error

[nguyentrung0904]

uses crt;
Var
   f:file of integer;
   k:integer;
Begin
     ClrScr;
     Assign(f,'ten.inp');
     Reset(f);
     While NOT EOF(f) do
           begin
                Read(f,k);
                write(k,' ');
           end;
     Close(f);
readln;
end.

Một chương trình được viết đơn giản như trên, ko biết tại sao mà mỗi lần Chạy chương trình là Pascal 7.0 lại thông báo rằng Bị lỗi 100 .

Anh em có cách nào để Fix nó ko ạh...

 

[Constant]

__ Lâu quá mình không xài tới pascal nên ko biết trả lời có đúng ko.

__ Bạn sử dụng file thì phải khai báo file đó chứ, nên bạn coi lại xem nhé. Mình cũng đã type đoạn đó vào nhưng bị error - division by zero

 

[nguyentrung0904]

Lỗi 200 của Pascal là do chưa fix lỗi của file turbo.tpl của Pascal.

Dù sao cũng rất cám ơn anh đã giúp...

 

[korangar]

100. Disk read error: Lỗi đọc đĩa. Xuất hiện khi gọi READ từ tệp định kiểu để đọc khi tệp đã được duyệt hết.
100 Disk read error
An error occurred when reading from disk. Typically when you try to read past the end of a �le.

Đây là nội dung của lỗi. Lâu không dùng Pascal nên cũng không nhớ rõ nữa. Có lẽ nên đặt path đầy đủ của file lúc khai báo, nếu không thì phải đặt file vào trong thư mục bin của pascal.

 

[kaizer132]

Em nhớ không nhầm thì là . Option->Directionary-> Chon đường dẫn của nó đến ở chứa Pascal