Viết chương trình có sử dụng chương trình con, nhập 1 xâu bất kì, đổi xâu này thành xâu viết hoa

Hàm function:

program xau_hoa;

uses crt;

var s:string;

{—Chuong-trinh-con—}

function hoa(st:string):string;

var i:byte;

begin

       hoa:=”;

       for i:=1 to length(st) do

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

end;

{—Chuong-trinh-chinh—}

begin

       clrscr;

       write(‘Nhap xau: ‘);  readln(s);

       write(‘Xau hoa la: ‘,hoa(s));

       readln;

end.

Thủ tục procedure:

program xau_hoa;

uses crt;

var s:string;

{—Chuong-trinh-con—}

procedure hoa(st:string);

var i:byte;

begin

       for i:=1 to length(st) do

              write(upcase(st[i]));

end;

{—Chuong-trinh-chinh—}

begin

       clrscr;

       write(‘Nhap xau: ‘);  readln(s);

       write(‘Xau hoa la: ‘);

       hoa(s);

       readln;

end.

Trả lời