hepl me . viết chương trình tính chu vi và diện tích hình tam giác, chữ nhật ,bình hành ,hình tròn ,vuông

0 bình luận về “hepl me . viết chương trình tính chu vi và diện tích hình tam giác, chữ nhật ,bình hành ,hình tròn ,vuông”

1. Câu 1: Chu vi và diện tích hình tam giác:

   Uses crt;
   Var a, b, c, cv, s: real;
   Begin
   Clrscr;
   Write(‘Nhap a, b, c: ‘); readln(a, b, c);
   cv:=a+b+c;
   s:=sqrt(p*(p-a)*(p-b)*(p-c));
   Writeln(‘Chu vi la: ‘,cv,’. Dien tich la: ‘,s);
   Readln
   end.

   Câu 2: Chu vi và diện tích hình chữ nhật:

   Uses crt;
   Var a, b, cv, s: real;
   Begin
   Clrscr;
   Write(‘Nhap a, b: ‘); readln(a, b);
   cv:=(a+b)*2;
   s:=a*b;
   Writeln(‘Chu vi la: ‘,cv,’. Dien tich la: ‘,s);
   Readln
   end.

   Câu 3: Chu vi và diện tích hình bình hành:

   Uses crt;
   Var a, b, h, cv, s: real;
   Begin
   Clrscr;
   Write(‘Nhap a, b, h: ‘); readln(a, b, h);
   cv:=(a+b)*2;
   s:=a*h;
   Writeln(‘Chu vi la: ‘,cv,’. Dien tich la: ‘,s);
   Readln
   end.

   Câu 4: Chu vi và diện tích hình tròn:

   Uses crt;
   Var r, cv, s: real;
   Const pi=3.14;
   Begin
   Clrscr;
   Write(‘Nhap a, b: ‘); readln(a, b);
   cv:=pi*r*2;
   s:=pi*sqr(r);
   Writeln(‘Chu vi la: ‘,cv,’. Dien tich la: ‘,s);
   Readln
   end.

   Câu 5: Chu vi và diện tích hình vuông:

   Uses crt;
   Var a, cv, s: real;
   Begin
   Clrscr;
   Write(‘Nhap a: ‘); readln(a);
   cv:=a*4;
   s:=sqr(a);
   Writeln(‘Chu vi la: ‘,cv,’. Dien tich la: ‘,s);
   Readln
   end.

   Bình luận

2. uses crt;

   var a,b,c,p,S: real;

   begin 

           clrscr;

           write (‘Nhap a,b,c= ‘);

           readln (a,b,c);

           p:= a + b + c;

           S:= sqrt(p*(p-a)*(p-b)*(p-c));

           writeln (‘ Chu vi P va dien tich S la ‘, P, S);

           readln;

   end.

     * Tương tự có:

       – Chu vi hình chữ nhật = (a+b)*2, Diện tích=a*b

       – Chu vi hình bình hành= (a+b)*2, Diện tích=a*h

       – Chu vi hình tròn= $\pi$*r, Diện tích= $\pi$*r*r

       – Chu vi hình tròn= 4a, Diện tích= $a^{2}$ 

         

   Bình luận