Đề: viết chương trình tính diện tích và chu vi của hình chữ nhật và hình tròn với độ dài cạnh được nhập từ bàn phím

0 bình luận về “Đề: viết chương trình tính diện tích và chu vi của hình chữ nhật và hình tròn với độ dài cạnh được nhập từ bàn phím”

1. *hình chữ nhật

   program HCN;

   uses crt;

   var cd,cr,cv,dt:integer;

     begin

      clrscr;

      write(‘Nhap chieu dai: ‘);   readln(cd);

      write(‘Nhap chieu rong: ‘);   readln(cr);

      cv:=(cd+cr)*2;

      dtL=cd*cr;

      writeln(‘Chu vi la: ‘,cv);

      writeln(dien tich la: ‘,dt);

      readln

   end.

   *hình tròn

   program HT;

   uses crt;

   var r,cv,dt:real;

     begin

      clrscr;

      write(‘Nhap ban kinh: ‘);   readln(r);

      cv:=r*2*3.14;

      dt:=r*r*3.14;

      writeln(‘Chu vi la: ‘,cv);

      writeln(‘Dien tich la: ‘,dt);

      readln

   end.

   Bình luận

2. uses crt;

   var r,a,b,s1,s2,p1,p2: real;

   begin

   clrscr;

   write (‘nhap chieu dai: ‘);  readln (a);

   write (‘nhap chieu rong: ‘);  readln (b);

   write (‘nhap ban kinh: ‘);  readln (r);

   s1:=a*b;

   s2:=r*r*Pi;           {trong pascal đã có sẵn sôs Pi}

   p1:=(a+b)*2;

   p2:=2*r*Pi;

   writeln (‘dien tich HCN: ‘,s1:1:2);

   writeln (‘chu vi HCN: ‘,p1:1:2);

   writeln (‘dien tich hinh tron: ‘,s2:1:2);

   writeln (‘chu vi hinh tron: ‘,p2:1:2);

   readln;

   end.

   CHÚC BẠN CÓ MỘT CƠN MƯA ĐIỂM TỐT TRONG KÌ THI HKI NHÉ !!!!

        

   Bình luận