Tailieumoi.vn biên soạn và giới thiệu bộ câu hỏi Tin học gồm các kiến thức lý thuyết và thực hành, giúp học sinh ôn tập và bổ sung kiến thức cũng như hoàn thành tốt các bài kiểm tra môn Tin học. Mời các bạn đón xem:

Viết chương trình nhập vào một chuỗi ký tự. Sau đó in chuỗi ra màn hình với các ký tự đầu đổi thành chữ thường

Câu 9: Viết chương trình nhập vào một chuỗi ký tự. Sau đó in chuỗi ra màn hình với các ký tự đầu đổi thành chữ thường, các ký tự cuối của từ trong chuỗi sang chữ hoa.

Lời giải:

Program CHUOI_CHU_THUONG;

Uses Crt;

Var i,l:integer;

      st:string[50];

Begin

      Clrscr;

      Writeln('DOI CHUOI SANG CHUOI CHU THUONG');

      Writeln('------------------------------------------------------');

      Write('Nhap chuoi ky tu: '); Readln(st);

      For i:=1 to length(st) do

      If (st[i]>='A') and (st[i]<='Z') then

          st[i]:= chr(ord(st[i])+32);

      Writeln;

      Writeln('Chuoi doi thanh chu thuong la : ');

      Writeln(st);

      Writeln; l:=length(st);

        st[l]:=upcase(st[l]);

       For i:=l downto 2 do

             If st[i]=' ' then st[i-1]:=upcase(st[i-1]);

            Writeln('Chuoi cac ky tu cuoi cua tu la ky tu hoa: ');

            Writeln(st);

       Readln;

End.