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
Đoàn Vĩ Khang

Viết chương trình con tính tổng, tích, tìm số lớn, số bé trong 2 số nguyên. Gọi thực thi chương trình con ở chương trình chính.

mọi người giúp e để mai e kiểm tra với ạ. 

 

Nguyễn Lê Phước Thịnh
22 tháng 3 2021 lúc 21:29

uses crt;

var a,b:integer;

{-------------chuong-trinh-con-tinh-tong---------------------}

function tong(x,y:integer):integer;

begin

tong:=x+y;

end;

{-------------chuong-trinh-con-tinh-tich------------------}

function tich(x,y:integer):integer;

begin

tich:=x*y;

end;

{-----------------chuong-trinh-con-so-lon------------------}

function solon(x,y:integer):integer;

begin

if x>y then solon:=x

else solon:=y;

end;

{-----------------chuong-trinh-con-so-be------------------}

function sobe(x,y:integer):integer;

begin

if x<y then sobe:=x

else sobe:=y;

end;

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

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

writeln('Tong la: ',tong(a,b));

writeln('Tich la: ',tich(a,b));

writeln('So lon la: ',solon(a,b));

writeln('So be la: ',sobe(a,b));

readln;

end.


Các câu hỏi tương tự
Lê Thanh Tuyền
Xem chi tiết
Hưng Cận
Xem chi tiết
Thanh Tuyền
Xem chi tiết
Nguyễn Huy
Xem chi tiết
Hoàng hồ thiện
Xem chi tiết
Veres Pro
Xem chi tiết
Trường
Xem chi tiết
Đào Quang Khải
Xem chi tiết
M Ạ C H N H A
Xem chi tiết