Một số bài toán với tệpBài 1: Đọc vào một dãy n số nguyên n... Nhấn F3 để mở tệp BAITAP.INP xem nội dung... Tính tổng của dãy số đó.. Các b ớc: Thể hiện bằng pascal.
Trang 1Bµi 16
Trang 2Một số bài toán với tệp
Bài 1: Đọc vào một dãy n số nguyên (n<=100), ghi dãy
số đó vào tệp có tên BAITAP.INP
- Khai báo;
Program bai1;
Uses crt;
Var tep2: TEXT;
A:ARRAY[1 100] of Integer;
i,n:Integer;
- Gán tên tệp;
Begin Clrscr;
ASSIGN(tep2, 'C:\BAITAP.INP’);
Các b ớc: Thể hiện bằng
pascal
Trang 3- NhËp sè l îng phÇn tö
trong m¶ng;
For i:=1 to n do Begin
Write('Doc so thu ',i,'='); Readln(A[i]);
Write(tep2,A[i]);
End;
Write(‘Nhap n = ');Readln(n);
- §äc vµo m¶ng;
- Ghi ra tÖp
DULIEU.INP;
Readln;
END.
Trang 5Nhap vao bao nhieu so : 6
Nhap so thu 1 = 5
Nhap so thu 2 = 7
Nhap so thu 3 = 20
Nhap so thu 4 = 15
Nhap so thu 5 = 1
Nhap so thu 6 = 8
-
Trang 6Nhấn F3 để mở
tệp BAITAP.INP
xem nội dung.
Trang 7- Khai báo;
Program Bai2;
Uses crt;
Var tep: TEXT;
A:ARRAY[1 100] of Integer; S,i,n:Integer;
- Gán tên tệp;
Begin Clrscr;
ASSIGN(tep, 'D:\TP\BAITAP.INP’);
- Mở tệp ra để
Bài 2:
Mở tệp BAITAP.INP, in dãy số trong tệp ra màn hình Tính tổng của dãy số đó
Các b ớc: Thể hiện bằng
pascal
Trang 8- Gán tổng của dãy =
0;
Write(A[i]:5);
S:=S+A[i];
End;
S:=0;
- Dãy số nguyên không
biết bao nhiêu số, nh
ng vẫn đọc ra đ ợc
bằng cách dùng hàm
EOF(tên biến tệp);
- Đóng tệp.
- Đọc dữ liệu từ file
BAITAP.INP;
- In ra màn hình dãy
số;
- Tính tổng; Writeln('Tong cua day so la : ',S);
WHILE NOT( EOF(tep) ) DO Begin
Readln(tep,A[i]);
Writeln;