Viết chương trình tính chu vi và diện tích của hình chữ nhật có chiều dài hai cạnh là a , b ( được nhập từ bàn phím ) A ) Xác định bài toán B) Viết chương trình cần gấp 10 nữa mình nộp rồi mong mn giúp hứa cho 5* làm 2 ý lun nha : chu vi riêng diện tích riêng
2 câu trả lời
XÁC ĐỊNH BÀI TOÁN
- Input : chiều dài a, chiều rộng b
- Output : chu vi , diện tích hình chữ nhật
VIẾT CHƯƠNG TRÌNH TÍNH CHU VI HCN
program chu_vi_hinh_chu_nhat;
var a,b: Integer;
P: Real;
begin
clrscr;
writeln('Nhap cang a'); readln(a);
writeln('Nhap cang b'); readln(b);
P:=(a+b)*2;
writeln('Tinh chu vi hinh chu nhat',P);
readln
end.
VIẾT CHƯƠNG TRÌNH TÍNH DIỆN TÍCH HCN
program chu_vi_hinh_chu_nhat;
var a,b: Integer;
S: Real;
begin
clrscr;
writeln('Nhap cang a'); readln(a);
writeln('Nhap cang b'); readln(b);
S:=a*b;
writeln('Tinh dien tich hinh chu nhat',S);
readln
end.
* Xác định bài toán :
- Input : chiều dài a, chiều rộng b
- Output : chu vi , diện tích hình chữ nhật
* Viết chương trình :
program chu_nhat;
uses crt;
var a, b, cv : integer;
begin
clrscr;
write('nhap chieu dai a :');readln(a);
writeln('nhap chieu rong b :');readln(b);
cv := (a + b) * 2;
writeln('chu vi hinh chu nhat la :', cv);
readln
end.
* * * * * * * * * * * * * * * * * * * *
program chu_nhat;
uses crt;
var a, b, s : integer;
begin
clrscr;
write('nhap chieu dai a :');readln(a);
writeln('nhap chieu rong b :');readln(b);
s := a * b;
writeln('dien tich hinh chu nhat la :', s);
readln
end.