tin 11 tiet 51 on tap ky 2

Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (106.86 KB, 4 trang )

(1)<div class='page_container' data-page=1>

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 tố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 tng 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}

HS suy nghÜ thực hiện

theo yêu cầu của GV.

HS suy nghÜ vµ thùc

hiÖn.

</div>
(2)<div class='page_container' data-page=2>

function dodai(xa,ya,xb,yb:real):real;
 begin

dodai:=sqrt(sqr(xa-xb)+sqr(ya-yb));{Gán dodai bằng
độ dài on 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<dodai(xa,ya,xb,yb)then

max:=dodai(xa,ya,xb,yb);{Nếu max nhỏ hơn độ dài 
AV thì cập nhật 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 lu 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}

ucln:=a;{G¸n ucln b»ng a}
 end;

function bcnn(a,b:integer):integer;
 begin

bcnn:=a*b div ucln(a,b);{Tính bcnn}
 end;

begin

clrscr;{Xoá màn hình}

write('N = ');readln(n);{Đọc N}

write('So thu 1 : ');readln(a);{Đọc phần tử thứ 1 vào 
a}

u:=a;b:=a;{G¸n u,b b»ng a}

for i:=2 to n do{Cho i chạy từ 2 đến n}
 begin

write('So thu ',i,' : ');readln(a);{Nhập số thứ i vào a}
 u:=ucln(u,a);{Gán u bằng UCLN của u và a}

b:=bcnn(b,a);{Gán b bằng BCNN của u vµ b}
 end;

writeln('UCLN = ',u);
 writeln('BCNN = ',b);
 readln;

end.

HS theo dõi chay chơng

trình trên máy chiếu.

HS suy nghÜ thùc hiÖn

theo yêu cầu của GV.

HS suy nghĩ vµ thùc

hiƯn.

HS suy thảo luận để

xậy dựng chơng trình

</div>
(3)<div class='page_container' data-page=3>

Bµi tËp 4:

{ Nhập N. In ra màn hình các số nguyên tố từ 1 đến N
Hng dn

Viết hàm NGUYENTO(N) trả về giá trị TRUE nếu N
nguyên tố}

uses crt;
var

i,n:integer;{i,n kiểu integer}
function nt(n:integer):boolean;

var i:integer;{Khai b¸o i kiĨu integer}
 begin

for i:=2 to trunc(sqrt(n))do{Cho i chạy từ 2 đến 
trunc(sqrt(n))}

if n mod i=0 then begin nt:=false;exit;end;{NÕu n 
chia hÕt cho i thì gán nt=false;thoát khỏi CT con bằng 
exit}

nt:=true;{Gán nt bằng TRUE}
 end;

begin

clrscr;{Xoá màn hình}

write('N = ');readln(n);{Đọc N}

for i:=2 to n do{Cho i chạy từ 2 đến N}
 if nt(i)then write(i:5);{Nếu i ntố thì xuất I}
 readln;

end.
Bµi tËp 5:

{ Nhập số N. Sau đó nhập N phần tử. In ra phần tử có
số ớc là lớn nht

Hớng dẫn

Viết hàm TINH(N) trả về số íc cña N

Lu ý r»ng sè 0 cã sè íc lín nhÊt trong tÊt c¶ mäi sè}
uses crt;

var

i,n:integer;{i,n kiĨu integer}

a,max,luua:integer;{a,max,luua kiĨu integer}
function tinh(n:integer):integer;

var i,souoc:integer;{Khai b¸o i,souoc kiểu integer}
 begin

if n=0 then tinh:=maxint{Nếu N=0 thì}
 else{Ngợc lại}

begin

souoc:=0;{Gán souoc bằng 0}

for i:=1 to n do{Cho i chạy từ 1 đến N}

if n mod i=0 then inc(souoc);{Nếu n chia hết cho i thì
tăng souoc}

tinh:=souoc;{Gán tinh bằng souoc}
 end;

end;
begin

clrscr;{Xoá màn hình}

write('N = ');readln(n);{Đọc 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('So thu ',i,' : ');readln(a);{NhËp sè thø i vµo a}
 if max<tinh(a)then{nÕu max < sè íc cđa a th×}
 begin

max:=tinh(a);{CËp nhËt max}
 luua:=a;{G¸n luua b»ng a}

HS suy nghĩ thực hiện

theo yêu cầu cña GV.

HS suy nghÜ vµ thùc

hiƯn.

HS suy thảo luận để

xậy dựng chơng trình

</div>
(4)<div class='page_container' data-page=4>

end;
 end;

writeln('So co nhieu uoc nhat la :',luua);{XuÊt luua}
 if luua=0 then write('Co vo so uoc')else writeln('Co 
',max,' uoc');{Nếu luua=0 thì xuất có vô số ớc ngợc lại
xuất max}

readln;
end.

IV. Cng c:

</div>

tin 11 tiet 51 on tap ky 2

<i>Ng y 05/05/2012</i>

<i>à</i>

Tiết 50

<b>ÔN TẬP </b>

<b>I. Mục tiêu:</b>

<i>1. Kiến thức:</i>

- Nắm được toàn bộ kiến thức được học từ đầu năm học.

<i>2. Kĩ năng:</i>

- 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 tốn một cách

trọn vẹn.

<b>II. Phương pháp – đồ dùng dạy học:</b>

- 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.

<b>III. Hoạt động dạy học:</b>

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

HS suy nghÜ thực hiện

theo yêu cầu của GV.

HS suy nghÜ vµ thùc

hiÖn.

HS theo dõi chay chơng

trình trên máy chiếu.

HS suy nghÜ thùc hiÖn

theo yêu cầu của GV.

HS suy nghĩ vµ thùc

hiƯn.

HS suy thảo luận để

xậy dựng chơng trình

HS suy nghĩ thực hiện

theo yêu cầu cña GV.

HS suy nghÜ vµ thùc

hiƯn.

HS suy thảo luận để

xậy dựng chơng trình

IV. Cng c:

Tài liệu liên quan

Tài liệu bạn tìm kiếm đã sẵn sàng tải về