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.