L m b it p1/52 ậ
bit p1/52 ậ
- 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ả - HS: Độ ậc l p gừ chương trỡnh v o mỏyà - HS: + Tỡm hi u ý ngh a c a cỏc cõu l nhể ĩ ủ ệ
trong chương trỡnh theo yờu c u c aầ ủ
giỏo viờn.
+ Nh n F9 ấ để ị d ch v nh n Ctrl + F9à ấ
ch y ch ng trỡnh.
để ạ ươ
- GV: Theo dõi sửa sai
b i t p1/52à ậ
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 end. IV. Củng cố dặn dò ( 2 )’ 1. củng cố
- Giỏo viờn nh n xột v ỏnh giỏ ti t th c h nh.ậ à đ ế ự à
2. Dặn dò
Ngày soạn:12/12/2010 Ngài dạy :16/12/2010 Tiết 32 bài thực hành 4 (t2) S D NG CÂU L NH I U KI N IF...THENỬ Ụ Ệ Đ Ề Ệ I. Mục tiêu. * Ki n th c:ế ứ
- Luy n t p s d ng cõu l nh If...thenệ ậ ử ụ ệ
* K n ng:ĩ ă
- Rốn k n ng ban ĩ ă đầu v ề đọc cỏc chương trỡnh đơn gi n v hi u ả à ể được ý ngh a c a ĩ ủ
thu t toỏn s d ng trong chậ ử ụ ương trỡnh * Thỏi độ:
- Thỏi độ ọ ậ h c t p nghiờm tỳc, rốn luy n t duy logicệ ư
II. Chuẩn bị.
1. GV: phòng máy, giáo án 2. HS: nội dung bài học III. Bài mới
1. ổn định lớp
2. Kiểm tra bài cũ (Kết hợp trong tiết) 3. Bài mới
Hoạt động của thầy và trò Nội dung
Hoạt động 1 . B i t p 2/53 à ậ (20 )’
- GV Y/c HS L m b i t p 2/53à à ậ
- Vi t chế ương trỡnh nh p chi u cao c aậ ề ủ
hai b n Long v Trang, in ra m n k tạ à à ế
qu so sỏnh chi u cao c a 2 b n.ả ề ủ ạ (adsbygoogle = window.adsbygoogle || []).push({});
- Yờu c u h c sinh vi t v gừ chầ ọ ế à ương trỡnh v o mỏyà
- HS:n
+ H c sinh chỳ ý l ng nghe.ọ ắ
+ Vi t v gừ chế à ương trỡnh v o mỏy.à
- GV: Thoe dõi sửa sai
- HS: L u, s a l i v ch y chư ử ỗ à ạ ương trỡnh theo yờu c u c a giỏo viờn.ầ ủ
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
Writeln(‘b n Long cao hon’);ạ
If Long < Trang then
Writeln(‘ban Trang cao hon’) else Writeln(‘hai ban bang nhau’); Readln;
End.
Hoạt động 2: Thực hành (22 )’
- GV Y/c HS L m b i t p 2/53à à ậ
Dướ đi õy l chà ương trỡnh nh p ba sậ ố
dương a, b, c t b n phớm, ki m tra vừ à ể à
ú cú th l d i cỏc c nh c a m t
đ ể à độ à ạ ủ ộ
tam giỏc hay khụng. - HS:
+ Gừ chương 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 c nh c a tam giỏc’)à ạ ủ
else
Writeln(‘a,b,c khong la ba canh cua tam giac’); Readln; End. - GV: Tỡm hi u ý ngh a c a cỏc cõu ể ĩ ủ l nh trong chệ ương trỡnh ? - HS: Tỡm hi u ý ngh a c a cỏc cõu l nhể ĩ ủ ệ
trong chương trỡnh theo yờu c u c a ầ ủ (adsbygoogle = window.adsbygoogle || []).push({});
GV
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 la ba c nh cua tam giac:’)ạ
else
Writeln(‘a,b,c khong la ba canh cua tam giac.’);
Readln; End.
IV. Củng cố dặn dò ( 3 )’1. củng cố 1. củng cố
- Giỏo viờn nh n xột v ỏnh giỏ ti t th c h nh.ậ à đ ế ự à
2. Dặn dò
Ngày soạn:21/12/2010 Ngài dạy :24/12/2010
Tiết 33 ôn tập
I. Mục tiêu.
* Ki n th c:ế ứ
- Ôn tập các kiến thức của một chơng trình Pascal. * K n ng:ĩ ă
- Rèn luyện kỷ năng viết chơng trình đơn giản. * Thỏi độ:
- Thỏi độ ọ ậ h c t p nghiờm tỳc, rốn luy n t duy logicệ ư
II. Chuẩn bị.
1. GV: phòng máy, giáo án 2. HS: nội dung bài học III. Bài mới
1. ổn định lớp
2. Kiểm tra bài cũ (Kết hợp trong tiết) 3. Bài mới
Hoạt động của thầy và trò Nội dung
Hoạt động 1 Lý thuyết (7 )’
? Trình bày cấu trúc của một chơng trình Pascal ?
- HS: Gồm 2 phần + Phần khai
+ Phần thân
? Viết cấu trúc của lệnh khai báo biến ?
- HS: Var tên biến : Kiểu dữ liệu ; (adsbygoogle = window.adsbygoogle || []).push({});
? Cấu trúc của lệnh khai báo hằng?
- HS: Const tên hằng = giá trị ;
? Tên biến và tên chơng trình cần chú ý những nguyên tắc nào ?
- HS trả lời
Gồm 2 phần: Phần khai báo và phần biến. + Phần khai báo gồm có: Khai tháo th viện và khai báo biến
+ Phần thân: Gồm các câu lệnh nằm giữa hai từ khóa Begin và End.
- Cấu trúc của lệnh khai báo: Var tên biến : Kiểu dữ liệu ; - Cấu trúc của lệnh khai báo hằng: Const tên hằng = giá trị ;
+ Không đợc dùng dấu cách + Không đợc ghi số ở đầu
+ Không đợc trùng với từ khóa, ...
Hoạt động 2: Bài tập (35 )’
Bài 1: Viết chơng trình nhập vào 3 số a,
b, c . Nếu a2 + b2 = c2 hoặc b2 + c2 = a2 hoặc a2+ c2 = b 2 thì in ra câu: a, b, c là ba cạnh của tam giác vuông. Ngợc lại thì in ra câu a, b, c không phải là ba cạnh của một tam giác vuông.
program tamgiac; uses crt; Var a, b, c: Real; Begin clrscr; Writeln('Nhap vao ba so a, b, c: '); Readln(a, b, c); if a2 + b2 = c2 or b2 + c2 = a2 ora2+ c2 = b2
Bài 2: Viết chơng trình nhập vào họ và
tên(ht), điểm Toán (d1), điểm Tin (d2), điểm văn (d3) của học sinh đó.
Tính và in ra điểm trung bình (dtb) của học sinh đó.
Nếu dtb<5 thì in ra câu: Hoc luc yeu
Nếu 5<= dtb <6.5 thì in ra câu: Hoc luc Trung binh
Nếu 6.5<= dtb < 8 thì in ra câu: Hoc luc kha
Ngợc lại thì in ra câu: Hoc luc gioi.
then writeln('a, b, c la ba canh cua tam giac vuong')
else writeln(a, b, c khong phai la ba canh cua mot tam gia vuong');
Readln; End. program diem; uses crt; Var ht: string[30]; d1, d2, d3, dtb: Real; Begin clrscr;
Writeln('Nhap vao ho va ten:'); Readln(ht);
Writeln('Nhap vaodieem Toan, diem Tin, diem van:'); Readln(d1,d2,d3);
dtb:= (d1+d2+d3)/3; Writeln('dtb la:', dtb);
if dtb < 5 then Writeln('Hoc luc yeu');
if 5<= dtb <5. 5 then Writeln('Hoc luc Trung Binh');
if 6.5<= dtb <8 then Writeln('Hoc luc kha') else Writeln('Hoc luc gioi');
Readln; End. (adsbygoogle = window.adsbygoogle || []).push({});
IV. Củng cố dặn dò ( 3 )’1. củng cố 1. củng cố
? Nhắc lại cấu trúc của một chơng trình Pascal ? ? Cú pháp của lệnh if ... then ... else...
2. Dặn dò - Học lý thuyết.
Ngày soạn:21/12/2010 Ngài dạy :24/12/2010
Tiết 34 kiểm tra thực hành
I. Mục tiêu.
* Ki n th c:ế ứ
- Ôn tập các kiến thức của HKI. * K n ng:ĩ ă
- Rèn luyện kỷ năng viết chơng trình đơn giản. * Thỏi độ:
- Thỏi độ ọ ậ h c t p nghiờm tỳc, rốn luy n t duy logicệ ư
II. Chuẩn bị.
1. GV: phòng máy, giáo án 2. HS: nội dung bài học III. Bài mới
1. ổn định lớp 2. Đề bài Bài toán:
Viết chơng trình nhập vào họ và tên(ht), điểm Toán (d1), điểm Tin (d2), điểm văn (d3) của học sinh đó.
Tính và in ra điểm trung bình (dtb) của học sinh đó. Nếu dtb<5 thì in ra câu: Hoc luc yeu
Nếu 5<= dtb <6.5 thì in ra câu: Hoc luc Trung binh Nếu 6.5<= dtb < 8 thì in ra câu: Hoc luc kha
Ngợc lại thì in ra câu: Hoc luc gioi
program diem; uses crt;
Var ht: string[30]; d1, d2, d3, dtb: Integer; Begin clrscr;
Writeln'Nhap vao ho va ten:') Readln(ht);
Writeln('Nhap vaodieem Toan, diem Tin, diem van:'); Readln(diemtoan, diemtin,diemvan);
dtb:= (d1+d2+d3)/3; Writeln('dtb la:', dtb);
if dtb < 5 then Writeln('Hoc luc yeu');
if 5<= dtb <5. 5 then Writeln('Hoc luc Trung Binh');
if 6.5<= dtb <8 then Writeln('Hoc luc kha') else Writeln('Hoc luc gioi'); Readln;
End
b) Gõ và chữa lỗi chơng trình trên 4. biểu điểm:
- Gõ xong chơng trình (3 đ)
Ngày soạn:24/12/2010 Ngài dạy :27/12/2010
Tiết 35 +36 kiểm tra học kì i (adsbygoogle = window.adsbygoogle || []).push({});
I. Mục tiêu.
* Ki n th c:ế ứ
- Ki m tra, ỏnh giỏ m c ể đ ứ độ ể hi u bi t c a h c sinh qua cỏc n i dung ó h cế ủ ọ ộ đ ọ
* K n ng:ĩ ă
- Rốn luy n k n ng s d ng m t s cõu l nh ệ ĩ ă ử ụ ộ ố ệ để ế vi t chương trỡnh. * Thỏi độ:
- Thỏi độ nghiờm tỳc.
II. Nội dung