PHP: 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...
__ 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
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...
Đâ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.
