Một số bài tập về Xâu Tin học lớp 11

Bài 1 : Viết Chương trình nhập vào 1 xâu đưa ra màn hình xâu đó là xâu chữ in
program TNSinfo;
uses crt;
var s:string;
i:integer;
begin
clrscr;
write('Nhap Xau: ');readln(s);
for i:=1 to length(s) do
s[i]:=upcase(s [i]) ; {s:=upcase(s[5]);}
writeln('Xau Sau Khi In Hoa: ',s);
readln;
end.
Bài 3 : Viết chương trinh nhập vào 1 xâu ,đưa ra màn hình xâu đã loại bỏ kí tự trắng
program TNSinfo;
uses crt;
var s:string;
begin
clrscr;
write('Nhap Xau: ');readln(s);
while (pos(' ',s)>0) do delete(s,pos(' ',s),1);
writeln('Xau Sau Khi Da Chuan Hoa: ',s);
readln;
end.
Bài 2 : Viết chương trinh nhập vào 1 xâu , sau đó đổi cụm từ ghét thành thương
program TNSinfo;
uses crt;
var s:string;
i,n:integer;
begin
clrscr;
write('Nhap Xau: ');readln(s);
n:=length(s);
i:=0;
while i<=n-3 do
begin
i:=i+1;
if ((s [ i ]='g')or(s[ i ]='G'))and((s[i+1]='h')or(s[i+1]='H'))and
((s[i+2]='e')or(s[i+2]='E'))and((s[i+3]='t')or(s[i+3]='T')) then
begin
s[ i ]:='t';
s[i+1]:='h';
s[i+2]:='u';
s[i+3]:='o';
insert('n',s,i+4);
insert('g',s,i+5);
n:=n+2;
end;
end;
write('Xau Sau Khi Da Doi Tu Ghet Thanh Thuong: ',s);
readln;
end.