Chương trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
thái tuấn tài

Bài 1: Viết chương trình có sử dụng chương trình con ( HÀM) để tính chu vi và diện tích
của hình chữ nhật có độ dài 2 cạnh là a và b. Xuất kết quả vừa tính được ra màn hình.
Bài 2: Viết chương trình có sử dụng chương trình con ( HÀM) để tính chu vi và diện tích
của hình tam giác có độ dài 3 cạnh là a, b và c. Xuất kết quả vừa tính được ra màn hình.
Bài 3: Viết chương trình có sử dụng chương trình con ( HÀM) để tính chu vi và diện tích
của hình tròn có độ dài bán kính là R. Xuất kết quả vừa tính được ra màn hình.
Bài 4: Viết chương trình có sử dụng chương trình con ( HÀM) để tính tổng, hiệu, tích,
thương của hai số a và b. Xuất kết quả vừa tính được ra màn hình.

Nguyễn Lê Phước Thịnh
22 tháng 6 2020 lúc 9:04

Bài 1:

uses crt;
var a,b:real;
{----------------------------chuong-trinh-con-tinh-chu-vi-------------------------}
function chuvi(x,y:real):real;
begin
chuvi:=(x+y)*2;
end;
{----------------------------chuong-trinh-con-tinh-dien-tich----------------------}
function dientich(m,n:real):real;
begin
dientich:=m*n;
end;
{-----------------------------chuong-trinh-chinh--------------------------}
begin
clrscr;
repeat
write('Nhap chieu dai:'); readln(a);
write('Nhap chieu rong:'); readln(b);
until (a>0) and (b>0) and (a>=b);
writeln('Chu vi hinh chu nhat la: ',chuvi(a,b):4:2);
writeln('Dien tich hinh chu nhat la: ',dientich(a,b):4:2);
readln;
end.

Bài 2:

uses crt;
var a,b,c:real;
{----------------------------chuong-trinh-con-tinh-chu-vi-------------------------}
function chuvi(x,y,z:real):real;
begin
chuvi:=x+y+z;
end;
{----------------------------chuong-trinh-con-tinh-dien-tich----------------------}
function dientich(m,n,p:real):real;
var ncv:real;
begin
ncv:=(m+n+p)/2;
dientich:=sqrt(ncv*(ncv-m)*(ncv-n)*(ncv-p));
end;
{-----------------------------chuong-trinh-chinh--------------------------}
begin
clrscr;
repeat
write('Nhap canh thu 1:'); readln(a);
write('Nhap canh thu 2:'); readln(b);
write('Nhap canh thu 3:'); readln(c);
until (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a);
writeln('Chu vi hinh tam giac la: ',chuvi(a,b,c):4:2);
writeln('Dien tich hinh tam giac la: ',dientich(a,b,c):4:2);
readln;
end.

Bài 3:

uses crt;
var r:real;
{----------------------------chuong-trinh-con-tinh-chu-vi-------------------------}
function chuvi(x:real):real;
begin
chuvi:=2*x*pi;
end;
{----------------------------chuong-trinh-con-tinh-dien-tich----------------------}
function dientich(m:real):real;
begin
dientich:=sqr(m)*pi;
end;
{-----------------------------chuong-trinh-chinh--------------------------}
begin
clrscr;
repeat
write('Nhap ban kinh:'); readln(r);
until r>0;
writeln('Chu vi hinh tron la: ',chuvi(r):4:2);
writeln('Dien tich hinh tron la: ',dientich(r):4:2);
readln;
end.

Bài 4:

uses crt;
var a,b:real;
{--------------------chuong-trinh-con-tinh-tong------------------------}
function tong(x,y:real):real;
begin
tong:=x+y;
end;
{--------------------chuong-trinh-con-tinh-hieu------------------------}
function hieu(m,n:real):real;
begin
hieu:=m-n;
end;
{--------------------chuong-trinh-con-tinh-tich------------------------}
function tich(c,d:real):real;
begin
tich:=c*d;
end;
{--------------------chuong-trinh-con-tinh-thuong-----------------------}
function thuong(p,q:real):real;
begin
thuong:=p/q;
end;
{--------------------chuong-trinh-chinh--------------------------------}
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
writeln('Tong cua hai so la: ',tong(a,b):4:2);
writeln('Hieu cua hai so la: ',hieu(a,b):4:2);
writeln('Tich cua hai so la: ',tich(a,b):4:2);
if b<>0 then writeln('Thuong cua hai so la: ',thuong(a,b):4:2)
else writeln('Khong tinh duoc thuong cua hai so vi so chia bang 0');
readln;
end.


Các câu hỏi tương tự
Anh Thư
Xem chi tiết
Nguyễn Thị Tươi
Xem chi tiết
Hải Títt
Xem chi tiết
Trần Thị Hương Ly
Xem chi tiết
Hà Phương
Xem chi tiết
Trần văn tuấn
Xem chi tiết
Quỳnh Anh
Xem chi tiết
Quỳnh Anh
Xem chi tiết
Hoàng lĩnh
Xem chi tiết