

Viết chương trình có sử dụng chương trình con tính diện tích và chu vi hình thang,kết quả ghi ra tệp hinhthang.txt
Dữ liệu vào là gì thế ạViết chương trình có sử dụng chương trình con tính diện tích và chu vi hình thang,kết quả ghi ra tệp hinhthang.txt
dữ liệu kiểu nào cũng đc ạ !!!!!!Dữ liệu vào là gì thế ạ
Không, ý của em là nhập cái gì vào thế ạ, 4 cạnh và chiều cao hởdữ liệu kiểu nào cũng đc ạ !!!!!!
đúng rồi bạnKhông, ý của em là nhập cái gì vào thế ạ, 4 cạnh và chiều cao hở
đúng rồi bạn
Var
a,b,c,d,h:integer;
Function cv(a,b,c,d,h:integer):integer;
begin cv:=a+b+c+d;
end;
Function s(a,b,c,d,h:integer):integer;
begin s:=1/2*h*(a+d);
end;
Begin
Assign(fi,'hinhthang.inp');reset(fi);
Assign(fo,'hinhthang.out');rewrite(fo);
read(fi,a,b,c,d,h);
writeln(fo,cv(a,b,c,d,h));
write(fo,s(a,b,c,d,h));
Close(fi);close(fo);
End.
bạn ơi có thể viết Cv và S cùng 1 tệp hinhthang,txt khôngMã:Var a,b,c,d,h:integer; Function cv(a,b,c,d,h:integer):integer; begin cv:=a+b+c+d; end; Function s(a,b,c,d,h:integer):integer; begin s:=1/2*h*(a+d); end; Begin Assign(fi,'hinhthang.inp');reset(fi); Assign(fo,'hinhthang.out');rewrite(fo); read(fi,a,b,c,d,h); writeln(fo,cv(a,b,c,d,h)); write(fo,s(a,b,c,d,h)); Close(fi);close(fo); End.
ý của anh/chị là sao ạbạn ơi có thể viết Cv và S cùng 1 tệp hinhthang,txt không
tại thấy bạn gắn tên 2 tệp là hinhthang.inp và hình thang.out nên mình thắc mắc là có thể gắn fi vs fo vào cùng 1 tệp hinhthang.txt khôngý của anh/chị là sao ạ
Nếu anh/chị muốn đổi sang txt thì chắc phải sd 2 tệp vì 1 cái để lấy dữ liệu còn cái kia là để in ra, mà cũng tùy vào đề nữa, em không rành phần txt này lắmtại thấy bạn gắn tên 2 tệp là hinhthang.inp và hình thang.out nên mình thắc mắc là có thể gắn fi vs fo vào cùng 1 tệp hinhthang.txt không