Tin Học - Lỗi Freepascal - HOCMAI Forum

• Diễn đàn Bài viết mới Tìm kiếm trên diễn đàn
• Đăng bài nhanh
• Có gì mới? Bài viết mới New media New media comments Status mới Hoạt động mới
• Thư viện ảnh New media New comments Search media
• Story
• Thành viên Đang truy cập Đăng trạng thái mới Tìm kiếm status cá nhân

Đăng nhập Đăng ký

Tìm kiếm

Everywhere Đề tài thảo luận This forum This thread Chỉ tìm trong tiêu đề By: Search Tìm nâng cao… Everywhere Đề tài thảo luận This forum This thread Chỉ tìm trong tiêu đề By: Search Advanced…

• Bài viết mới
• Tìm kiếm trên diễn đàn

Menu Install the app Install Tin họclỗi freepascal

• Thread starter hai6f2009
• Ngày gửi 9 Tháng tám 2012
• Replies 25
• Views 26,425

• Bạn có 1 Tin nhắn và 1 Thông báo mới. [Xem hướng dẫn] để sử dụng diễn đàn tốt hơn trên điện thoại

• Diễn đàn
• CÁC MÔN HỌC KHÁC
• Tin học - máy tính
• Học lập trình
• Thảo luận chung

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser.

• 1
• 2

Tiếp 1 of 2

Go to page

Tới Tiếp Last H

hai6f2009

[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.

Mình cho chạy thử chương trình trong sách tin học 11 trang 88, 89 trên freepascal nhưng được lối: " Program c:\fpc\2. 6. 0\bin\i386 - win32\dientro.exe exited with exitcode = 2 " Last edited by a moderator: 9 Tháng tám 2012 M

mikelhpdatke

Đây có thể là do lỗi code or do lỗi FP. Bạn thử post nguyên văn code cuả bạn lên đây để mình xem có sai ko H

hai6f2009

đây: program dientro; varr a:array[1..5] of real; R1,R2,R3:real; i:integer; f1,f2,text; begin assign(f1, 'RESIST.DAT'); reset(f1); assign(f1, 'RESIST.EQU'); rewrite(f2); while not eof(f1) do begin readln(f1,R1,R2,R3); a[1]:= R1*R2*R3/(R1*R2+R1*R3+R2*R3); a[2]:= R1*R2/(R1+R2) +R3; a[3]:= R1*R3/(R1+R3) +R2; a[4]:= R2*R3/(R2+R3) +R1; a[5]:= R1+R2 +R3; for i:=1 to 5 do write(f2,a:9:3,' '); writeln(f2); end; close(f1);close(f2) end. M

mikelhpdatke

Bạn đã tạo file input và output chưa. Mà chỗ đường dẫn tới file này phải chính xác. VD: file RESIST.DAT bạn để ở ổ C thì bạn phải khai báo assign(f1, 'C:\RESIST.DAT'); H

hai6f2009

À, mình cũng làm như vậy rồi nhưng mà không được nên mới ghi là "assgin(f1,'RESIST.DAT');" M

mikelhpdatke

Mã: program dientro; varr a:array[1..5] of real; R1,R2,R3:real; i:integer; f1,f2,text; begin assign(f1, 'RESIST.DAT'); reset(f1); [COLOR="Red"]assign(f1, 'RESIST.EQU');[/COLOR] rewrite(f2); while not eof(f1) do begin readln(f1,R1,R2,R3); a[1]:= R1*R2*R3/(R1*R2+R1*R3+R2*R3); a[2]:= R1*R2/(R1+R2) +R3; a[3]:= R1*R3/(R1+R3) +R2; a[4]:= R2*R3/(R2+R3) +R1; a[5]:= R1+R2 +R3; for i:=1 to 5 do write(f2,a[i]:9:3,' '); writeln(f2); end; close(f1);close(f2) end. bạn sai chỗ màu đỏ đó, bạn thử test lại đi H

hai6f2009

Mình đã thử thay như bạn nhưng khi test vẫn bị lỗi như vậy bạn ơi! M

mikelhpdatke

Mã: program dientro; var a:array[1..5] of real; R1,R2,R3:real; i:integer; f1,f2:text; begin assign(f1, 'D:\RESIST.DAT'); reset(f1); assign(f2, 'D:\RESIST.EQU'); rewrite(f2); while not eof(f1) do begin readln(f1,R1,R2,R3); a[1]:= R1*R2*R3/(R1*R2+R1*R3+R2*R3); a[2]:= R1*R2/(R1+R2) +R3; a[3]:= R1*R3/(R1+R3) +R2; a[4]:= R2*R3/(R2+R3) +R1; a[5]:= R1+R2 +R3; for i:=1 to 5 do write(f2,a[i]:9:3,' '); writeln(f2); end; close(f1);close(f2) end. Code của bạn có một vài chỗ sai từ khóa, mình đã chỉnh lại, ok H

hai6f2009

để mình test lại thử xem! Chờ mình chút xíu nha.... H

hai6f2009

vẫn bị tình trạng như vậy khi mình đã chỉnh và test lại như bạn nói bạn ơi! N

nghgh97

hai6f2009 said: vẫn bị tình trạng như vậy khi mình đã chỉnh và test lại như bạn nói bạn ơi! Bấm để xem đầy đủ nội dung ...

Cứ lỗi hoài vậy bạn thử gỡ FP ra rồi cài lại xem sao :-? có thể là bị thiếu mất thứ gì đó M

mikelhpdatke

hai6f2009 said: vẫn bị tình trạng như vậy khi mình đã chỉnh và test lại như bạn nói bạn ơi! Bấm để xem đầy đủ nội dung ...

Code đấy mình test trên cả Ideone cũng ko có vấn đề j mà, bạn cài lại FP xem Q

quanghero100

hai6f2009 said: đây: program dientro; varr a:array[1..5] of real; R1,R2,R3:real; i:integer; f1,f2,text; begin assign(f1, 'RESIST.DAT'); reset(f1); assign(f1, 'RESIST.EQU'); rewrite(f2); while not eof(f1) do begin readln(f1,R1,R2,R3); a[1]:= R1*R2*R3/(R1*R2+R1*R3+R2*R3); a[2]:= R1*R2/(R1+R2) +R3; a[3]:= R1*R3/(R1+R3) +R2; a[4]:= R2*R3/(R2+R3) +R1; a[5]:= R1+R2 +R3; for i:=1 to 5 do write(f2,a:9:3,' '); writeln(f2); end; close(f1);close(f2) end. Bấm để xem đầy đủ nội dung ...

Lỗi Exit code 2 là lỗi không tìm thấy file. Lỗi được báo khi có những lệnh Erase, Rename hoặc là Mở một file không tồn tại. Khắc phục nó đó là trong lần chạy đầu tiên bạn cần thêm lệnh rewrite(f1); sau lệnh assign(f1,'RESIST.DAT'); và assign(f1,'RESIST.EQU'); để tạo file sau đó xóa 2 lệnh vừa thêm đó đi sau đó mở file input nhập dữ liệu vào lưu lại rồi chạy chương trình như vậy là okê rùi nhé H

hai6f2009

Vẫn không ổn bạn ơi! Mình đã làm thử nhưng không được!T_T M

mikelhpdatke

Code thì mình đã test, không sai. Nếu FP bạn cài lại mà vẫn bị thì bạn xem lại đường dẫn, file tồn tại đã đúng chưa. Nếu vẫn không được cài teamwiewer mình thử cho. 1

11thanhkhoeo

Đường dẫn đền file assign(fi,'D:\resign.dat'); Đặt file đó ở ổ D Thân M

mikelhpdatke

Cái đấy e bảo chủ theard rồi, chủ theard bảo ko được ?_? 1

11thanhkhoeo

Free lôi. thiếu thư viện Cách giải quyết : cài lại free Thân H

hai6f2009

hu hu! mình cài lại rồi mà lại chứng nào tật nấy! Ai giúp mình với!

• 

Reactions: binhdlbt M

mikelhpdatke

Bạn cài lại chính xác chưa :-?. Có thể download FP 2.6 tại đây http://www.brothersoft.com/turbo-pascal-272943.html Hoặc bạn có thể run code trực tiếp trên web -->http://ideone.com/ Còn vẫn không được thì mình teamwiewer cho

• 1
• 2

Tiếp 1 of 2

Go to page

Tới Tiếp Last You must log in or register to reply here. Chia sẻ: Facebook Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

• Diễn đàn
• CÁC MÔN HỌC KHÁC
• Tin học - máy tính
• Học lập trình
• Thảo luận chung

Top Bottom

• Vui lòng cài đặt tỷ lệ % hiển thị từ 85-90% ở trình duyệt trên máy tính để sử dụng diễn đàn được tốt hơn.