Được gửi bởi
macvosong
các bạn có thể giúp mình làm mẫu bài nay ko? mình chỉ không biết nên xử lý các tập tin input và out put thế nào thôi
đề :
- Đọc số nguyên dương n từ tập từ tập tin input.txt (n<=100)
- Tính kết quả của biểu thức T với : T=1-2+3-4+...n
- Ghi các kết quả ra tập tin output.txt
các bạn giúp minh giải bài này với nhe.thanks nhìu
Code:
Uses crt;
Var
F,F1:text;
n,i,s,t,s2:integer;
BEGIN
Clrscr;
Assign(F,'input.txt');
Reset(F);
Assign(F1,'output.txt');
Rewrite(F1);
Read(F,n);
s:=0;
s2:=0;
For i:=1 to n do
Begin
If i mod 2=1 then s:=s+i
Else s2:=s2+i;
End;
Write(F1,s-s2);
Close(F);
Close(F1):
END.
Bookmarks