BÀI 10: Viết chương trình nhập 1 xâu từ bàn phím. Đưa ra màn hình xâu đó dưới dạng in hoa

0 bình luận về “BÀI 10: Viết chương trình nhập 1 xâu từ bàn phím. Đưa ra màn hình xâu đó dưới dạng in hoa”

1. Program Xau;
   Uses crt;
   Var St: String;
       i: longint;

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

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

           Write(‘St = ‘,St);
           Readln
   End.

   Bình luận

2. program bt2;
   uses crt;
   var s,st:string;
       i:integer;
   begin
    clrscr;
    read(S);
    for i:=1 to length(S) do st:=st+upcase(S[i]);
    writeln(st);
    readln;
    readln;
   end.

   Bình luận