chỉ mình lập trình pascal diện tích hình vuông đi

0 bình luận về “chỉ mình lập trình pascal diện tích hình vuông đi”

1. Ý tưởng:

   + Nhập cạnh sau đó tính a*a (diện tích).

   Chương trình:

   uses crt;
   var a:extended;
   begin
         clrscr;
         write(‘Nhap canh hinh vuong: ‘); readln(a);
         writeln(‘Dien tich hinh vuong: ‘,a*a:0:2);
         readln;
   end.

   Bình luận

2. program dientichhinhvuong;
   uses crt;
   var canh,dientich:integer;
   begin
   CLRSCR;
   writeLN(‘Nhap canh cua hinh vuong= ‘);
   readLN(canh);
   dientich:=canh*canh;
   writeLN(‘dientich= ‘,dientich);
   readLN();
   end.

   Chúc bạn học tốt !!!!!!!!

   Bình luận