cách In số chẵn ra màn hình trên pascal bằng xuất ra vào tệp

Để in số chẵn ra màn hình và xuất ra vào tệp trong Pascal, bạn có thể sử dụng các chức năng nhập xuất cơ bản. Dưới đây là một đoạn mã mô tả cách thực hiện điều này:

```pascal
program ChanToSo;

var
i: integer;
f: text;

begin
assign(f, 'sochan.txt'); // Gán tên tệp để xuất
rewrite(f); // Tạo và mở tệp để ghi

// Lặp từ 1 đến 100 để tìm các số chẵn
for i := 1 to 100 do
begin
if i mod 2 = 0 then // Kiểm tra xem số là chẵn hay không
begin
writeln(i); // In ra màn hình
writeln(f, i); // Xuất ra tệp
end;
end;

close(f); // Đóng tệp sau khi ghi xong
end.
```

Giải thích mã:

1. Khai báo biến: `i` là biến dùng để lặp, `f` là biến để làm việc với tệp.
2. Gán tệp: Dùng lệnh `assign(f, 'sochan.txt')` để gán tên tệp trong biến `f`.
3. Mở tệp: Sử dụng `rewrite(f)` để tạo mới và mở tệp ghi.
4. Lặp qua các số: Vòng lặp `for i := 1 to 100 do` giúp chúng ta kiểm tra từng số từ 1 đến 100.
5. Kiểm tra số chẵn: Sử dụng điều kiện `if i mod 2 = 0` để xác định số chẵn, bởi vì số chẵn sẽ có dư là 0 khi chia cho 2.
6. In ra và ghi vào tệp: Sử dụng `writeln(i)` để in số chẵn ra màn hình, và `writeln(f, i)` để ghi số đó vào tệp.
7. Đóng tệp: Cuối cùng, `close(f)` được sử dụng để đảm bảo tệp được đóng lại sau khi thực hiện xong việc ghi.

Khi chạy chương trình này, bạn sẽ thấy các số chẵn từ 1 đến 100 được in ra màn hình và cũng được lưu vào tệp "sochan.txt".