Viết chương trình con – diện tích tam giác – Diện tích hình chữ nhật

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

1. *Diện tích tam giác:

   uses crt;
   var a,b,c,p:extended;
   {—Ham-dien-tich—}
   function s(a,b,c,p:extended):real;
   begin
         if ((a+b)>c) and ((b+c)>a) and ((a+c)>b) then
               begin
                     p:=(a+b+c)/2;
                     s:=sqrt(p*(p-a)*(p-b)*(p-c));
               end;
   end;
   {—Chuong-trinh-chinh—}
   BEGIN
         clrscr;
         p:=0;
         write(‘Nhap a,b,c: ‘); readln(a,b,c);
         write(‘Dien tich: ‘,s(a,b,c,p):0:2);
         readln;
   END.

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

   uses crt;
   var a,b:extended;
   {—Ham-dien-tich—}
   function s(a,b:extended):real;
   begin
         s:=a*b;
   end;
   {—Chuong-trinh-chinh—}
   BEGIN
         clrscr;
         write(‘Nhap do dai chieu dai: ‘); readln(a);
         write(‘Nhap do dai chieu rong (b<a): ‘); readln(b);
         write(‘Dien tich hinh chu nhat: ‘,s(a,b):0:2);
         readln;
   END.

   Bình luận

2. Diện tích tam giác :

   Writeln(‘TINH DIEN TICH TAM GIAC:’);
       Write(‘nhap a =’);readln(a);
       Write (‘nhap b =’);readln(b);
       Write(‘nhap c =’);readln(c);
       If ((a+b)>c)and((b+c)>a)and((a+c)>b) then
       Begin
            p:=(a+b+c)/2;
            s:=sqrt(p*(p-a)*(p-b)*(p-c));
            Writeln(‘Chu vi tam giac:’,2*p:4:2) ;
            Writeln(‘Dien tich tam giac:’,s:4:2);
        End

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

   Begin
        Writeln(‘TINH DIEN TICH HINH CHU NHAT:’);
        Write(‘Nhap chieu dai a =’);readln(a);
        Write(‘Nhap chieu rong b= ‘);readln(b);
        s:= a*b;
        Writeln(‘Dien tich hinh chu nhat, s= ‘,s:6:2);
   End;

   Bình luận