- Kiểm tra bài cũ
Bài mới
- Bài 4: Viết câu lệnh rẽ nhánh
- GV: Hớng dẫn học sinh cách viết câu lệnh rẽ nhánh, phân tích các điều kiện để đa ra câu lệnh. - HS: Viết chơng trình trên máy mình.
Bài 5:a) Lập trình tính Σn50=1 n+1
n
Gv: Hớng dẫn HS cách viết các lệnh cho chính xác và ngắn gọn. Mỗi lệnh nên viết một dòng cho thuận tiện.
- GV: Phân tích để HS thấy vòng lặp của bài toán này. Bài sử dụng lệnh For- Do để mô tả quá trình lặp. y:=0; For n:=1 to 50 Do Y:=Y+n/(n+1); b) e(n) = 1+ ! 1 ... ! 2 1 ! 1 1 n + + + cho đến khi ! 1 n <2 x 10-6 Đa giá trị e(n) ra màn hình.
- Gv: gợi ý để học sinh đặt giá trị ban đầu/ giá trị khởi tạo cho các biến Program BT5; uses crt; var n:longint; e,sh: real; begin sh:=1/2; n:=2; e:=2+sh; While sh>=2*1E-6 do begin
n:=n+1; sh:=sh*(1/n); e:=e+ sh; end;
writeln(‘gia trị e(n) la:’ e:8:2); readln
end.
- GV: Phân tích đầu bài, hớng dẫn cách viết câu lệnh lặp while- do - HS: Lập trình vào máy tính. Câu 6 Program bt6; uses crt; var ga,cho:integer; Begin for cho:=1 to 24 do Begin ga:=36- cho
if ga+ 2*cho=50 then
writeln(‘ga:’,ga, ‘cho:’,cho); end;
readln end.
GV: Phân tích bài toán và gợi ý để HS xây dựng thuật toán. Từ đó hớng dẫn học sinh sử dụng câu lệnh rẽ nhánh và vòng lặp.
- HS: nghe hiểu và viết chơng trình chạy trên máy của mình. Bài 7:
Program bt7; uses crt;
var tuoicha, tuoicon:integer, nam:word; Begin
clrscr;
write(‘Nhap tuoi cha va con:’);
write(‘tuoi cha>2*tuoi con va tuoi cha- tuoi con >=25:’);readln(tuoicha,tuoicon); nam:=0;
while tuoicha<>2*tuoicon do Begin
tuoicha:=tuoicha+1; tuoicon:=tuoicon+1;
nam:=nam+1; end;
writeln(‘Sau ‘,nam, ‘tuoi cha gap doi tuoi con’); readln;
end.
GV: Phân tích bài toán để HS xây dựng thuật toán
- GV: Hớng dẫn các em cách nhập tuổi cha và con ban đầu
- Khi tuổi cha mỗi năm tăng lên 1 thì con cũng tăng lên 1 đến khi nào tuoi cha=2*tuoicon thì dừng lại. Số năm đợc tính từ thời điểm nhập tuổi cha và con cũng tăng mỗi năm lên 1.
- Gợi ý để HS tự viết vòng lặp - HS: nghe hiểu và viết chơng trình.
Câu 8
Program bt8; uses crt;
const laisuat=0.003
var tiengui, tienrut, luu: real; thang: integer;
Begin
clrscr;
write(‘nhap vao so tien gui:’);readln(tiengui); luu:=tiengui;
write(‘So tien co khi rut ve:’);readln(tienrut); thang:=0; while tiengui<tienrut do begin tiengui:=tiengui+luu*laisuat; thang:=thang+1; end;
write(‘gui’,luu:16:4,’ dong, sau ‘,thang,’ thang’); writeln(‘se nhan duoc so tien’,tienrut:16:4,’dong’); readln;
end.
- GV: Phân tích bài toán để học sinh xây dựng thuật toán
- Gv: Có thể lấy một chơng trình của một HS đã viết rồi nhận xét và sửa lỗi và giải thích cách dùng câu lệnh lặp.