bài 17 : bài tập với tệp

Bài 16
Gi¸o ¸n ®iÖn tö tin häc líp 11
MỘ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:\DULIEU.INP’);
- Mở tệp ra để ghi;
REWRITE (tep2);
CÁC BƯỚC:
THỂ HIỆN BẰNG PASCAL
- 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;

- Đóng tệp.
Close(tep2);
Readln;
END.

Nhap 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
-