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
Nguyễn Huy
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
7 tháng 3 2021 lúc 9:21

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

uses crt;

var st:string;

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

function doi(st1:string):string;

var i,d:integer;

begin

d:=length(st1);

for i:=1 to d do 

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

doi:=st1;

end;

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

begin

clrscr;

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

writeln(doi(st));

readln;

end.

Cách 2: 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(st);

readln;

end.


Các câu hỏi tương tự
Hoàng hồ thiện
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