Mọi người giúp e với ạ 1.Đọc dữ liệu từ tệp D:\Bai1.Inp giá trị 3 số nguyên a,b,c biết rằng các số trong tệp cách nhau bởi dấu cách 2.Viết chương trình nhập vào từ bàn phím độ dài các cạnh của 1 tam giác lần lượt có giá trị là a, b,c. Hãy thực hiện tính diện tích tam giác sau đố ghi kq vào tệp 'tamgiac.Out'
1 câu trả lời
Câu 1:
var f: text;
a, b, c: integer;
Begin
Assign(f, 'D:\bai1.inp'); reset(f);
Read(f, a, b, c); close(f);
End.
Câu 2:
var f: text;
a, b, c: integer;
s, p: real;
Begin
Write('nhap a, b, c: '); readln(a, b, c);
P:=(a+b+c)/2;
Assign(f, 'tamgiac.out'); rewrite(f);
S:=sqrt(p*(p-a)*(p-b)*(p-c));
Write(f, s); close(f);
End.
