Tham khảo tài liệu 'tự học lập trình pascal tập 4 part 7', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | 150 Tự Tạt ty Ịk-tỉtt Begin Cirscr m 10 n 4 assign f . hai thủ tục mở file reWrite f để ghì Writelnff m n ghi giá tn các biểu thức m n vào một dòng của file close f đóng file assign f son. inf đọc lại để kiểm trá reset f Readln f m Ỉ1 close f Wrìteln m 4 n 4 Read In End. 11. 2. Program P46112 . UsesCrt Var f text m n integer Begin Clrscr m 4 n 5 assign f reWrite f Write ln f m ghi m vào dòng dầu của file Writeln f n ghi n vào dòng sau của file close f Phần 2. HƯỚNG DAN 151 assign f reset f Readlnff m Readlnff n close f Writeln m Wrtteln n Read In End. . Program P46113 Uses Crt Var f text n i integer a arrayịl .100 of integer Begin Clrscr Write Nhập số n Readln n Writeln Nhập dã y n số For i -1 to n do Begin Write a i 2 Readln a i End assignff rewrite f Writeln f n ịghi n vào dòng đầu của file For i 1 to n do Writeln f a i ịghi a iỊ vào các dòng sau của file close f 152 Tjf ify. assign f reset f Reading n For i 1 to n do Readln f a i close f For i 1 to n do Write ln a i Readln End. . Program P46114 Uses Crt Var f text n i integer a array of integer Begin Clrscr Write Nhập số n Readln n Writeln Nhập dã y n số For i 1 to n do Begin WriteCaf i 2 Readln a i End assign f data txt rewrite f Writeln f n For i 1 to n do Write f a i g v các a i vào cùng một dòng của file Writeln f close f
