- Trang chủ >>
- THPT Quốc Gia >>
- Sinh học
Bài giảng Tin học 11 - Bài 18: Bài tập với tệp
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (239.65 KB, 9 trang )
<span class='text_page_counter'>(1)</span>Bµi 18. Gi¸o ¸n ®iÖn tö tin häc líp 11 Lop11.com.
<span class='text_page_counter'>(2)</span> 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 ThÓ hiÖn b»ng pascal. Các bước :. - Khai b¸o;. Program bai1; Uses crt; Var tep2: TEXT; A:ARRAY[1 .. 100] of Integer; i,n:Integer; Begin Clrscr;. - G¸n tªn tÖp;. ASSIGN(tep2, 'C:\DULIEU.INP’);. - Mở tệp ra để ghi;. REWRITE (tep2);. Lop11.com.
<span class='text_page_counter'>(3)</span> - Nhập số lượngphần tử trong m¶ng;. Write(‘Nhap n = ');Readln(n);. - Ghi ra tÖp DULIEU.INP;. For i:=1 to n do Begin Write('Doc so thu ',i,'='); Readln(A[i]); Write(tep2,A[i]); End;. - §ãng tÖp.. Close(tep2);. - §äc vµo m¶ng;. Readln; END.. Lop11.com.
<span class='text_page_counter'>(4)</span> Lop11.com.
<span class='text_page_counter'>(5)</span> Nhap vao bao nhieu so :. 6. 5 7 20 15 Nhap so thu 5 = 1 Nhap so thu 6 = 8 Nhap so thu 1 = Nhap so thu 2 = Nhap so thu 3 = Nhap so thu 4 =. -. Lop11.com.
<span class='text_page_counter'>(6)</span> Nhấn F3 để mở tÖp BAITAP.INP xem néi dung.. Néi dung tÖp BAITAP.INP. Lop11.com.
<span class='text_page_counter'>(7)</span> 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ố đó. ThÓ hiÖn b»ng pascal. Các bước :. - Khai b¸o;. - G¸n tªn tÖp; - Mở tệp ra để đọc;. Program Bai2; Uses crt; Var tep: TEXT; A:ARRAY[1 .. 100] of Integer; S,i,n:Integer; Begin Clrscr; ASSIGN(tep, 'D:\TP\BAITAP.INP’); RESET(tep);. Lop11.com.
<span class='text_page_counter'>(8)</span> - G¸n tæng cña d·y = 0; - D·y sè nguyªn kh«ng biÕt bao nhiªu sè, nhng vẫn đọc ra đư îc b»ng c¸ch dïng hµm EOF(tªn biÕn tÖp); - §äc d÷ liÖu tõ file BAITAP.INP; - In ra mµn h×nh d·y sè; - TÝnh tæng; - §ãng tÖp.. S:=0; WHILE NOT(EOF(tep)) DO Begin Readln(tep,A[i]); Write(A[i]:5); S:=S+A[i]; End; Writeln; Writeln('Tong cua day so la : ',S); Close(tep); Readln; END.. Lop11.com.
<span class='text_page_counter'>(9)</span> Lop11.com.
<span class='text_page_counter'>(10)</span>
