Tương tự, chúng ta yêu cầu học sinh giải bài toán sau: “Viết chương trình tìm độ dài 3 đường trung tuyến của một tam giác khi biết ba cạnh của tam giác”..[r]
(1)6) Xét tương tự Xuất phát từ bài toán: “Viết chương trình tìm độ dài đường cao tam giác biết độ dài cạnh tam giác đó” Var a, b, c, S: 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 m, n, p: Real); Begin Repeat Write('Nhap dai canh thu nhat: '); Readln(m); Write('Nhap dai canh thu hai : '); Readln(n); Write('Nhap dai canh thu ba : '); Readln(p); If Not Ktra(m, n, p) Then Writeln('Ba dai vua nhap khong phai la canh tam giac! Nhap lai:'); Until Ktra(a, b, c); End; Function DT :Real; Var d: Real; Begin d := (a + b + c) / 2; DT := sqrt(d * (d - a) * (d - b) * (d - c)); End; Procedure Dcao(m: Real); Begin Writeln('Duong cao qua canh ', m:0:2,' la: ',2 * S / m:0:2); End; (2) Begin Nhap(a, b, c); S:=DT; DCao(a); DCao(b); DCao(c); Readln End Tương tự, chúng ta yêu cầu học sinh giải bài toán sau: “Viết chương trình tìm độ dài đường trung tuyến tam giác biết ba cạnh tam giác” Var a, b, c, S: 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 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; Procedure Trung_Tuyen; Begin Writeln('Trung tuyen qua canh ',a:0:2,' la: ',0.5 * sqrt(2 * (b * b + c * c) - a (3) * a):0:2); Writeln('Trung tuyen qua canh ',b:0:2,' la: ',0.5 * sqrt(2 * (a * a + c * c) - b * b):0:2); Writeln('Trung tuyen qua canh ',c:0:2,' la: ',0.5 * sqrt(2 * (b * b + a * a) - c * c):0:2); End; Begin Nhap(a, b, c); Trung_Tuyen; Readln End (4)