cho trước 3 số dương a b và c( được nhập từ bàn phím) hãy vt chương trình tính diện tích của tam giác ( nếu nó là 3 cạnh của tam giác ) ngược lại

cho trước 3 số dương a b và c( được nhập từ bàn phím) hãy vt chương trình tính diện tích của tam giác ( nếu nó là 3 cạnh của tam giác ) ngược lại

0 bình luận về “cho trước 3 số dương a b và c( được nhập từ bàn phím) hãy vt chương trình tính diện tích của tam giác ( nếu nó là 3 cạnh của tam giác ) ngược lại”

  1. program BT;

    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);

             if (a>0) and (b>0) and (c>0) then

                if (a+b > c) and (b+c > a) and (a+c > b) then

                begin

                         p:=(a+b+c)/2;

                         S:=p*(pa)*(pb)*(pc);

                         write(‘Dien tich tam giac = ‘,sqrt(S):2:2);

                end

             else write(a:2:2,’, ‘,b:2:2,’, ‘,c:2:2,’ khong la 3 canh tam giac’);

             readln

    End.

    Bình luận
  2. Program BT;
    uses CRT ;
    Var a,b,c,s,p : real;
    Begin
    clrscr;
    repeat
    Write (‘Nhap A : ‘);Readln(a);
    until a > 0;
    repeat
    Write (‘Nhap B : ‘);Readln(b);
    until b > 0;
    repeat
    Write (‘Nhap C : ‘);Readln(c);
    until c > 0;
    If (a+b > c) and (b+c > a) and (a+c > b) then 
    Begin
    p := (a+b+c)/2;
    s := p*(p-a)*(p-b)*(p-c);
    Write (‘Dien tich tam giac la : ‘,sqrt(s):2:4)
    end
    else Write (‘Ba canh ‘,a,’ , ‘,b,’ , ‘,c,’ khong la 3 canh cua 1 tamg giac’);
    end.

    Bài này sử dụng kiến thức về công thức Heron nha bạn (Có trên Wikipedia đấy )

    Bình luận

Viết một bình luận