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 ạ :(((
1 câu trả lờ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.