Tin học Tệp

Comic Angel

Học sinh
Thành viên
13 Tháng chín 2017
41
11
21
22
Quảng Nam
[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.

help mee, plsssssssssss

1. tệp văn bản có tên MANG.INP gồm dòng đầu chứa số nguyên n, dòng tiếp theo chứa n phần tử của mảng. viét chương trình đọc dữ liệu từ tệp MANG.INP, tính tổng các phần tử của mảng và ghi lên tệp kq.OUT. trong đó, dòng đầu chứa n phần tử của mảng. dòng thứ 2 chứa tổng các phần tử của mảng(n<=200)
2.tệp DULIEU,INP gồm dòng đầu chứa số nguyên n. dòng tiếp theo chứa n phần tử của mảng. viết chương trình đọc dữ liệu từ tệp DULIEU.OUT. Trong đó, dòng đầu chứa n phần tử của mảng. dòng thứ 2 chứa GTLN.
 

Hoa Tử Anh

Học sinh chăm học
Thành viên
26 Tháng tư 2017
66
31
56
Khánh Hòa
Nếu bạn đã biết kiểu tệp thì 2 bài này cũng cơ bản thôi.
Bài 1: Đọc từ tệp vào
readln(f,n);
For i:=1 to n do read(f,A);
Xử lí tính tổng như bình thường rồi đưa biến tổng ra tệp kq.OUT: writeln(f2,n); writeln(f2,T)
Bài 2: tương tự
 

Thanh Phuong Tran

Học sinh mới
Thành viên
26 Tháng ba 2018
5
3
6
21
TP Hồ Chí Minh
THCS-THPT Đức Trí
Cấu trúc chung cho đọc file nè bạn:
Đọc file:
ASSIGN(f,'[Địa chỉ của file]');
RESET(f);
...
While Not EOF(f) Do
Begin
READ(f,x);
...
End;
...
CLOSE(f);
In file:

ASSIGN(f,'[Địa chỉ của file muốn in ra]');
REWRITE(f);
...
WRITE(f,value);
...
CLOSE(f);

 
  • Like
Reactions: Comic Angel
Top Bottom