Bài tập tin 11. Mọi người cùng làm nhé

[vanhieu1995]

Bài tập tin 11. Viết chương trình theo pascal.​

1. Nhập vào xâu và đưa ra màn hình xâu bằng cách loại bỏ các dấu cách.
2. Loại bỏ trong xâu chỉ còn 1 dấu các giữa các từ.
3. thay thế cụm từ "anh" trong 1 xâu bằng từ "em"

 

[rÙa tjỂu tHư]

Câu 1:
var s : string;
pro­ce­dure chuan­hoa(var s : string);
var i : in­te­ger;
be­gin
for i := length(s) down­to 1 do
if (s=' ') then delete(s,i,1);
end;
BE­GIN
write('Nhap vao 1 xau s:');
readln(s);
chuan­hoa(s);
writeln('Xau s sau khi chuan hoa:',s);
readln;
END.

Câu 2:
var s : string;
pro­ce­dure chuan­hoa(var s : string);
var i : in­te­ger;
be­gin
while s[1]=' ' do delete(s,1,1); {xoá các kí tự cách thừa ở đầu xâu}
while s[length(s)]=' ' do delete(s,length(s),1); {xoá các kí tự cách thừa ở cuối xâu}
for i := length(s) down­to 2 do if (s=' ') and (s[i-1]=' ') then delete(s,i,1); {xoá các kí tự thừa giữa câu}
end;
BE­GIN
write('Nhap vao 1 xau s:');
readln(s);
chuan­hoa(s);
writeln('Xau s sau khi chuan hoa:',s);
readln;
END.

Câu 3:
program cau3;
uses crt;
var i:byte;
st,st1,chuoi:string;
BEGIN
clrscr;
write('Nhap chuoi: ');
readln(st);
i:=1;
chuoi:=' ';
repeat
st1:=st+st[i+1]+st[i+2];
if st1<>'anh' {chỗ này có thể thêm 1 số điều kiện để kiểm tra chữ in hoa}
then
chuoi:=chuoi+st
else
begin
chuoi:=chuoi+'em';
i:=i+2;
end;
i:=i+1;
until i>length(st);
writeln('Chuoi sau khi da thay the: ',chuoi);
readln;
END.
P/s: câu 3 làm cách thủ công (ko dùng hàm ), lâu r ko lập trình nên tay nghề hơi kém mong các sư huynh sư tỉ zô góp ý sửa bài giùm THANKS!!!