bài 17 : bài tập với tệp

MỘT SỐ BÀI TOÁN VỚI TỆPBài 1: Đọc vào một dãy n số nguyên n... Nhấn F3 để mở tệp BAITAP.INP xem nội dung.. Nội dung tệp BAITAP.INP... Tính tổng của dãy số đó.. CÁC BƯỚC: THỂ HIỆN BẰNG P

Bài 16

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<=100), ghi dãy số đó vào tệp có tên BAITAP.INP

- Khai báo;

Program bai1;

Uses crt;

Var tep2: TEXT;

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

- Gán tên tệp;

Begin Clrscr;

ASSIGN(tep2, 'C:\DULIEU.INP’);

- Mở tệp ra để ghi; REWRITE (tep2);

CÁC BƯỚC: THỂ HIỆN BẰNG PASCAL

- Nhập số lượng phần tử

trong mảng;

For i:=1 to n do Begin

Write('Doc so thu ',i,'='); Readln(A[i]);

Write(tep2,A[i]);

End;

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

- Đọc vào mảng;

- Ghi ra tệp DULIEU.INP;

Readln;

END.

Nhap vao bao nhieu so : 6

-

Nhấn F3 để mở tệp BAITAP.INP xem nội dung.

Nội dung tệp BAITAP.INP

- Khai báo;

Program Bai2;

Uses crt;

Var tep: TEXT;

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

- Gán tên tệp;

Begin Clrscr;

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

- Mở tệp ra để đọc; RESET(tep);

B i 2: à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

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

Write(A[i]:5);

S:=S+A[i];

End;

S:=0;

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

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

đọc ra được bằng cách

dùng hàm EOF(tên biến

tệp );

- Đóng tệp Close(tep);

Readln;

END.

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

BAITAP.INP;

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

WHILE NOT( EOF(tep) ) DO Begin

Readln(tep,A[i]);

Writeln;