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...
Đọc tiếp
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.
