các anh cho em hỏi chút xíu
em có chương trình sau:
program Tim_Xoa;
uses crt;
var
St, St1: string;
Ch: char;
i, l, ll: byte;
begin
clrscr;
writeln('TIM VA XOA CAC TU TRUNG NHAU TRONG CHUOI');
writeln('----------------------------------------');
writeln;
write('- Nhap mot chuoi: ');
readln(St);
St1:= St;
i:= 1;
l:= length(St);
while i <= l do
begin
i:= i + 1;
if St[i] = St[i - 1] then
begin
writeln('+ Ky tu thu: ',i:2,' la: ',St[i],' bi trung lap');
write('Ban co muon xoa ky tu nay khong (c/k)');
readln(Ch);
if upcase(Ch) = 'C' then
begin
delete(St,i,1);
i:= i - 1;
end;
end;
end;
ll:= length(St);
writeln;
writeln('+ Chuoi ban dau: ',St1,' co: ',1:2,' ky tu');
writeln(' Sau khi xoa ky tu trung nhau');
writeln('Chuoi con lai: ',St,' gom: ',ll:2,' ky tu');
writeln;
writeln(' Bam phim <Enter> de ket thuc');
readln;
end.
các anh giải thích em đoạn if St[i] = St[i - 1] then cái em không hiểu tại sao thế
em cảm ơn nhiều
Bookmarks