Làm việc với tệp

CHƯƠNG 5. TỆP VÀ THAO TÁO VỚI TỆP
LÀM VIỆC VỚI TỆP

Bài tập 1:
Cho mảng X gồm 7 phần tử thuộc kiểu số nguyên. Viết chương trình thực hiện: Tính số phần tử lẽ trong mảng.
Yêu cầu: Dữ liệu được đọc từ tệp Btap.Int ở đĩa C, kết quả được ghi vào tệp Ketqua.Out ở đĩa C.
Chương trình:
Program vd;
Var f1, f2: text;
X: array [1..7] of integer;
D, i: integer;
Begin
Assign (f1, ’C:Btap.Int’);
Reset (f1);
For i:=1 to 7 do
read (f1, X[i]);
D:=0;
For i:+1 to 7 do
If X[i] mod 2 <> 0 then D:=D + 1;
Assign (f2, ’C:Ketqua.Out’);
Rewrite (f2);
Write (f2, ‘So phan tu le la: ‘, D);
Close (f1) ;
Close (f2) ;
readln
End.

Bài tập 2 :
Cho mảng N gồm 8 phần tử thuộc kiểu số nguyên. Viết chương trình tính và in ra màn hình : tổng bình phương các phần tử lẻ.
Yêu cầu : Dữ liệu được đọc từ tệp Mang.TXT ở đĩa C.

Bài tập 3 :
Cho xâu St có độ dài không quá 30 kí tự. Viết chương trình: Đếm số kí tự ‘o’ (chữ o) có trong xâu.
Yêu cầu: Dữ liệu được đọc từ tệp Xau.txt ở đĩa C, kết quả ghi vào tệp Xau.kq ở đĩa C


Chương trình bài 2:
Program BT_2;
Var f: text;
N: array [1..8] of integer;
S, i: integer;
Begin
Assign (f, ‘C:Mang.TXT’);
Reset (f);
For i:= 1 to 8 do
Read (f, N[i]);
Close (f1);
S:=0;
For i:=1 to 8 do
If N[i] mod 2 <> 0 then S:=S + sqr (N[i]);
Write (‘Tong binh phuong cac phan tu le la: ‘, S);
readln
End.

Chương trình bài 3:
Program TB_3;
Var f1, f2: text;
St: string [30];
D, i: integer;
Begin
Assign (f1, ‘C:Xau.txt’);
Reset (f1);
Read (f1, St);
Close (f1);
D:=0;
For i:= 1 to length (St) do If St[i] = ‘o’ then D:=D + 1;
Assign (f2, ‘C:Xau.kq’);
Rewrite (f2);
Write (f2, D);
Close (f2);
readln
End.







Bài tập 4:
Cho mảng gồm 8 phần tử thuộc kiểu số nguyên. Hãy viết chương trình thực hiện: tìm giá trị lớn nhất trong mảng trên và cho biết vị trí của giá trị này trong mảng.
Bài tập 5:
Cho xâu dài không quá 21 kí tự. Viết chương trình thực hiện:
Cho ra xâu chỉ chứa dấu cách.
Tìm những kí tự ‘a’ và thay thế bằng kí tự ‘e’.
Yêu cầu: Đối với hai bài tập 4 và 5, yêu cầu đều thực hiện dưới dạng tệp.