intTypePromotion=1
zunia.vn Tuyển sinh 2024 dành cho Gen-Z zunia.vn zunia.vn
ADSENSE

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

165
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ủ đề:
Lưu

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

  1. Bµi 18 Gi¸o ¸n ®iÖn tö tin häc líp 11
  2. 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
  3. - 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.
  4. 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 -
  5. NhÊn F3 ®Ó më tÖp BAITAP.INP xem néi dung. Néi dung tÖp BAITAP.INP
  6. 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);
  7. - 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.
ADSENSE

CÓ THỂ BẠN MUỐN DOWNLOAD

 

Đồng bộ tài khoản
2=>2