Viết chương trình đọc ra từ tệp bt1.int 3 số thực a, b, c rồi ghi vào tệp bt2.out chu vi và diện tích của tam giác tạo bởi a, b, c nếu a, b, c là 3 cạnh của tam giác và ngược lại ghi vào tệp bt2.out là 3 cạnh a, b, c không là 3 cạnh của tam giác
Viết chương trình đọc ra từ tệp bt1.int 3 số thực a, b, c rồi ghi vào tệp bt2.out chu vi và diện tích của tam giác tạo bởi a, b, c nếu a, b, c là 3 cạnh của tam giác và ngược lại ghi vào tệp bt2.out là 3 cạnh a, b, c không là 3 cạnh của tam giác
program LN;
uses crt;
var f,f1:text;
a,b,c:integer;
p,s:real;
begin
assign(f,’bt1.inp’);reset(f);
assign(f1,’bt2.out’);rewrite(f1);
read(f,a,b,c);
if (a+b>c) or (b+c>a) or (a+c>b) then
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
end
else writeln(f1,’3 canh a,b,c khong la 3 canh cua tam giac’);
writeln(f1,’cv: ‘,p*2:2:0,’; dien tich: ‘,s:2:0);
close(f1);
end.
uses crt;
var f1,f2:text;
a,b,c:integer;
p,s:real;
begin
assign(f1,’bt1.inp’); reset(f1);
assign(f2,’bt2.out’); rewrite(f2);
read(f1,a,b,c);
if (a+b>c) or (b+c>a) or (a+c>b) then
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
end
else writeln(f2,’3 canh a,b,c khong la 3 canh cua tam giac’);
writeln(f2,’Chu vi la: ‘,p*2:4:2,’,dien tich la: ‘,s:4:2);
close(f1); close(f2);
end.