[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!
ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đà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.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
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ắm