Bồi dưỡng tin 8_tuan

Ngày soạn 
Ngày dạy :
Tiết 19:
BàI TậP thực hành
-------------(((-------------
I. Mục tiêu :
II. Chuẩn bị :
1. Giáo viên :
Tài liệu, giáo án, SGK, máy tính kết nối projector,...
2. Học sinh :
Đọc trước bài, SGK, bài tập nâng cao.
iii. các hoạt động dạy học:
1. định tổ chức lớp : (1 phút)
Kiểm tra sĩ số : …………
2. Kiểm tra bài cũ :
3. Bài mới : (42 phút)

Bài 1: Tính n! (20 phút)
Program TINH_N_GIAI_THUA;
Uses crt;
Var i,n,gt:integer;
Begin
Clrscr;
Writeln(` TINH N GIAI THUA:`);
Writeln(`----------------------------------`);
Write(`Nhap n =`); readln(n);
gt:=1;
For i:=1 to n do gt:=gt*i; Writeln(n, `!= `,gt);
Readln;
End.

Bài 2: Tính xn (Với n là số nguyên không âm). (22 phút)
Program TINH_X_LUY_THUA_N;
Uses crt;
Var i,n,x:integer;
lt:real;
Begin
Writeln(` TINH X LUY THUA Y:`);
Writeln(`----------------------------------`);
Write(`Nhap x =`); readln(x); Write(`Nhap n =`); readln(n);
lt:=1;
For i:=1 to n do lt:=lt*x;
Writeln(x, `^`,n,` = `,lt:4:2); Readln;
End.
----------o0o----------

Tiết 20:
BàI TậP thực hành (tt)
-------------(((-------------

Bài 1: Tìm tất cả các chữ số có ba chữ số abc sao cho tổng các lập phương của các chữ
số thì bằng chính số đó ( abc = a3 + b3 + c3). (22 phút)
Program TIM_SO;
Uses crt;
Var i,j,k:integer; Begin
Writeln(`CHUONG TRINH TIM SO:`); Writeln(`----------------------------------`);
For i:=1 to 9 do
For j:=0 to 9 do
For k:=0 to 9 do
if (100*i+10*j+k)=(i*i*i + j*j*j + k*k*k) then
Writeln(i,j,k,` = `,i,`^3 + `,j,`^3 + `,k,`^3`);
Readln;
End.

Bài 2: Tạo bảng số dạng sau: (20 phút)


0 1 2 3 4 5 6 7 8 9
10 11 12 13 14 15 16 17 18 19
..................................................................


Program BANG_SO;
Uses crt;
Var i,j,n:integer;
Begin
Clrscr;
Writeln(` TAO BANG SO TU 0-99`);
Writeln(`---------------------------------------------`);
For i:=0 to 99 do
Begin
If (i mod 10 = 0) then
Writeln; Write(i:3)
End;
Readln;
End.

Củng cố kiến thức. (2 phút)
- Nêu các vấn đề cần khắc phục trong khi thực hiện chương trình.
Hướng dẫn về nhà. (1 phút)
Thực hiện lại các bài tập đã thực hành.
Chuẩn bị các bài tập theo yêu cầu.
----------o0o----------