sử dụng kiến thức của bài xử lí số tin học 8 tính diện tích tam giác

0 bình luận về “sử dụng kiến thức của bài xử lí số tin học 8 tính diện tích tam giác”

1. Program dientinhtamgiac;
       uses crt;
       var a,c,S: real;
       Begin
       clrscr;
       Write(‘ a:’);readln(a);
       Write(‘ c:’);readln(c);
      S:=1/2.a.c
       Write(‘Dien tich tam giac la:S=’,S);
       readln
       end.

   Bình luận

2. Program TAM_GIAC;
       uses crt;
       var a,b,c,p,S: real;
       Begin
       clrscr;
       Write(‘Nhap canh a:’);readln(a);
       Write(‘Nhap canh b:’);readln(b);
       Write(‘Nhap canh c:’);readln(c);
       p:=(a+b+c)/2;
       S:=sqrt(p*(p-a)*(p-b)*(p-c));
       Write(‘Dien tich tam giac la:’,s:10:2);
       readln
       end.

   Bình luận