Question

Viết chương trình Pascal nhập từ bàn phím ba số thực a, b, c và kiểm tra xem nó có phải là ba cạnh của 1 tam giác vuông/ tù/ nhọn không.

Gợi ý: Sử dụng bình phương 1 cạnh so sánh với tổng bình phương 2 cạnh còn lại.

Answer 1

program tamgiac;

uses crt;

var max, a, b, c: real;

begin

    clrscr;

    write('Nhap a, b, c: '); readln(a,b,c);

    //Xac dinh 3 canh nhap vao co hop le khong

    if (a < b + c) and (b < a + c) and (c < a + b) then begin

        //Tim canh co do dai lon nhat

        max := a;

        if b > a then max := b; if c > a then max := c;

        //Xac dinh loai tam giac bang Pytago

        if max = b then begin

            if b*b = c*c + a*a then writeln('Tam giac vuong') 

            else if b*b > c*c + a*a then writeln('Tam giac tu')

            else writeln('Tam giac nhon') end

        else if max = c then begin

            if c*c = b*b + a*a then writeln('Tam giac vuong') 

            else if c*c > b*b + a*a then writeln('Tam giac tu')

            else writeln('Tam giac nhon') end

        else begin

            if a*a = b*b + c*c then writeln('Tam giac vuong') 

            else if a*a > b*b + c*c then writeln('Tam giac tu')

            else writeln('Tam giac nhon') end;

        end

    //Neu 3 canh khong hop le thi khong phai tam giac

    else writeln('Khong phai tam giac');

    readln;

end.