program chu_vi; var f,g:text; a,b,c:integer; begin Assign(f,’TamGiac.inp’); reset(f); Assign(g,’TamGiac.out’); rewrite(g); readln(f,a,b,c); write(g,a+b+c); close(f); close(g); end. *ý nghĩa: -Ban đầu khởi tạo tệp inp và out -Sau đó đọc 3 cạnh của tam giác có trong tệp f -Ghi chu vi của tam giác là tổng 3 cạnh và tệp g -Cuối cùng đóng 2 tệp là và kết thúc chương trình. Bình luận
program chu_vi;
var f,g:text;
a,b,c:integer;
begin
Assign(f,’TamGiac.inp’); reset(f);
Assign(g,’TamGiac.out’); rewrite(g);
readln(f,a,b,c);
write(g,a+b+c);
close(f); close(g);
end.
*ý nghĩa:
-Ban đầu khởi tạo tệp inp và out
-Sau đó đọc 3 cạnh của tam giác có trong tệp f
-Ghi chu vi của tam giác là tổng 3 cạnh và tệp g
-Cuối cùng đóng 2 tệp là và kết thúc chương trình.