Viết thủ tục nhập vào một xâu viết hàm chuyển xâu chữ thường thành chữ in hoa sử dụng thủ tục và hàm chuyển xâu chữ thường thành chữ in hoa.

thủ tục nhập vào một xâu:

procedure nhap;

var s: string;

begin

write ('nhap xau: ');  readln (s);

end;

hàm chuyển xâu chữ thường thành chữ in hoa

function cd(s: string): string;

i: byte;

begin

for i:=1 to length(s) do cd:=cd+upcase(s[i]);

end;

thủ tục và hàm chuyển xâu chữ thường thành chữ in hoa

procedure CD;

var s1,s2: string;

i: byte;

begin

for i:=1 to length(s1) do

s2:=s2+upcase(s1[i]);

end;

var s: string;

Procedure nhap;

  Begin

       Write('nhap xau: '); readln(s);

  End;

Function hoa(x: string): string;

  Var i: byte;

  Begin

     hoa:='';

     For i:=1 to length(x) do

          hoa := hoa + upcase(x[i]);

  End;

Begin

    Nhap;

    Write(hoa(s));

    Readln

End.