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

[Bé@^@heo]

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

Viết chương trình đọc dữ liệu từ tệp songuyen. TXT có cấu trúc như sau:
- dòng thứ nhất chứa một số nguyên N là lượng phân tử của dãy
- dòng thứ hai chứa n số nguyên các số cách nhau bởi dấu cách.
Tính tổng các số chẵn trong dãy và ghi kết quả vào tệp Ketqua. TXT

Mong mọi người giúp em với ạ.Mai em lamf kiểm tra rồi. ~T_T~

 

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

Viết chương trình đọc dữ liệu từ tệp songuyen. TXT có cấu trúc như sau:
- dòng thứ nhất chứa một số nguyên N là lượng phân tử của dãy
- dòng thứ hai chứa n số nguyên các số cách nhau bởi dấu cách.
Tính tổng các số chẵn trong dãy và ghi kết quả vào tệp Ketqua. TXT

Mong mọi người giúp em với ạ.Mai em lamf kiểm tra rồi. ~T_T~

For i:=1 to n do
 if a[i] mod 2=0 then t:=t+a[i];

Code để tính tổng các số chẵn đây ạ, h chỉ cần thêm phần khai báo, nhập và in là được rồi

 

[Bé@^@heo]

Bạn có thể ghi khai báo luôn đc không ?Mình không biet làm

For i:=1 to n do
 if a[i] mod 2=0 then t:=t+a[i];

Code để tính tổng các số chẵn đây ạ, h chỉ cần thêm phần khai báo, nhập và in là được rồi

Mong bạn giúp cho .Mình mới học bài này rồi cô phán bài tập luôn .Huhuhu

 

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

Var
 a:array[1..100] of integer;
 t,i,n:integer;fi,fo:text;
Begin
 assign(fi,'sonnguyen.inp');reset(fi);
 assign(fo,'ketqua.out');rewrite(fo);
 readln(fi,n);
t:=0;
 For i:=1 to n do read(fi,a[i]);
 For i:=1 to n do
   if a[i] mod 2=0 then t:=t+a[i];
 write(fo,t);
Close(fi);close(fo);
End.

Cái này em làm theo file inp, file out, có gì chị sửa lại thành txt nha vì em không rành phần này lắm, làm vào chắc không được đúng

 

[Bé@^@heo]

Var
 a:array[1..100] of integer;
 t,i,n:integer;fi,fo:text;
Begin
 assign(fi,'sonnguyen.inp');reset(fi);
 assign(fo,'ketqua.out');rewrite(fo);
 readln(fi,n);
t:=0;
 For i:=1 to n do read(fi,a[i]);
 For i:=1 to n do
   if a[i] mod 2=0 then t:=t+a[i];
 write(fo,t);
Close(fi);close(fo);
End.

Cái này em làm theo file inp, file out, có gì chị sửa lại thành txt nha vì em không rành phần này lắm, làm vào chắc không được đúng

Cảm ơn bạn nhiều

Cảm ơn bạn nhiều

Mà bạn ơi ,mình có cần dùng hàm chuẩn không?
Mà có thì dùng hàm eof hay eoln?

 

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

Mà bạn ơi ,mình có cần dùng hàm chuẩn không?
Mà có thì dùng hàm eof hay eoln?

Dùng để làm gì thế chị, tính tổng hở, dùng cũng đc mà không cũng đc vì em thấy code thế là ổn rồi mà

 

[Bé@^@heo]

Dùng để làm gì thế chị, tính tổng hở, dùng cũng đc mà không cũng đc vì em thấy code thế là ổn rồi mà

Vì chị sợ bà cô bắt lỗi,sai 1 bả trừ hết bài T^T

 

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

Vì chị sợ bà cô bắt lỗi,sai 1 bả trừ hết bài T^T

Ồ, thế thì em cũng không rõ lắm vì em không biết GV cấp 3 họ chấm thế nào nữa, nếu là kq thì đúng nhưng không biết có bị trừ điểm ko, anh @Trương Văn Trường Vũ vào góp ý giúp em

 

[Bé@^@heo]

Ồ, thế thì em cũng không rõ lắm vì em không biết GV cấp 3 họ chấm thế nào nữa, nếu là kq thì đúng nhưng không biết có bị trừ điểm ko, anh @Trương Văn Trường Vũ vào góp ý giúp em

Vậy dùng hàm hay không cũng đc phải không bạn ?

 

[Deathheart]

bạn ơi hàm eof là end of file nghĩa là khi nào chưa đọc hết file inp thì sẽ đọc tiếp
còn eoln là end of line là chưa đọc hết dòng thì đọc tiếp
Khi dùng 2 code này (cũng được thôi, dùng cho chắc =))) thì là while not eof(f) do
while not eoln do (đọc file)