Tin học Viết chương trình tính tổng

Trâm Nguyễn Thị Ngọc said:

Mã:

Var
 a:array[1..100] of integer;
 n,t,i:integer;
Begin
 assign(fi,'dulieu.txt');reset(fi);
 assign(fo,'dulieu.txt');rewrite(fo);
 read(fi,n);
 For i:=1 to n do read(fi,a[i]);
 for i:=1 to n do
  if (a[i] mod 3=0) then t:=t+a[i];
 write(fo,t);
 Close(fi);Close(fo);
END.

Bấm để xem đầy đủ nội dung ...

lehongli said:

Không khai fi fo thuộc gì liệu có ok không bạn,
Nếu không thì thay fi bằng input, fo bằng output luôn khỏi khai báo nhỉ.

Bấm để xem đầy đủ nội dung ...

Trâm Nguyễn Thị Ngọc said:

Chết, mình nhầm. Phải khai báo fi,fo:text nữa.
Nếu thay = input và output thì cũng phải khai báo chứ nhỉ?

Bấm để xem đầy đủ nội dung ...

lehongli said:

Không cần bạn ơi, mình từng làm rồi, và input, output cũng là từ khóa mặc định dành cho kiểu này rồi nên không cần khai báo. Bạn thử xem lệnh nếu dùng input kiểu đó thì các lệnh read, write có cần thêm như này không read(input,...); write(output,....); hay read(...); write(...); là đủ. Mình không nhớ rõ.
Với bài mà vừa đọc vừa làm trong một file dễ sai trầm trọng lắm, ghi đè rồi đọc nhầm này nọ nữa.
assign(input,'dulieu.txt');reset(input);
assign(output,ketqua.txt');rewrite(output);

Mà thôi đừng làm kiểu input output đó làm gì,
Khai báo kiểu fi, fo dành cho bài mà dùng nhiều file vào, ra.

Bấm để xem đầy đủ nội dung ...