Tính diện tích hình vuông, hình chữ nhật. Viết chương trình Pascal

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

1. Hình chữ nhật:

   Program HINH_CHU_NHAT;
   Uses Crt;
   Var a,b,s,c: real;
   Begin

   Clrscr;
   Writeln(‘ TINH DIEN TICH & CHU VI HINH CHU NHAT:’); 
   Writeln(‘————————————————————–‘); 
   Write(‘Nhap chieu dai=’); readln(a);
   Write(‘Nhap chieu rong=’);readln(b);
   s:=a*b;
   c:=(a+b)*2;
   Writeln(‘Dien tich hinh chu nhat la:’,s:6:2); 
   Writeln(‘Chu vi hinh chu nhat:’,c:6:2); 
   Readln;

   Hình vuông :

   PROGRAM HINH VUONG; 
   {Nhap canh a cua hinh vuong. Tinh chu vi, dien tich cua hinh vuong ay} 
   VAR a:real; 
   BEGIN 
   Write(‘Nhap canh a: ‘);readln(a); 
   Writeln; 
   If a>0 then 

   Bình luận

2. >> Diện tích hình vuông:

   program DT_hinh_vuong;

   ues crt;

         var s, a: real;

   begin

         clrscr;

         writeln(‘Nhap chieu dai canh cua hinh vuong: ‘); readln(a);

         s:=a*a;

         clrscr;

         writeln(‘Dien tich hinh vuong la: ‘, a*a);

         writeln(‘Dap so: ‘, a*a);

         readln

   end.

   >> Diện tích hình chữ nhật:

   program DT_hinh_chu_nhat;

   ues crt;

         var s, a, b: real;

   begin

         clrscr;

         writeln(‘Nhap chieu dai canh a: ‘); readln(a);

         writeln(‘Nhap chieu rong canh b: ‘); readln(b);

         s:=a*b;

         clrscr;

         writeln(‘Dien tich hinh chu nhat la: ‘, a*b);

         writeln(‘Dap so: ‘, a*b);

         readln

   end.

   Bình luận