Câu hỏi
thieugia88
19/07/2013 22:03
Giải đáp tin học
hãy tạo 1 tệp 'tamgiac.txt' gồm nhiều dòng , mỗi dòng là độ dài 3 cạnh a,b,c của tam giác. Viết chươg trình tính chu vi, diện tích, dường cao tam giác. ghi kết qả trên ra tệp 'tamgiac.equ' trong ổ D:/ mỗi tam giác là 1 dòng
thutrang
03/07/2013 10:34
Danh sách câu trả lời (1)
thutrang
03/07/2013 10:34
Dùng công thức Heron trong sách hình học lớp 10
Diện tích thì bằng Sqrt(p(p-a)(p-b)(p-b)) trong đó Sqrt là căn bậc hai, p là nửa chu vi bằng (a+b+c)/2
Bị hối làm việc không viết được hết tạm post bài này Chịu khó nha bạn Xin lỗi nhiều
Program tamgiac;
Var a:array[1..3] of real;
f1,f2:text;
p,CV,S:real;
Const fi='Baso.txt';
fo='Kqua.dat';
Procedure Main;
Var i:Byte;
Begin
Assign(f1,fi);
Reset(f1);
Assign(f2,fo);
Rewrite(f2);
While not EOF(f1) do
Begin
For i:=1 to 3 do Read(f1,a);
CV:=a[1]+a[2]+a[3];
p:=CV/2;
S:=p*(p-a[1])*(p-a[2])*(p-a[3]);
S:=sqrt(S);
Writeln(f2,CV:0:2,' ',S:0:2) {Chu vi ghi truoc}
End;
Close(f1);
Close(f2);
End;
Begin
Main;
End.
Diện tích thì bằng Sqrt(p(p-a)(p-b)(p-b)) trong đó Sqrt là căn bậc hai, p là nửa chu vi bằng (a+b+c)/2
Bị hối làm việc không viết được hết tạm post bài này Chịu khó nha bạn Xin lỗi nhiều
Trích dẫn:
Program tamgiac;
Var a:array[1..3] of real;
f1,f2:text;
p,CV,S:real;
Const fi='Baso.txt';
fo='Kqua.dat';
Procedure Main;
Var i:Byte;
Begin
Assign(f1,fi);
Reset(f1);
Assign(f2,fo);
Rewrite(f2);
While not EOF(f1) do
Begin
For i:=1 to 3 do Read(f1,a);
CV:=a[1]+a[2]+a[3];
p:=CV/2;
S:=p*(p-a[1])*(p-a[2])*(p-a[3]);
S:=sqrt(S);
Writeln(f2,CV:0:2,' ',S:0:2) {Chu vi ghi truoc}
End;
Close(f1);
Close(f2);
End;
Begin
Main;
End.
Trả lời câu hỏi
Câu hỏi lĩnh vực Câu hỏi khác
Rao vặt Siêu Vip