Tiến trình thực hành: Hoạt động của thầy Hoạt động của trò Nội dung Hoạt động 1: 20’ -Làm bài tập 2/53 - Viết chương trình nhập 2/ Viết chương trình nhập chiều chiều cao của hai bạn Long[r]
Trang 1Tuần: 16 Ngày soạn:1/12/2009
Bài thực hành số 4
SỬ DỤNG CÂU LỆNH ĐIỀU KIỆN IF THEN
I Mục tiêu:
1 Kiến thức:
-
2 Kĩ năng:
- Rèn
toán trong )* trình
3 Thái độ:
- Thái
II Chuẩn bị:
III Tiến trình thực hành:
Hoạt động 1: 8’
B #C D
-Ôn lại câu lệnh điều kiện
? Nêu cú pháp và 4F #7
-G và F #3
a) IF -G
- Cú pháp:
IF
- N4F #7 J)* trình
câu
qua
b) IF #3
- Cú pháp: If
then <Câu
<câu
- N4F #7 J)* trình
câu
1 Ôn lại câu lệnh điều kiện:
Trang 2Hoạt động 2: 30’
Làm bài tập1/52
-
nguyên a và b khác nhau Q bàn
phím và in hai V #R ra màn
hình theo W ? không -.9
- Gõ )* trình sau:
program sapxep ;
uses crt ;
var a,b : integer ;
begin
clrscr ;
write(‘ nhap so a : ‘) ;
readln(a) ;
write(‘ nhap so b : ‘) ;
readln(b) ;
if a < b then write(a,’ ‘,b)
else
writeln(b,’ ‘,a) ;
readln ;
- Tìm -0 ý " 3" các câu
IC và F )* trình
Hoạt động 3: 5’
các thao tác
-Giáo viên
giá -G ? hành
Hoạt động 4: 2’
- 6-G sau ? hành: “ Bài ?
hành V 4” (tt)
+ N' sinh chú ý d nghe
+
)* trình vào máy
+ N' sinh tìm -0 ý "
)* trình theo yêu $
3" giáo viên
+ >e F9 #0 C và e Ctrl + F9 #0 F )* trình
2 Viết chương trình nhập hai
số nguyên a và b khác nhau
từ bàn phím và in hai số đó
ra màn hình theo thứ tự không giảm
program sapxep ; uses crt ;
var a,b : integer ; begin
clrscr ; write(‘ nhap so a : ‘) ; readln(a) ;
write(‘ nhap so b : ‘) ; readln(b) ;
if a < b then write(a,’ ‘,b) else writeln(b,’ ‘,a) ; readln ;
Trang 3Tuần: 16 Ngày soạn:1/12/2009
Bài thực hành số 4 (tt)
SỬ DỤNG CÂU LỆNH ĐIỀU KIỆN IF THEN
I Mục tiêu:
1 Kiến thức:
-
2 Kĩ năng:
- Rèn
toán trong )* trình
3 Thái độ:
- Thái
II Chuẩn bị:
III Tiến trình thực hành:
Hoạt động 1: 20’
-Làm bài tập 2/53
-
-& cao 3" hai !F Long
và Trang, in ra màn G T
so sánh -& cao 3" 2
!F
- Yêu $ ' sinh %-G và
gõ )* trình vào máy
- ) )* trình %D- tên
aicaohon.pas IC và "
+ N' sinh chú ý d nghe
+ U-G và gõ )* trình vào máy
Program Ai_cao_hon;
Var long, trang: real;
Begin Writeln(‘ nhap chieu cao cua Long’); Readln(long);
Writeln(‘nhap chieu cao cua Trang’); Readln(trang);
If long>trang then l+- \]!F Long cao hon’);
If Long<trang then Writeln(‘ban Trang cao hon’) else
Writeln(‘hai ban bang nhau’);
Readln;
End
+ N' sinh ); " n- và F
)* trình theo yêu $ 3"
2/
cao 3" hai !F Long và Trang,
in ra màn G T so sánh -& cao 3" 2 !F
Program Ai_cao_hon;
Var long, trang: real;
Begin Writeln(‘ nhap chieu cao cua Long’); Readln(long);
Writeln(‘nhap chieu cao cua Trang’); Readln(trang);
If long>trang then l+- \]!F Long cao hon’);
If Long<trang then Writeln(‘ban Trang cao hon’) else
Writeln(‘hai ban bang nhau’); Readln;
Trang 4n- )* trình
Hoạt động 2:20’
Làm bài tập 3/53
- I)D- # là )* trình
bàn phím, -09 tra và in ra
màn hình G T -09 tra
ba V #R có 0 là #7 dài
các F 3" 97 tam giác
hay không
- Tìm -0 ý " 3" các
câu
trình
- IC và F )*
trình
Hoạt động 3:5’
-Giáo viên
#( giá -G ? hành
Hoạt động 4:2’
- U& nhà xem F- bài, -G
sau làm bài
giáo viên
+ Gõ )* trình vào máy
Program ba_canh_tam_giac;
Var a,b,c: real;
Begin Write(‘nhap ba so a, b và c:’);
Readln(a,b,c);
If (a+b>c) and (b+c>a) and (c+a>b) then
Writeln(‘a,b,c là ba F 3"
tam giác’) else Writeln(‘a,b,c khong la ba canh cua tam giac’);
Readln;
End
+ N' sinh tìm -0 ý "
trình theo yêu $ 3" giáo viên
+ >e F9 #0 C và e Ctrl + F9 #0 F )* trình
End
Program ba_canh_tam_giac; Var a,b,c: real;
Begin Write(‘nhap ba so a, b và c:’); Readln(a,b,c);
If (a+b>c) and (b+c>a) and (c+a>b) then
Writeln(‘a,b,c là ba F 3" tam giác’) else
Writeln(‘a,b,c khong la ba canh cua tam giac’);
Readln;
End
... 3Tuần: 16 Ngày soạn:1/12/2009
Bài thực hành số (tt)
SỬ DỤNG CÂU LỆNH ĐIỀU KIỆN IF THEN
...
- Tìm -0 ý " 3"
câu
trình
- IC F )*
trình
Hoạt động 3:5’
-Giáo viên
#( giá -G ? hành
Hoạt động 4:2 ’...
- Cú pháp: If
then < ;Câu
< ;câu
- N4F #7 J)* trình
câu
1 Ôn lại câu lệnh điều kiện:
Trang