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,

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 ạ :(((

0 bình luận về “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,”

  1. $#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.

    Bình luận

Viết một bình luận