Ví dụ và làm việc với tệp | Lớp 11, Tin học - Ôn Luyện

Ghi dãy s đó vào file ố.. có tên BAITAP.INP..[r]

Đ ng H u Hoàng ặ ữ

BÀI 16

Quan sát sách giáo khoa trang 87, m t tr ộ ườ ng

Vi t ch ế ươ ng trình đ c các c p t a đ t file ọ ặ ọ ộ ừ TRAI.TXT Tính r i đ a ra màn hình kho ng ồ ư ả cách gi a tr i c a m i giáo viên ch nhi m ữ ạ ủ ỗ ủ ệ

v i tr i c a th y hi u tr ớ ạ ủ ầ ệ ưở ng.

Quan sát ch ươ ng trình

Cho ba đi n tr R1, R2, R3 S d ng c ba ệ ở ử ụ ả

đi n tr đ t o ra năm m ch đi n có đi n ệ ở ể ạ ạ ệ ệ

tr t ở ươ ng đ ươ ng khác nhau b ng cách m c ằ ắ theo s đ (hình 17 _trang 88 _ SGK) Cho ơ ồ file văn b n RESIST.DAT g m nhi u dòng ả ồ ề

m i dòng ba s th c R1, R2, R3, các s cách ỗ ố ự ố

nhau m t d u cách, ộ ấ 0< R1, R2, R3<10 5

Vi t ch ế ươ ng trình đ c d li u t file ọ ữ ệ ừ

RESIST.DAT, Tính các đi n tr t ệ ở ươ ng đ ươ ng

và ghi k t qu ra file văn b n RESIST.EQU, ế ả ả

m i dòng ghi năm đi n tr t ỗ ệ ở ươ ng đ ươ ng c a ủ

ba đi n tr dòng d li u vào t ệ ở ở ữ ệ ươ ng ng ứ

Quan sát ch ươ ng trình

Đ c vào n m t dãy s nguyên ọ ộ ố (n<=100) Ghi dãy s đó vào file ố

có tên BAITAP.INP

Program Bai_tap_1;

Uses crt;

Var tep2: TEXT;

A:ARRAY[1 100] of Integer; i,n:integer;

Begin Clrscr;

ASSIGN(tep2, ‘D:\BAITAP.INP’); REWRITE (tep2);

- Khai báo

- G n tên fileắ

- M file ra đ ghiở ể

- Nh p s lậ ố ượng ph n t trong m ng; ầ ử ả

For i:=1 to n do Begin

Write(‘Nhap so thu ',i,'=');

Readln(A[i]);

Write(tep2,A[i]);

End;

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

- Ghi ra file BAITAP.INP;

Readln;

END

Quan sát ch ươ ng trình

Nh n F3 đ m ấ ể ở BAITAP.INP

xem n i dungộ

N i dung file ộ

BAITAP.INP

M file Baitap.inp, in dãy s trong ở ố file ra màn hình Tính t ng c a các ổ ủ

dãy s đó ố

- Khai báo Program Bai_tap_2;

Uses crt;

Var tep: TEXT;

A:ARRAY[1 100] of Integer; S,i,n:Integer;

- G n tên fileắ

Begin Clrscr;

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

- M file ra đ đ cở ể ọ RESET(tep);

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

- Dãy s nguyên ố (không bi t ế

bao nhiêu s nh ng v n in ố ư ẫ

ra đ ượ c)

WHILE NOT(EOF(tep)) DO Begin

- Đ c d li u t file ọ ữ ệ ừ

BAITAP.INP;

Readln(tep,A[i]);

Write(A[i]:5);

S:=S+A[i];

End;

- Đóng file Close(tep);

Readln;

END

- In ra màn hình dãy s ;ố

- Tính t ng;ổ Writeln('Tong cua day so la : ',S);

Writeln;

Quan sát ch ươ ng trình

D N DÒ Ặ

1 Xem tr ướ c bài §17_ “Ch ươ ng trình con và phân lo i” ạ _Trang 91 _ Sách giáo khoa

2 Th c hi n câu h i 1, 2, 3, 4 _ trang 89 _Sách Giáo khoa ự ệ ỏ