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

Vietjack.me giới thiệu bộ câu hỏi ôn tập Tin học có đáp án được biên soạn bám sát chương trình học giúp bạn ôn luyện và bổ sung kiến thức môn Tin học tốt hơn. Mời các bạn đón xem:

1 1,334 24/07/2023


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

Đề bài: 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.

1 1,334 24/07/2023


Xem thêm các chương trình khác: