Những câu hỏi liên quan
Nguyễn Xạ Điêu
Xem chi tiết
Trần Thanh Dương
4 tháng 12 2016 lúc 21:42

1. Khai báo 2 biến: a và b (trong đó: a là chiều dài, b là chiều rộng)
Cho người dùng nhập giá trị vào 2 biến trên

Công thức chu vi:(a+b)*2
Công thức diện tích: a*b

Điều kiện bổ sung:
+ Nếu a <= 0 hoặc b <=0 hoặc cả a,b <=0 => Báo lỗi (Chiều dài không bao giờ âm)!
+ Nếu a=b => Báo lỗi (Hình chữ nhật thì chiều dài không thể bằng chiều rộng)

Bình luận (0)
Kid Kudo Đạo Chích
8 tháng 12 2016 lúc 20:35

de 3

program bt;

uses CRT;
var m,n:integer;
T:real;
BEGIN clrscr;
write('m,n ='); readln(m,n);
writeln('Tong la:',m+n);
writeln('Hieu la:',m-n);
writeln('Tich la:',m*n);
T:=m/n;
writeln('Thuong la:',T);
readln
END.

Bình luận (0)
Kid Kudo Đạo Chích
8 tháng 12 2016 lúc 20:36

de 2

a. Hướng dẫn:

- Nhập hai cạnh vào hai biến a, b.

- Chu vi hình chữ nhật bằng 2*(a+b); Diện tích hình chữ nhật bằng a*b.

b. Mã chương trình:

Program Chu_nhat;

uses crt;

Var a, b, S, CV: real;

Begin

Write('Nhap chieu dai:'); readln(a);

Write('Nhap chieu rong:'); readln(b);

S := a*b;

CV := (a+b)*2;

Writeln('Dien tich hinh chu nhat la:',S);

Writeln('Chu vi hinh chu nhat la:',CV:10:2);

readln

end.

Bình luận (1)
nguyentrantheanh
Xem chi tiết
phan thi huyền trang
26 tháng 1 2016 lúc 20:08

xin loi mjnh quen roi 

Bình luận (0)
tranyennhi
Xem chi tiết
Nguyễn Thị Minh Nhã
1 tháng 5 2017 lúc 8:34

a) Muốn tính diện tích hình tam giác, ta lấy độ dài đáy nhân cới chiều cao, rồi lấy kết quả chia cho 2.

b) Muốn tính diện tích hình thang, ta lấy chiề cao nhân vớitrung bình cộng của tổng hai cạnh đáy.

c) Để tính diện tích xung quanh hình hộp chữ nhật, ta lấy chu vi mặt đáy nhân với chiều cao(cùng một đơn vị đo).

d) Nếu cạnh của một hình vuông gấp lên 3 lần thì diện tích của hình vuông đó gấp lên 9 lần.

e) Nếu cạnh của một hình lập phương gấp lên 3 lần thì thể tích của hình lập phương đó gấp lên 27 lần.

Bình luận (0)
Kien Truong
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 4 2020 lúc 17:39

uses crt;

var a,b,cv,dt:real;

begin

clrscr;

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

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

if (a>0) and (b>0) and (a>=b) then

begin

cv:=(a+b)*2;

dt:=a*b;

writeln('chu vi la: ',cv:4:1);

writeln('dien tich la: ',dt:4:1);

end

else writeln('vui long nhap lai');

readln;

end.

Bình luận (0)
Nga Phạm
Xem chi tiết
nguyễn công minh
Xem chi tiết
Phuc Nguyenhoang
Xem chi tiết
nguyễn công minh
Xem chi tiết
nguyen
Xem chi tiết
Thủ Lĩnh Thẻ Bài SAKURA
8 tháng 1 2017 lúc 16:02

bạn ghi không dấu nên mình không hiểu

Bình luận (0)