bài tập xâu kí tự

[seonovaland]

Giúp tớ bài tập này nha:

1. Lập chương trình nhập vào một xâu kí tự là họ tên của một người rồi chuẩn hóa họ tên đó. In kết quả ra giữa màn hình.

2. Lập chương trình nhập vào một xâu kí tự và đổi tất cả các kí tự in hoa thành in thường và ngược lại.

[tuananh22794]

Chuẩn họ tên:

uses    crt;
var     s: string;
        i,j: byte;
begin
        clrscr;
        writeln('What is your name?');readln(s);
        clrscr;
        i:=2;
        s:=#32+s;
        repeat
                if s[i]=#32 then
                begin
                        if s[i-1]=#32 then
                        delete(s,i,1)
                        else inc(i);
                end
                else
                begin
                        if s[i-1]=#32 then s[i]:=upcase(s[i])
                        else s[i]:=chr((ord(upcase(s[i])))+32);
                        inc(i);
                end;
        until i>length(s);
        delete(s,1,1);
        if s[length(s)]=#32 then delete(s,length(s),1);
        write(s);
        readln(s);
end.

Bài còn lại mình nghĩ bạn nên tự viết.

[chuonggoinhanvien]

program bai_2;
Var S:string;
i:integer;
Begin
  write('Nhap vao xau ban dau:');
  Readln(S);
    For i:=1 to length(S) do
       if (S[i]>='a') and (S[i]<='z') then S[i]:=upcase(S[i])
          else
         if (S[i]>='A') and (S[i]<='Z') then S[i]:=chr(ord(S[i])+32);
        write('Xau ket qua la:',S);
Readln
End.

[huudatfee]

program Bai_1;
Var S:String;
i,k:integer;
Begin
  write('Nhap vao xau ho ten ban dau:'); Readln(S);
  while S[1]=' ' do delete(S,1,1);{Xoa cac dau cach dau xau}
{Xoa cac dau cach cuoi xau}
  while S[length(S)]=' ' do delete(S,length(S),1);
{Xoa cac dau cahc thua trong xau}
  while pos('  ',S)<>0 do {Neu co 2 dau cach lien nhau thi xoa 1 dau cach}
     Begin
         i:=pos('  ',S);
         Delete(S,i,1);
     End;
  S:=' '+S;{Them dau cach vao dau xau}
For i:=1 to length(S) do
    if (S[i]<>' ') and (S[i-1]=' ') then S[i]:=upcase(S[i]) 
{Cac ki tu dau tu chuyen thanh chu hoa}
      else
        if (S[i]<>' ') and (S[i-1]<>' ') then 
{Cac ki tu khong phai dau cua 1 tu chuyen thanh chu thuong}
 if (S[i]>='A') and (S[i]<='Z') then S[i]:=chr(ord(S[i])+32);
Delete(S,1,1); {Xoa dau cach da them vao}
write('Xau sau khi da chuan hoa la:',S);
Readln
End.