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]
Trang 15) Xét sự 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 3 cạnh của một tam giác Xét xem ba số đó có phải là ba cạnh của tam giác hay không? nếu
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 của tam giác Tức là một số phải nhỏ hơn tổng của hai số còn lại (điều này xảy ra với cả ba số) 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ò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 do dai canh thu nhat: '); Readln(a);
Write('Nhap do dai canh thu hai : '); Readln(b);
Write('Nhap do dai canh thu ba : '); Readln(c);
If Not Ktra(a, b, c) Then
Writeln('Ba do dai vua nhap khong phai la 3 canh tam giac! Nhap lai:');
Until Ktra(a, b, c);
End;
Trang 2Procedure 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