Giúp em bài tập Pascal (về tệp) này dzới Y_Y

[leila14081990]

Ông thầy mới cho bài này thui thì cả lớp bí hết lun rùi ! Các bác nèo pro hãy giúp em dzới :cry: Thanks !!!
Viết các chương trình, mỗi chương trình thực hiện 3 chức năng (các chức năng sẽ là các thủ tục hoặc hàm) :
1/ Chức năng 1 :
- tạo 1 tệp gồm n số nguyên, với n>0 và n<100. Tên tệp do người dùng nhập vào
2/ Chức năng 2 : chức năng 2 là 1 trong các chức năng sau :
- Tính tổng các số nguyên trên tệp vừa tạo.
- Tính tổng các số nguyên trên tệp mà các số nguyên đó là số lẻ.
- Tính tổng các số nguyên trên tệp mà các số nguyên đó là số chẵn.
- Tính tổng các số nguyên trên tệp mà các số nguyên đó là số âm.
- Tính tổng các số nguyên trên tệp mà các số nguyên đó là số dương.
- Đếm số các số âm trên tệp.
- Đếm số các số dương trên tệp.
- Đếm số các số lẻ trên tệp.
- Đếm số các số chẵn trên tệp.
- Nhập vào một số nguyên k, kiểm tra giá trị của k trùng với giá tr5i nào trên tệp không ?
3/ Chức năng 3 : Xuất các thông báo kết quả tương ứng.


PS : Chức năng 2 em ko hiểu cho lém & cũng ko hiểu làm seo cho nó liên kết dzới chức năng 1 >< !

 

[=kiug=]

Ông thầy mới cho bài này thui thì cả lớp bí hết lun rùi ! Các bác nèo pro hãy giúp em dzới :cry: Thanks !!!
Viết các chương trình, mỗi chương trình thực hiện 3 chức năng (các chức năng sẽ là các thủ tục hoặc hàm) :
1/ Chức năng 1 :
- tạo 1 tệp gồm n số nguyên, với n>0 và n<100. Tên tệp do người dùng nhập vào
2/ Chức năng 2 : chức năng 2 là 1 trong các chức năng sau :
- Tính tổng các số nguyên trên tệp vừa tạo.
- Tính tổng các số nguyên trên tệp mà các số nguyên đó là số lẻ.
- Tính tổng các số nguyên trên tệp mà các số nguyên đó là số chẵn.
- Tính tổng các số nguyên trên tệp mà các số nguyên đó là số âm.
- Tính tổng các số nguyên trên tệp mà các số nguyên đó là số dương.
- Đếm số các số âm trên tệp.
- Đếm số các số dương trên tệp.
- Đếm số các số lẻ trên tệp.
- Đếm số các số chẵn trên tệp.
- Nhập vào một số nguyên k, kiểm tra giá trị của k trùng với giá tr5i nào trên tệp không ?
3/ Chức năng 3 : Xuất các thông báo kết quả tương ứng.


PS : Chức năng 2 em ko hiểu cho lém & cũng ko hiểu làm seo cho nó liên kết dzới chức năng 1 >< !

Cái đề này cần giải thích rõ hơn phần n, phải do ng` dùng nhập n vào chứ.
Còn về cách liên kết, ban đầu bạn viết 1 cái procedure b1 dùng để tạo n số nguyên trên ( dùng assign và rewrite). Tiếp đến bạn là tiếp tục 1 procedure b2 dùng để làm các yêu cầu trên, bạn dùng assign và reset để đọc file vừa mới tạo trên b1. procedure còn lại dùng để bạn xuất kết quả ra, tùy thuộc vào bạn muốn xuất ra màn hình hay xuất ra file, nếu ra file thì phần const phía trên khai báo thêm 1 fo='ten.out'; nữa là xong.

P.s: có gì sai sót mong thông cảm, cũng lâu rồi ko đụng đến pascal.

 

[ack]

Ông thầy mới cho bài này thui thì cả lớp bí hết lun rùi ! Các bác nèo pro hãy giúp em dzới :cry: Thanks !!!
Viết các chương trình, mỗi chương trình thực hiện 3 chức năng (các chức năng sẽ là các thủ tục hoặc hàm) :
1/ Chức năng 1 :
- tạo 1 tệp gồm n số nguyên, với n>0 và n<100. Tên tệp do người dùng nhập vào
2/ Chức năng 2 : chức năng 2 là 1 trong các chức năng sau :
- Tính tổng các số nguyên trên tệp vừa tạo.
- Tính tổng các số nguyên trên tệp mà các số nguyên đó là số lẻ.
- Tính tổng các số nguyên trên tệp mà các số nguyên đó là số chẵn.
- Tính tổng các số nguyên trên tệp mà các số nguyên đó là số âm.
- Tính tổng các số nguyên trên tệp mà các số nguyên đó là số dương.
- Đếm số các số âm trên tệp.
- Đếm số các số dương trên tệp.
- Đếm số các số lẻ trên tệp.
- Đếm số các số chẵn trên tệp.
- Nhập vào một số nguyên k, kiểm tra giá trị của k trùng với giá tr5i nào trên tệp không ?
3/ Chức năng 3 : Xuất các thông báo kết quả tương ứng.


PS : Chức năng 2 em ko hiểu cho lém & cũng ko hiểu làm seo cho nó liên kết dzới chức năng 1 >< !

"tệp" là rì vậy bạn...?
Mà cái đề này dễ òm mà. Cho mấy cái input vào 1 cái array, rồi dùng vòng lặp mà tính. Chẳng lẽ bạn ko KT dc số lẻ, chẵn , âm, dương sao??
Còn cái câu cuối thì cứ đi hết cái array rồi check là okie thui ::)

 

[forgottomorow]

Tạo tệp bạn dùng lệnh Assign, Reset, rewrite, Append.