bai18 bai tap voi tep tin 11

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... Tính tổng của dãy số đó.. CÁC BƯỚC: THỂ HIỆN BẰNG PASCAL.

Bài 18

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’);

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

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.

- 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:

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.

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

BAITAP.INP;

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

- Tính tổng; Writeln('Tong cua day so la : ',S);

WHILE NOT( EOF(tep) ) DO Begin

Readln(tep,A[i]);

Writeln;