DANH MỤC TÀI LIỆU
TIN HỌC : Bài tập Lập trình tính
TIN H C 11
Ti t ế21: BÀI T P
I. M c tiêu
1. Ki n th c:T ng k tế ế cho h c sinh nh ng ki n th c v c u trúc r ế ề ấ
nhánh và l p.
2. năng: Rèn luy n năng v n d ng linh ho t trong công vi c ậ ụ
l a ch n c u trúc r nhánh c u trúc l p phù h p đ gi i quy t bài ể ả ế
toán đ t ra.
II. Chu n bẩ ị
1. Giáo viên: Máy chi u, SGK, sách giáo viên, sách bài t p.ế ậ
2. H c sinh: SGK, sách bài t p, đ dùng h c t p. ọ ậ
III. T ch c các ho t đ ng h c t p ọ ậ
1. n đ nh t ch c l p: ứ ớ
2. Ki m tra bài cũ: Ti n hành trong quá trình th c hành.ế ự
3. Ti n trình bài h cế ọ
Ho t đ ng c a th y và tròạ ộ N i dung
Ho t đ ng 1: Gi i thi u n i dung bàiạ ộ
t p và g i ý (10 phút)ậ ợ
GV: Nêu N i dung bài t p trong SGK tg
51.
GV: Nêu h ng gi i cho các bài t p trên?ướ ả
HS:
Bài 5a: S d ng c u trúc l p v i s l n ố ầ
bi t tr c For - Do.ế ướ
Bài 5b: S d ng c u trúc l p v i s l n ố ầ
không bi t tr c While - Do.ế ướ
Bài 6: S d ng 2 vòng For duy t th cácử ụ
tr ng h p c a x (gà); y (chó).ườ ợ ủ
N u x+y = 36 2*x +4*y = 100 thì đ aế ư
ra màn hình k t qu x;y.ế ả
Ho t đ ng 2: Ch a bài t p (30 phút)ạ ộ
GV g i h c sinh lên b ng ch a bài, giáoọ ọ
viên nh n xét, t ng k t đánh giá cho ổ ế
đi m.
HS: Lên b ng làm bài t p theo yêu ả ậ
c a giáo viên.
HS d i l p suy nghĩ làm bài t p ra nháp.ướ ớ
GV: Ch a bài, t ng k t đánh giá cho ổ ế
đi m.
Bài 5: L p trình tính
a) Y =
50
11
nn
n
b) E(n) = 1+
.....
!
1
...
!2
1
1
1
n
cho đ nế
khi
6
10.2
!
1
n
Bài 6: L p trình đ gi i bài toán c sau: ể ả
V a gà v a chóừ ừ
Bó l i cho tròn
Ba m i sáu conươ
M t trăm chân ch nộ ẵ
H i có bao nhiêu con m i lo i? ỗ ạ
Đáp án:
Bài 5a:
program Bai5a;
Uses crt;
Var n:Integer;
Y: real;
Begin
Y:=0;
for n:=1 to 50 do
Y:=Y+n/(n+1);
write(' Gia tri can tinh
la:', Y:8:3);
readln;
End.
Bài 5b:
program TongGT;
uses crt;
TIN H C 11
Ho t đ ng c a th y và tròạ ộ N i dung
Var n, gt: longint;
e: real;
Begin
clrscr;
e:=2;
gt:=2;
n:=2;
While not(1/gt < 2*1E-6) do
begin
e:=e+ 1/gt;
n:=n+1;
gt:=gt*n;
end;
write('Kqua la:',e:10:6);
readln;
end.
Bài 6:
program gacho;
uses crt;
var x,y: integer;
begin
clrscr;
for x:= 1 to 36 do
for y:= 1 to 36 do
if (x*2 + y*4 = 100) and (x+y =36) then
write('So ga la: ', x,' so cho la:',y);
readln;
end.
4. T ng k t và h ng d n h c t p nhà (05 phút) ế ướ ậ ở
* T ng k tổ ế
+ Câu l nh For - Do: S l n l p đã xác đ nh. ố ầ
+ Câu l nh While - Do: S l n l p ch a xác đ nh. ố ầ ư
* Bài t p v nhà:ậ ề
Cho ch ng trình đ c vi t b ng l nh For:ươ ượ ế ằ
Var x, i:word; nt:boolean;
Begin
Readln(x); nt :=true;
For i :=2 to x – 1 do
if x mod i = 0 then nt:=false;
If nt = true then write(x,’la so nguyen to’) else
write(x, ‘khong phai snt’);
readln;
End.
Câu h i: Hãy vi t l i ch ng trình trên trong đó l nh l p Forế ạ ươ
đ c thay b ng l nh l p While. Hãy cho bi t, trong bài toán trên sượ ằ ệ ặ ế
d ng l nh l p nào là t t h n? ố ơ
thông tin tài liệu
TIN HỌC : Bài tập Lập trình tính Bài 5: Lập trình tính a) Y = b) E(n) = 1+ cho đến khi Bài 6: Lập trình để giải bài toán cổ sau: Vừa gà vừa chó Bó lại cho tròn Ba mươi sáu con Một trăm chân chẵn Hỏi có bao nhiêu con mỗi loại? Đáp án: Bài 5a: program Bai5a; Uses crt; Var n:Integer; Y: real; Begin Y:=0; for n:=1 to 50 do Y:=Y+n/(n+1); write(' Gia tri can tinh la:', Y:8:3); readln; End. Bài 5b: program TongGT; uses crt; Var n, gt: longint
Mở rộng để xem thêm
xem nhiều trong tuần
yêu cầu tài liệu
Giúp bạn tìm tài liệu chưa có

LÝ THUYẾT TOÁN


×