Bài tập xâu kí tự hay...Giúp mình

[phamduy93]

Nhập vào từ bàn phím một xâu. Thay thế tất cả các cụm kí tự "anh" bằng cụm từ "em".
Mình đã làm rồi nhưng mà hok hiểu sao khi nhập là "Anh" thì máy không chạy
Có ai giúp mình phần lệnh upcase với

[nhokdragon94]

Bạn post code lên cho mọi người cùng coi nhé
upcase là viết hoa coi trong sách lý thuyết chéc có

[phamduy93]

var s:string;
i:integer;
begin
write('nhap chuoi: ');
readln(s);
while pos('anh',s)<>0 do
begin
i:pos('anh',s);
delete(s,i,3);
ínert('em',s,i);
end;
writeln('chuoi sau khi bien doi la: '),s);
readln;
end.

[1n1]

thay pos('anh', s) thành pos('ANH', upcase(s)) là được mà. Nhưng bạn nên chú ý vì theo cách làm trên của bạn thì :ANH, anh, Anh, AnH,...đều thay bằng 'em' hết đó nha :0

[PhanQuangHuong]

Từ "anh" với từ "Anh" là khác nhau. trong pree upcase(s)thì được trong tubor upcase(s) báo lỗi với s:String;

[phamduy93]

1n1 oi, minh` lam` theo cach' cua? ban. nhung khong duoc., cau. xem lai. gium` minh` voi'

[hamj]

thay pos('anh', s) thành pos('ANH', upcase(s)) là được mà. Nhưng bạn nên chú ý vì theo cách làm trên của bạn thì :ANH, anh, Anh, AnH,...đều thay bằng 'em' hết đó nha :0

________________________
bạn ơi .........upcase(ch) là hàm chỉ sd cho 1 kí tự và ko thể sd upcase cho cả xâu như bạn đc
còn đề bài nói rất rõ là thay cụm kí tự 'anh' thành'em' ở đây có phân biệt chữ hoa và chữ thường nên khi nhập 'Anh' tất nhiên nó sẽ ko thay thành 'em'

[o0Tieu0Long0o]

pos có tác dụng tìm kiếm vị trí của 1 xâu kí tự trong 1 xâu cho trước, bạn dùng pos với 'anh' tất nhiên phải khác với pos của 'Anh' rồi. Nên nhớ rằng Pascal có sự khác nhau giữa các kí tự, không thể nghĩ rằng A hay a đều được.

[phamduy93]

vậy cậu giúp mình viết lại đoạn code đó với, mai mình cần rồi