Viết chương trình Pascal, tính chu vi, diện tích của hình chữ nhật, hình vuông.

0 bình luận về “Viết chương trình Pascal, tính chu vi, diện tích của hình chữ nhật, hình vuông.”

1. program hvuong;
   uses crt;
   var a, cv, dt : real;
   BEGIN
   clrscr;
   write(‘Nhap canh a= ‘);
   readln(a);
   cv:=4*a;
   dt:=a*a;
   writeln(‘Chu vi = ‘, cv:6:2);
   writeln(‘Dien tich = ‘,dt:6:2);
   readln
   END.

   Bình luận

2. *HÌNH CHỮ NHẬT

   Uses crt;

   Var s, p, a, b: real;

   Begin

        Clrscr;

        Write(‘Nhap chieu dai HCN: ‘); readln(a);

        Write(‘Nhap chieu rong HCN: ‘); readln(b);

        s:=a*b;

        p:=(a+b)*2;

        Writeln(‘Dien tich HCN la: ‘,s1:2:0);

        Writeln(‘Chu vi HCN la: ‘,p1:2:0);

   Readln

   End.

   *HÌNH VUÔNG

   Uses crt;

   Var a, s, p: real;

   Begin

        Clrscr;

        Write(‘Nhap canh a = ‘); readln(a);

        s:=a*a;

        p:=a*4;

        Writeln(‘Chu vi la: ‘,p:0:2);

        Writeln(‘Dien tich la: ‘,s:0:2);

   Readln

   End.

   Bình luận