Làm việc với File trong Pascal

1. Một file văn bản trên đĩa có tên là SON.INF chứa đúng một dòng bao gồm hai số tự nhiên n, m được viết cách nhau một dấu cách. Sau đây là một ví dụ về file này:4 5. Em hãy viết đoạn chương trình nhập hai số này từ file trên và in kết quả ra màn hình.

Var f:text;

m,n:integer;

Begin

Assign(f,'son.inf');   Reset(f);

Readln(f,m,n);

Close(f);

Writeln(m:4,n:4);

Readln;

End.

2. Một file văn bản trên đĩa có tên là SOD.INF chứa đúng hai dòng, mỗi dòng bao gồm đúng một số tự nhiên là n, m. Sau đây là một ví dụ về file này:

4

5

Em hãy viết đoạn chương trình nhập hai số này từ file trên và in kết quả ra màn hình.

Var      f:text;

m,n:integer;

Begin

assign(f,'sod.inf');reset(f);

Readln(f,m);

Readln(f,n);

close(f);

Writeln(m);

Writeln(n);

Readln;

End.