Viết chương trình: tính diện tích hình chữ nhật, hình vuông, hình tam giác vuông

0 bình luận về “Viết chương trình: tính diện tích hình chữ nhật, hình vuông, hình tam giác vuông”

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

   program tinhdientich;
   procedure hv(var s, cv, a: real);

           begin
           s:=a*a;

           cv:=4*a;
           end;

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

   program tinhdientich;
   procedure hv(var s, cv, a: real);

    begin
           s:=a*a;

           cv:=4*a;
           end.

   Diện tích hình tam giác vuông: 

   program tinh dien tich;

   procedure TG(var a, b, cv, s: real);

           begin
           cv:=(a+b+c)/2;
           s:=sqrt(cv*(cv-a)*(cv-b)*(cv-c));
   begin
   write(‘nhap a =’);

   readln(a);
   write (‘nhap b =’);

   readln(b);

   write(‘nhap c =’);

   readln(c);

   end.

   Bình luận

2.  S = a x b

   S = a x a

   S = a x h

   Bình luận