Bài 18: Ví dụ về cách viết và sử dụng chương trình con

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Hoàng hồ thiện
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 ạ
Nguyễn Lê Phước Thịnh
28 tháng 2 2021 lúc 12:41

*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.


Các câu hỏi tương tự
Nguyễn Huy
Xem chi tiết
Phạm Hoàng Diệu Linh
Xem chi tiết
Đinh Thị Thu Giang
Xem chi tiết
Lê Thanh Tuyền
Xem chi tiết
Veres Pro
Xem chi tiết
Trường
Xem chi tiết
Thanh Tuyền
Xem chi tiết
Nguyễn Thảo Nguyên
Xem chi tiết
Đoàn Vĩ Khang
Xem chi tiết