Viết chương trình nhập vào họ tên của một người

467

Top 1000 câu hỏi thường gặp môn Tin học có đáp án (phần 1) hay nhất được biên soạn và chọn lọc giúp bạn ôn luyện và đạt kết quả cao trong bài thi môn Tin học.

Viết chương trình nhập vào họ tên của một người

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

Lời giải:

Program DOI_CHUOI_CHU_HOA;

Uses Crt;

Var i:integer;st:string;

Begin

     Clrscr;

     Writeln('DOI CHUOI SANG CHUOI HOA');

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

     Write('Nhap ho ten:');readln(st);

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

     For i:=1 to length(St) do

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

          Writeln('Ho ten sau khi doi lan 1 la: ',st);

     For i:=1 to length(St) do

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

     Writeln('Ho ten sau khi doi lan 2 la: ',st);

      Readln;

End.

Từ khóa :
Giải bài tập
Đánh giá

0

0 đánh giá