bai tap ve xau

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: ';readlns; n:=lengths; [r]

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