Question

Viết chương trình theo 2 cách có sử dụng chương trình con và không sử dụng chương trình con thực hiện nhập 1 xâu kí tự từ bàn phím , thực hiện chuyển đổi toàn bộ xâu sang chữ hoa . Hiển thị kết quả ra màn hình Giúp em với em cảm ơn ạ

Answer 1

*Cách có sử dụng chương trình con:

uses crt;

var st:string;

{--------------chuong-trinh-con---------------}

function doixau(st:string):string;

var i,d:integer;

begin

   d:=length(st);

   for i:=1 to d do

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

   doixau:=st;

end;

{-------------chuong-trinh-chinh---------------}

begin

clrscr;

write('Nhap xau:'); readln(st);

writeln('Xau doi sang chu hoa la: ',doixau(st));

readln;

end.

*Cách không sử dụng chương trình con:

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=1 to d do 

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

writeln('Xau sau khi doi la: ',st);

readln;

end.