Tin học Sửa lỗi viết chương trình

[Phan Minh Quân]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Tại sao khi mình chạy chương trình thì nó lại báo là exitcode = 2 vậy mọi người? Code chi tiết bên dưới:



const
fi_name = 'SUPERPRIME.INP';
fo_name = 'SUPERPRIME.OUT';
var
i,n,demus:LongInt;
fi,fo: text;
begin
assign(fi,fi_name);
reset(fi);
read(fi,n);
close(fi);

assign(fo,fo_name);
rewrite(fo);

while(n>0)do
begin
demus:=0;
for i:=1 to n do if(n mod i =0)then inc(demus);
if(demus<>2)then
begin
write(fo,'NO');
exit;
end;
n:= n div 2;
end;
write(fo,'YES');
close(fo);
end.


Vậy mình sai chỗ não vậy? Mong các cao nhân chỉ giáo ^^

 

[Nhật Hạ !]

exit code =2 là không tìm thấy file nghĩa là đường dẫn bị sai đó bạn.
file inp bạn ghi rõ đường dẫn ra thử xem sao. vd: D:\abcd\rtert.inp

 

[02-07-2019.]

Tại sao khi mình chạy chương trình thì nó lại báo là exitcode = 2 vậy mọi người? Code chi tiết bên dưới:



const
fi_name = 'SUPERPRIME.INP';
fo_name = 'SUPERPRIME.OUT';
var
i,n,demus:LongInt;
fi,fo: text;
begin
assign(fi,fi_name);
reset(fi);
read(fi,n);
close(fi);

assign(fo,fo_name);
rewrite(fo);

while(n>0)do
begin
demus:=0;
for i:=1 to n do if(n mod i =0)then inc(demus);
if(demus<>2)then
begin
write(fo,'NO');
exit;
end;
n:= n div 2;
end;
write(fo,'YES');
close(fo);
end.


Vậy mình sai chỗ não vậy? Mong các cao nhân chỉ giáo ^^View attachment 138631 View attachment 138633 View attachment 138634

Một là bạn chưa mở file input,output trong phần assign.
Hai là có thể bạn mở rồi nhưng sau khi sửa lại chương trình thì các file ấy không hoạt động nữa! Đóng file (input, output) lại và mở ra!

 

[Hải Ham Học]

nhấn F7 và xem cách nó thực hiện các dòng lệnh, F7 mà thấy mes hiện lên là ở chỗ đó xuất hiện lỗ
- Lỗi code exit mà có khỏi tạo file thường rất nhiều thứ phức tạp và do nhiều nguyên nhân, bạn thử lên google là ghi với từ khóa, "lỗi code exit pascal"