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ượngphần tử trong m¶ng;.[r]
(1)Bµi 18 Gi¸o ¸n ®iÖn tö tin häc líp 11 Lop11.com (2) Mét sè bµi to¸n víi tÖp Bài 1: Đọc vào 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 để ghi; REWRITE (tep2); Lop11.com (3) - Nhập số lượngphần tử m¶ng; Write(‘Nhap n = ');Readln(n); - Ghi tÖp DULIEU.INP; For i:=1 to n 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 (4) Lop11.com (5) Nhap vao bao nhieu so : 20 15 Nhap so thu = Nhap so thu = Nhap so thu = Nhap so thu = Nhap so thu = Nhap so thu = - Lop11.com (6) Nhấn F3 để mở tÖp BAITAP.INP xem néi dung Néi dung tÖp BAITAP.INP Lop11.com (7) Bµi 2: Më tÖp BAITAP.INP, in d·y sè tÖp mµn h×nh TÝnh tổng 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 để đọ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 (8) - G¸n tæng cña d·y = 0; - D·y sè nguyªn kh«ng biÕt bao nhiªu sè, nhng đọc đư î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 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 (9) Lop11.com (10)