Viết chương trình nhập vào một xâu ký tự từ bàn phím. Đổi xâu ký tự đó

218

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:

Top 1000 câu hỏi thường gặp môn Tin học có đáp án (Phần 3)

Câu 27: Viết chương trình nhập vào một xâu ký tự từ bàn phím. Đổi xâu ký tự đó sang chữ in hoa rồi in kết quả ra màn hình.

     Ví dụ :Xâu abcdAbcD sẽ cho ra xâu ABCDABCD.

Lời giải

Uses Crt;

Var  St:String;

        i:Byte;

Begin

    Write(‘Nhap xau St: ‘); Readln(St);

    For i:=1 to length(St) do St[i]:=Upcase(St[i]);

    Write(‘Xau ket qua: ‘, St);

    Readln;

End.

Đánh giá

0

0 đánh giá