Bài giảng Điện tử Tin học lớp 11: Bài 18

Chia sẻ: Le Ba Thanh | Ngày: | Loại File: PPT | Số trang:9

Thêm vào BST

Báo xấu

166
lượt xem 11
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

Bài giảng Điện tử Tin học lớp 11 - Bài 18: Bài tập với tệp cung cấp cho các em một số bài tập về tệp và khai báo tệp để luyện tập. Chúc các em thực hành hiệu quả.

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: Bài giảng Điện tử Tin học lớp 11: Bài 18

Bµi 18 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
- NhËp sè l-îng phÇn tö trong Write(‘Nhap n = ');Readln(n); m¶ng; For i:=1 to n do - §äc vµo m¶ng; Begin - Ghi ra tÖp DULIEU.INP; Write('Doc so thu ',i,'='); Readln(A[i]); Write(tep2,A[i]); End; - §ã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 -
NhÊn F3 ®Ó më tÖp BAITAP.INP xem néi dung. Néi dung tÖp BAITAP.INP
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 Program Bai2; Uses crt; - Khai b¸o; Var tep: TEXT; A:ARRAY[1 .. 100] of Integer; S,i,n:Integer; Begin Clrscr; - G¸n tªn tÖp; ASSIGN(tep, 'D:\TP\BAITAP.INP’); - Më tÖp ra ®Ó ®äc; RESET(tep);
- G¸n tæng cña d·y = 0; S:=0; - D·y sè nguyªn kh«ng biÕt bao nhiªu sè, nh-ng vÉn ®äc ra WHILE NOT(EOF(tep)) DO ®-îc b»ng c¸ch dïng hµm Begin EOF(tªn biÕn tÖp); Readln(tep,A[i]); Write(A[i]:5); - §äc d÷ liÖu tõ file S:=S+A[i]; BAITAP.INP; End; - In ra mµn h×nh d·y sè; Writeln; - TÝnh tæng; Writeln('Tong cua day so la : ',S); - §ãng tÖp. Close(tep); Readln; END.