Question

Sử dụng NNLT pascal viết ct thực hiện các yêu cầu sau:

a, nhập vào 1 xâu bất kì

b, Biến đổi các chữ cái trong xâu vừa nhập thành chữ in hoa( ví dụ abc thành ABC)

c, Xoá các kí tự trắng dư thừa ở đầu xâu, cuối xâu, giữa 2 từ chỉ có 1 khoảng trắng

Answer 1

uses crt;
var st:string;
d,i:integer;
begin
clrscr;
{---------------------------cau-a---------------------------}
write('nhap xau:'); readln(st);
{---------------------------cau-b---------------------------}
d:=length(st);
for i:=1 to d do
st[i]:=upcase(st[i]);
for i:=1 to d do
write(st[i]);
{--------------------------cau-c----------------------------}
writeln;
while pos(' ',st)>0 do
delete(st,pos(' ',st),1);
if st[1]=' 'then delete(st,1,1);
if st[d]=' 'then delete(st,d,1);
writeln('xau sau khi bien doi la: ',st);
readln;
end.