Question

Bài tập 1: Viết chương trình ghi vào đĩa 100 số tự nhiên (từ 1 đến 100).

 Program GHI;

var i: integer;

f: file of integer;

Begin

Assign (f, ‘D:\11B14_2223\INTEGER.GHI');

Rewrite(f); For i:= to 100 do write(f,i);

Close(f)

End.

Bài tập 2: Mở tệp INTEGER.GHI đã có (bài tập 1) để tính tổng các số chẵn trong tệp sau đó hiển thị các tổng ra màn hình.

 Bài tập 3: Mở tệp INTEGER.GHI đã có (bài tập 1) để tính trung bình cộng các số chẵn trong tệp sau đó hiển thị các tổng ra màn hình.

 Bài tập 4: Mở tệp INTEGER.GHI đã có (bài tập 1) để tính kiểm tra và hiển thị ra màn hình các số tròn chục có trong tệp.

Bài tập 5: Viết chương trình ghi vào tệp SO.TXT trong thư mục 11B14_2223 ổ đĩa D các số lớn hơn 100 và nhỏ hơn 200.