Hai chuỗi gọi là gần đúng khi các ký tự của chuỗi gốc xuất hiện trong chuỗi kia
theo đúng thứ tự như chuỗi gốc. Số kí tự sai khác được tính thành tỉ lệ phần trăm so
với chuỗi có độ dài lớn hơn. Nếu tỉ lệ % sai khác không lớn hơn m% thì ta gọi đây
là 2 chuỗi gần đúng.
Ví dụ: xem hình sau:
Trong hình trên, độ sai lệch giữa mispeld và misspelled là 3 kí tự; tỉ lệ là 3/10
tức 30%.
* Yêu cầu: Viết chương trình tìm các chuỗi gần đúng so với chuỗi gốc.
Fie dữ liệu vào cho trong File BAI2.INP. Hàng đầu tiên là m (số nguyên giá trị
từ 1 đến 50). Hàng kế tiếp là chuỗi gốc; các hàng còn lại là các chuỗi cần xác định
có gần đúng với chuỗi gốc đã cho hay không. Chuỗi chỉ gồm các kí tự chuẩn trong
bảng mã ASCII và không có khoảng trắng trong chuỗi; chiều dài chuỗi không quá
254 kí tự.
Kết quả ghi trong File dữ liệu ra BAI2.OUT; gồm chuỗi gốc và các chuỗi gần
đúng với chuỗi gốc (không phân biệt chữ hoa/thường). Mỗi chuỗi được ghi trên 1
hàng.
Ví dụ:
BAI2.INP BAI2.OUT
30 mispeld
mispeld misspelled
misplace
misspelled
mislead
M.n giúp tìm lỗi sai với:
uses crt;
var f1,f2:text;n:integer;s1,s2:string;
function sai_so(s1,s2:string):integer;
var a:string;k1,k2,i,b,c,S,H:integer;
begin
k1:=length(s1);
k2:=length(s2);
S:=0;a:=s2;
for i:=1 to k1 do
begin
c:=pos(s1[i],a);
b:=k2-length(a)+c;
if c>0 then
begin
S:=S+c-1;
a:=copy(s2,b+1,k2-b);
end
else
begin
S:=0;break;
end;
end;
sai_so:=S;
end;
begin
clrscr;
assign(f1,'input.txt');
reset(f1);
assign(f2,'output.txt');
rewrite(f2);
while not eof(f1) do
begin
read(f1,n,s1,s2);
writeln(f2,sai_so(s1,s2));
end;
close(f1);close(f2);
readln
end.
Lỗi ở đây là không đọc được file. Dạo này đang chán và mệt nên nhác nghĩ, mình cho bạn coi cái code của mình về bài này hồi ôn.Nhưng chưa chuẩn xác lắm đâu nhưng nhìn đơn giản hơn nhiều.Bạn có gắng tự xử nhé, lúc nào rảnh thì mình làm cho :]
Code:
program chuoi_gan_dung;
uses crt;
var a,b:array[1..100] of string;
s,st:string;
i,n,m,k,p,l,j:integer;
begin
clrscr;
write('Nhap so % :');readln(m);
write('Nhap xau goc :');readln(s);
write('Nhap so xau can xac dinh :');readln(n);
p:=0;
for i:=1 to n do
begin
write('nhap xau a[',i,']=');readln(a[i]);
st:=a[i];
l:=1;
j:=1;
k:=0;
while (l<=length(s))and(j<=length(st)) do
if s[l]=st[j] then
begin
l:=l+1;
j:=j+1;
end else
begin
j:=j+1;
k:=k+1;
end;
if (k/length(st))*100<=m then
begin
p:=p+1;
b[p]:=st;
end;
end;
for i:=1 to p do
writeln(b[i]);
readln
end.
P/s: Bạn sửa lại nội dung ví dụ nhé .Thân !
Bài viết đã được chỉnh sửa nội dung bởi NTL2k1: 13-08-2016 - 15:13
Bình tĩnh - Tự tin - Chiến thắng
Không phải là tôi quá thông minh, chỉ là tôi chịu bỏ nhiều thời gian hơn với rắc rối .
Cứ làm việc chăm chỉ trong im lặng - Hãy để thành công trở thành tiếng nói của bạn .