Đăng Nhập

Vui lòng khai báo chính xác tên truy cập và mật khẩu!

Quên mật khẩu?

    Bài tập về tam giác:dien tich tam giac ,tam giac can,tam giac deu

      Admin
      Admin
      Admin

      Giới tính : Nam

      Đến từ : TPHCM

      Ngày Tham gia : 03/04/2011

      Tổng số bài gửi : 2292

      #1

       Thu Aug 11, 2011 9:31 pm

      Code:
      var xa,xb,xc,ya,yb,yc,a,b,c,s:real;
          DE,CA,VU:BOOLEAN;

      FUNCTION kcach(x1,x2,y1,y2:real):real;
      begin
        kcach:=sqrt(sqr(x1-x2)+sqr(y1-y2));
      end;

      FUNCTION dt(a,b,c:real):real;
        var p:real;
      begin
        p:=(a+b+c)/2;
        dt:=sqrt(p*(p-a)*(p-b)*(p-c));
      end;

      FUNCTION kiemtra(a,b,c:real): boolean;
        var ketqua: boolean;
        begin
       ketqua:=False;
       if (a+b>c) and (a+c>b) and (b+c>a) then ketqua:=True;
          kiemtra:=ketqua;
        end;

       PROCEDURE Tinh_chat(a,b,c : real; Var  deu,can,vuong:boolean);
        Begin
      Deu:=False;  Can:=false;  Vuong:= False;
        IF  (a=b) or (b=c) or (a=c) then Can:= True;
        if (a=b) and (b=c) then  Deu:=True;
        IF (a*a=b*b+c*c)  OR (b*b=a*a+c*c) OR (c*c=a*a+b*b) Then Vuong:=True;
        end;

      BEGIn

       write('nhap toa do dinh A: ' );readln(xa,ya);
       write('nhap toa do dinh B: ');readln(xB,yb);
        write('nhap toa do dinh C: ');readln(xc,yc);
       a:=Kcach(xb,xc,yb,yc);
       b:=kcach(xc,xa,yc,ya);
       c:=kcach(xa,xb,ya,yb);
       if kiemtra(a,b,c) then
       begin
       s:=dt(a,b,c);
       writeln('do dai canh a= ',a:8:2);
       writeln('do dai canh b= ',b:8:2);
        writeln('do dai canh c= ',c:8:2);
       writeln('Chu vi = ',(a+b+c):9:2);
       writeln('dien tich = ',s:9:2);
        tinh_chat(a,b,c,de,ca,vu);
       if de then writeln('DAY LA TAM GIAC DEU ')
        ELSE
        if ca  then writeln('DAY LA TAM GIAC CAN ')
          ELSE
            IF VU then writeln('DAY LA TAM GIAC VUONG ');
              if not(de) and not(ca) and not(vu) then writeln('DAY LA TAM GIAC THUONG ');
       end
       else writeln('khong ton tai tam giac');

      readln;
      end.
      Bài trước | Bài sau