Viết chương trình ghi vào tep 11a5.txt trong ổ đĩa D ghi 100 dòng I love you. Mỗi dòng có đnahs số thứ tự ở đầu dòng

Question

minhguyrttuanh · Answer

program chuvi_dientich;

var f, g: text; CV, a, b, c: word; S, p: real;

begin

assign(f,’d:\dl.txt’); reset)f);

assign(g,’d:\kq.doc’); rewrite(g);
while not eof(f) do

begin

readln(f,a,’ ‘,b,’ ‘,c);

CV:=a+b+c;

p:=CV/2;

S:=sqrt(p*(p-a)*(p-b)*(p-c)); {cong thuc Heron}

writeln(g,CV:2,’ ‘,S:0:2);

end;

close(f); close(g)

0 bình luận về “Viết chương trình ghi vào tep 11a5.txt trong ổ đĩa D ghi 100 dòng I love you. Mỗi dòng có đnahs số thứ tự ở đầu dòng”