Cho tệp d:\dl.txt chứa các số nguyên dương, mỗi số cách nhau1 dấu cách. Cứ mỗi cặp 3 số tương ứng là chiều dài 3 cạnh hình tam giác. Viết chương trình tính Chu vi, diện tích của hình tam giác rồi ghi 2 thông tin đó trên 1 dòng cách nhau 1 dấu ‘_’ vào tệp d:\kq.doc.
Mọi người giúp e với e đang cần gấp ạ….
program chuvi_dientich;
var f, g: text; CV, a, b, c: word; S, p: real;
begin
assign(f,’d:\dl.txt’); reset)f);
assign(g,’d:\kq.doc’); rewrite(g);
while not eof(f) do
begin
readln(f,a,’ ‘,b,’ ‘,c);
CV:=a+b+c;
p:=CV/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c)); {cong thuc Heron}
writeln(g,CV:2,’ ‘,S:0:2);
end;
close(f); close(g)
end.
Const Ni=’Dl.TXT’;
Nh=’KQ.DOC’;
Var f,g: text;
a,b,c,s,p: extended;
Begin
Assign(f,Ni); Reset(f);
Assign(g,Nh); Rewrite(g);
While not eof(f) do
Begin
Readln(f,a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Writeln(g,’CV: ‘,2*p:0:2,’ DT: ‘,s:0:2);
End;
Close(f);
Close(g);
End.