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

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)

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.

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.

nguyentrantheanh
Xem chi tiết
phan thi huyền trang
26 tháng 1 2016 lúc 20:08

xin loi mjnh quen roi 

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.

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.

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