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.

Câu hỏi trong lớp Xem thêm