tiet 39.ppt

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 dữ liệu từ file BAITAP.INP; - In ra màn hìn

Tuần: 30

Tiết: 39

Ngày dạy: / ./ 2009

Tuần: 30

Tiết: 39

Ngày dạy: / ./ 2009

CHƯƠNG V: TỆP VÀ THAO TÁC VỚI TỆP

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;

{k:integer}

- Gán tên tệp;

Begin Clrscr;

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]); {readln(k);}

Write(tep2,A[i],’ ‘); {write(tep2,k);`} End;

Write(‘Nhap n = ');Readln(n);

- Đọc vào mảng;

- Ghi ra tệp BAITAP.INP;

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

-

Nhấn F3 để mở

tệp BAITAP.INP

xem nội dung.

- Khai báo;

Program Bai2;

Uses crt;

Var tep: TEXT;

S,i,n:Integer;

- Gán tên tệp;

Begin Clrscr;

ASSIGN(tep, 'D:\TP\BAITAP.INP’);

- Mở tệp ra để đọc; RESET(tep);

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ố đó

pascal

- Gán tổng của dãy = 0;

Write(i:5);

S:=S+i;

End;

readln(tep);

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

WHILE NOT EOLN(Tep) DO Begin

Read(tep,i);

Writeln;