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

[Phan Gia Huy]

[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.

giả sử tệp DULIEU.TXT chứa các số nguyên, các số phân cách nhau bởi dấu cách. Viết chương trình tính tổng các phần tử chia hết cho 3 trong tệp

 

[Trâm Nguyễn Thị Ngọc]

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.

 

[lehongli]

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.

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ỉ.

 

[Trâm Nguyễn Thị Ngọc]

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ỉ.

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ỉ?

 

[lehongli]

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ỉ?

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.

 

[Trâm Nguyễn Thị Ngọc]

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.

Thì ra là vậy, mình không biết
bài này mình làm giống bên file inp và out thôi, txt thì chưa học