Viết chương trình, tính và in ra màn hình với chiều dài và chiều rộng từ bàn phím

0 bình luận về “Viết chương trình, tính và in ra màn hình với chiều dài và chiều rộng từ bàn phím”

1. Program chuongtrinh;

   Uses crt;

   Var a,b:integer ;

   Begin

   Write ( ‘nhap chieu dai cua hinh chu nhat’,a);

   Readln(a);

   Write(‘nhap chieu rong cua hinh chu nhat’,b);

   Readln

   End.

   Trong đề bài đâu có yêu cầu tính chu vi với diện tích đâu nhỉ?

   Bình luận

2. 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