Sau đó, nếu chúng là ba số đo của ba cạnh một tam giác thì dạng của tam giác phụ thuộc vào bình phương của cạnh lớn nhất nhỏ hơn hay bằng hay lớn hơn tổng hai bình phương của hai cạnh cò[r]
(1)5) Xét biến thiên và phụ thuộc Xét bài toán sau : “Viết chương trình cho máy nhập vào cạnh tam giác Xét xem ba số đó có phải là ba cạnh tam giác hay không? có thì tam giác đó là tam giác có ba góc nhọn hay tam giác vuông hay tam giác tù? ” Trước hết, học sinh phải kiểm tra ba số thực phải thỏa mãn điều kiện là ba số đo tam giác Tức là số phải nhỏ tổng hai số còn lại (điều này xảy với ba số) Sau đó, chúng là ba số đo ba cạnh tam giác thì dạng tam giác phụ thuộc vào bình phương cạnh lớn nhỏ hay hay lớn tổng hai bình phương hai cạnh còn lại mà nó là tam giác có ba góc nhọn hay tam giác vuông hay tam giác tù Var p,q,r: Real; Function Ktra(x, y, z: Real): Boolean; Begin Ktra := (x < y + z) And (y < x + z) And (z < x + y); End; Procedure Nhap(Var a, b, c: Real); Begin Writeln('Nhap vao ba canh cua tam giac: '); Repeat Write('Nhap dai canh thu nhat: '); Readln(a); Write('Nhap dai canh thu hai : '); Readln(b); Write('Nhap dai canh thu ba : '); Readln(c); If Not Ktra(a, b, c) Then Writeln('Ba dai vua nhap khong phai la canh tam giac! Nhap lai:'); Until Ktra(a, b, c); End; (2) Procedure DangTG(m, n, p: Real); Var tg: Real; Begin If m < n Then Begin tg := n; n := m; m := tg; End; If m < p Then Begin tg := p; p := m; m := tg; End; m := sqr(m); n := sqr(n); p := sqr(p); If m < n + p Then Writeln('la tam giac co ba goc nhon!') Else If m = n + p Then Writeln('La tam giac vuong!') Else Writeln('La tam giac co mot goc tu!'); End; Begin Nhap(p, q, r); DangTG(p, q, r); Readln End (3)