Sử dụng hàm kiểm tra 3 cạnh của tam giác ABC Dạ giúp em em cần gấp

Sử dụng hàm kiểm tra 3 cạnh của tam giác ABC
Dạ giúp em em cần gấp

0 bình luận về “Sử dụng hàm kiểm tra 3 cạnh của tam giác ABC Dạ giúp em em cần gấp”

  1. uses crt;

    var a,b,c: integer;

    function kt(a,b,c:integer):boolean;

    begin

             if (a+b>c) and (b+c>a) and (a+c>b) then exit(true);

            exit(false);

    end;

    begin

            clrscr;

            write (‘nhap canh thu nhat cua tam giac: ‘);  readln (a);

            write (‘nhap canh thu hai cua tam giac: ‘);  readln (b);

            write (‘nhap canh thu ba cua tam giac: ‘);  readln (c);

            if kt(a,b,c)=true then writeln(‘Day la 3 canh cua tam giac’)

                   else writeln(‘Day khong phai la 3 canh cua tam giac’)

    readln;

    end.

    Bình luận
  2. uses crt;

    var a,b,c: integer;

    begin

    clrscr;

    write (‘nhap canh thu nhat cua tam giac: ‘);  readln (a);

    write (‘nhap canh thu hai cua tam giac: ‘);  readln (b);

    write (‘nhap canh thu ba cua tam giac: ‘);  readln (c);

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

    begin

    if (sqr(a)+sqr(b)=sqr(c)) or (sqr(b)+sqr(c)=sqr(a)) or (sqr(a)+sqr(c)=sqr(b)) then
    write (‘day la tam giac vuong’);

    if (a=b) or (b=c) or (a=c) then write (‘day la tam giac can’);

    if (a=b) and (b=c) then write (‘day la tam giac deu’);

    end

    else writeln (‘3 canh nay ko the tao thanh 1 tam giac’);

    readln;

    end.

    Bình luận

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