Tin 11 tiêt 51 ôn tập kỳ 2

Ngày 05/05/2012
Tiết 50
ÔN TẬP
I. Mục tiêu:
1. Kiến thức:
- Nắm được toàn bộ kiến thức được học từ đầu năm học.
2. Kĩ năng:
- Vận dụng được các lệnh và kiểu dữ liệu đã học để lập trình giải các bài toán một cách trọn vẹn.
II. Phương pháp – đồ dùng dạy học: - Phương pháp: Thuyết trình, vấn đáp, gợi mở, trắc nghiệm.
- Phương tiện: sgk, máy chiếu, phòng máy tính.
III. Hoạt động dạy học:
1.Ổn định tổ chức:
2.Kiểm tra bài cũ: lồng vào bài học.
3.Bài ôn tập:

Nội dung – HĐ của GV
HĐ của HS

Bài tập 1:Nhập a,b,c là hệ số của một hàm số bậc 2. Sau đó ta nhập X liên tục, ứng với mỗi giá trị của X, ta in ra giá trị của Y tương ứng.
Chương trình kết thúc khi ta nhập 0
Hướng dẫn
Viết chương trình con tính Y tương ứng X
uses crt;
var
a,b,c,x:real;{a,b,c,x kiểu real}
function y(x:real):real;
begin
y:=a*x*x+b*x+c;{Tính y theo x}
end;
begin
clrscr;{Xoá màn hình}
write(`A, B, C = `);readln(a,b,c);{Nhập a,b,c}
repeat
write(`X = `);readln(x);{Nhập X}
if x<>0 then writeln(`Y = `,y(x):0:2);{Nếu x<>0 thì in ra Y tương ứng}
until x=0;
end.
Bài tập 2:
{ Nhập N. Sau đó nhập N toạ độ A,B của N đường thẳng. In ra màn hình đường thẳng có độ dài lớn nhất.
Hướng dẫn
Viết hàm tính độ dài đoạn thẳng với tham số là 2 toạ độ}
uses crt;
var max,xa,ya,xb,yb:real;{max,xa,ya,xb,yb kiểu real}
i,n:integer;{i,n kiểu integer}
function dodai(xa,ya,xb,yb:real):real;
begin
dodai:=sqrt(sqr(xa-xb)+sqr(ya-yb));{Gán dodai bằng độ dài đoạn AB}
end;
begin
clrscr;{Xoá màn hình}
write(`N = `);readln(n);{Nhập N}
max:=0;{Gán max bằng 0}
for i:=1 to n do{Cho i chạy từ 1 đến N}
begin
write(`XA, YA, XB, YB = `);readln(xa,ya,xb,yb);{Đọc toạ độ A,B}
if max end;
writeln(`Do dai doan thang dai nhat : `,max:0:2);{Xuất max}
readln;
end.

Bài tập 3:
{ Nhập N. Sau đó nhập N số hạng. Tính UCLN và BCNN của N số đó.
Hướng dẫn
Viết hàm tính UCLN,BCNN giữa 2 số
UCLN (A1..An) = UCLN( UCLN(A1..An-1) ,An)
BCNN (A1..An) = BCNN( BCNN(A1..An-1) ,An)}
uses crt;
var
a,i,n:integer;{a,i,n kiểu integer}
u,b:integer;{u,b kiểu integer (biến lưu UCNN,BCNN)}
function ucln(a,b:integer):integer;
begin
while a<>b do{Trong khi a<>b thì}
if a>b then a:=a-b else b:=b-a;{Nếu a>b thì gán a=a-b ngược lại gán b=b-a}