Em bị lỗi gì vậy ạ, và sửa ntn ạ
Lỗi exitcode = 2 là gì, khắc phục như thế nào?
Tự nhiên thấy đau bụng, bạn chữa hộ tôi với
Code bạn đâu rồi? Bạn đăng code lên đây thì mọi người mới biết được.
Bạn đăng code theo hướng dẫn dưới đây:
FYi, exit code 2 ở Free pascal có nghĩa là “File not found”.
https://www.freepascal.org/docs-html/user/userap4.html
program bai3;
uses crt;
type mangxau=array[1..10] of string;
var f:text;
n,i:byte;
s:mangxau;
function dem(sa:mangxau;n:byte;s:string):byte;
var i,d:byte;
begin
d:=0;
for i:=1 to n do if sa[i]=s then d:=d+1;
dem:=d
end;
begin
assign(f,'INPUT.INP');
reset(f);
n:=0;
while not eof(f) do
begin
n:=n+1;
readln(f,s[n])
end;
close(f);
for i:=1 to n do if dem(s,n,s[i])=1 then break;
assign(f,'OUTPUT.OUT');
rewrite(f);
write(f,s[i]);
close(f)
end.
Chủ topic chưa cung cấp file INPUT.INP để biết nó như thế nào. Có khả năng là không có dữ liệu/ tồn tại file để đọc INPUT.INP dữ liệu đầu vào (phỏng đoán theo như bác @library nói ở trên là “Không tìm thấy file”), phải chăng có liên quan.
Sau một hồi vận 9 thành công lực, tớ thấy bài này có liên quan đến status đây. Ai lên đó comment hỏi xem họ làm cách gì?
Quý vị còn nhớ Pascal hỗ trợ ủn đít him/ her với chứ tớ xem ra quên hết Pascal rồi.
Bạn chưa tạo file INPUT.INP thôi. Bây giờ bạn tạo file INPUT.INP với format giống như đề bài yêu cầu là được.
ERROR_FILE_NOT_FOUND
2 (0x2)
The system cannot find the file specified.
System Error Codes (0-499) (WinError.h) - Win32 apps | Microsoft Learn
uses crt;
const fi='string.inp';
fo='string.out';
var f,g:text;s1,s2:string;
procedure doc;
begin
assign(f,fi);reset(f);
readln(f,s1,s2);
close(f);
end;
procedure nen;
var s,kq:string;
i,d:integer;
ch:char;
begin
d:=1;s1:=s1+#32;ch:=s1[1];kq:='';
for i:=2 to length(s1) do
if s1[i]=s1[i-1] then inc(d)
else
begin
str(d,s);
if d<>1 then kq:=kq+s+ch
else kq:=kq+ch;
d:=1;
ch:=s1[i];
end;
writeln(g,kq);
end;
procedure giainen;
var s,kq,so:string;
i,j,code,n:integer;
ch:char;
begin
i:=1;kq:='';
repeat
so:='0';
while s2[i] in ['1'..'9'] do begin
so:=so+s2[i];
inc(i);
end;
val(so,n,code);
if n>1 then
for j:=1 to n do kq:=kq+s2[i]
else
kq:=kq+s2[i];
inc(i);
until i>length(s2);
writeln(g,kq);
end;
//chuong trinh chinh
begin
assign(g,fo);rewrite(g);
doc;
nen;
giainen;
close(g);
end.
bị exitcode=2 sửa sao vậy
bạn kiểm tra xem bạn có file string.inp
chưa?