Tiết 48-50 tin 11

Tiết 48+49 Ngày 30 tháng 3 năm 2012

Ôn tập
I. Mục tiêu:
- Rèn luyện thao tác xử lí tệp, kỹ năng đọc, ghi tệp.
- Nâng cao kỹ năng viết, sử dụng tệp.
II-PHƯƠNG PHÁP, PHƯƠNG TIỆN :
- Phương pháp gợi mở nêu vấn đề, phương pháp vấn đáp, phương pháp thuyết trình .
- Phương tiện : Một máy tính có TP và một máy chiếu Project .
III-NộI DUNG :
1-Tổ chức lớp:
2-Kiểm tra bài cũ:
3-Tiến trình bài dạy:
Nội dung – HĐ của GV
HĐ của HS

Var f: text;
n, i, j, jmax,atg,: integer;
a: array[1..100] of integer;
Begin
assign(f, `data.txt`); reset(f);
Readln(f, n);
For i:=1 to n do Readln(f,a[i]);
close(f);
For i:=1 to n-1 do
Begin
jmax:=i;
For j:=i to n do
If (a[j]>a[jmax]) then j:=jmax;
atg:=a[i];
a[i]:=a[jmax];
a[jmax]:=atg;
End;
For i:=1 to n do Writeln(a[i]);
Readln;
End.
2. Viết chương trình nhập vào 2 số m, n ghi 2 số đó vào tệp son.inf. Đọc tệp đó và ghi kết quả ra màn hình.
Var f:text;
m,n:integer;
Begin
m:=10; n:=4;
assign(f, `son.inf`);
reWrite(f);
Writeln(f, m,` `,n);
close(f);
assign(f, `son.inf`);
reset(f);
Readln(f, m, n);
close(f);
Writeln(m:4, n:4);
Readln;
End.
3. Viết chương trình tạo tệp data.txt gồm có n số nguyên, với dòng đầu tiên là só n dòng tiếp theo là dãy n số nguyên.
Đọc tệp vừa tạo và in kết quả ra màn hình.
Var f:text;
n,i:integer;
a:array[1..100] of integer;
Begin
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;
assign(f,`data.txt`);
rewrite(f);
Writeln(f,n);
For i:=1 to n do
Begin
Writeln(f,a[i]);
End;
close(f);
assign(f, `data.txt`);
reset(f);
Readln(f, n);
For i:=1 to n do
Readln(f,a[i]);
close(f);
For i:=1 to n do Writeln(a[i]);
Readln;
End.


Var fin, fou: text;
n, m, i, j, k, kmax: integer;
a: array[1..100] of real;
atg: real;
Begin
assign(fin, `input.txt`); reset(fin);
assign(fou, `output.txt`); rewrite(fou);
Readln(fin, n); Writeln(fou, n);
For i:=1 to n