Viết chương trình sử dụng chương trình con (thủ tục và hàm) thực hiện tính và in ra màn hình chu vi hình chữ nhật biết độ dài các cạnh được nhập từ bàn phím ( mọi người ơi giúp mik với mai kiểm tra rùi cảm ơn nhiều)
Viết chương trình sử dụng chương trình con (thủ tục và hàm) thực hiện tính và in ra màn hình chu vi hình chữ nhật biết độ dài các cạnh được nhập từ bàn phím ( mọi người ơi giúp mik với mai kiểm tra rùi cảm ơn nhiều)
Làm 2 kiểu luôn nha 😀
Hàm:
uses crt;
var dai,rong:integer;
function chuvi(a,b:integer):longint;
begin chuvi:=(a+b)*2; end;
begin
clrscr;
write(‘Nhap chieu dai: ‘); readln(dai);
write(‘Nhap chieu rong: ‘); readln(rong);
write(‘Chu vi hinh chu nhat la: ‘,chuvi(dai,rong));
readln
end.
Thủ tục:
uses crt;
var dai,rong:integer;
procedure chuvi(a,b:integer);
var cv:longint;
begin
cv:=(a+b)*2;
write(‘Chu vi hinh chu nhat la: ‘,cv);
end;
begin
clrscr;
write(‘Nhap chieu dai: ‘); readln(dai);
write(‘Nhap chieu rong: ‘); readln(rong);
chuvi(dai,rong);
readln
end.
program oken;
uses crt;
var dai,rong: integer;
function chuvi(a,b:integer):longint;
begin
chuvi:=(a+b)*2;
end;
begin
clrscr;
write(‘nhap chieu dai: ‘); readln(dai);
write(‘nhap chieu rong: ‘); readln(rong);
writeln(‘chu vi hinh chu nhat: ‘,chuvi(dai,rong));
readln;
end.