uses crt;
var N,i: integer;
T1,T2: text;
function ChuVi: real;
var a,b,c: real;
begin
ChuVi:= a+b+c;
end;
function DienTich: real;
var a,b,c,p: real;
begin
p:= (a+b+c)/2;
DienTich:= sqrt(p*(p-a)*(p-b)*(p-c));
end;
begin
clrscr;
assign (T1, ‘TAMGIAC.DAT’);
reset (T1);
assign (T2, ‘TAMGIAC.OUT’);
rewrite (T2);
readln (T1, N);
for i:=1 to N do
writeln (T2, ‘Dien tich tam giac la’, DienTich);
writeln (T2, ‘Chu vi tam giac la’, ChuVi);
close (T1);
close (T2);
readln
end.
Mình bị lỗi 206 tràn dấu phẩy động ở dòng tính diện tích. Bạn nào giúp với ạ :(((
$#BenokM1155A$
bạn ơi, bạn bỏ end; đi ạ
ko thì bị lỗi đó, để end; vào cuối,
writeln (T2, ‘Dien tich tam giac la’, DienTich);
writeln (T2, ‘Chu vi tam giac la’, ChuVi);
close (T1);
close (T2);
readln
end.