TIN H C 11Ọ
Ti t 7: BÀI TH C HÀNH S 1 (t1)ế Ự Ố
I. M c tiêuụ
1. Ki n th cế ứ
- Bi t đ c m t ch ng trình Pascal hoàn ch nh.ế ượ ộ ươ ỉ
- Làm quen v i các d ch v ch y u c a Turbo Pascal trong vi cớ ị ụ ủ ế ủ ệ
so n th o, l u ch ng trình, d ch ch ng trình và th c hi n ch ngạ ả ư ươ ị ươ ự ệ ươ
trình.
2. Kĩ năng
- So n đ c ch ng trình, l u lên đĩa, d ch l i cú pháp, th c hi n vàạ ượ ươ ư ị ỗ ự ệ
tìm l i thu t toán và hi u ch nh ỗ ậ ệ ỉ
- B c đ u bi t phân tích và hoàn thành m t ch ng trình đ n gi nướ ầ ế ộ ươ ơ ả
trên Turbo pascal.
3. Thái độ: T giác, tích c c và ch đ ng trong th c hành.ự ự ủ ộ ự
II. Chu n bẩ ị
1. Giáo viên: Phòng máy tính đã cài đ y đ Turbo Pascal, máy chi uầ ủ ế
projector.
2. H c sinhọ: Sách giáo khoa, sách bài t p và bài t p đã vi t nhà.ậ ậ ế ở
III. HO T Đ NG D Y – H CẠ Ộ Ạ Ọ
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òạ ộ ủ ầ - HS N i dungộ
Ho t đ ng 1: H ng d n h c sinh gi iạ ộ ướ ẫ ọ ả
bài t p gi i ph ng trình b c hai (15ậ ả ươ ậ
phút)
GV: Gi i thi u n i dung bài t pớ ệ ộ ậ
HS: Gi i bài t p.ả ậ
Ho t đ ng 2: H ng d n h c sinhạ ộ ướ ẫ ọ
th c hành (30 phút)ự
GV: Chi u ch ng trình lên b ng. Yêuế ươ ả
c u h c sinh th c hi n các nhi m v :ầ ọ ự ệ ệ ụ
- So n ch ng trình vào máy.ạ ươ
- L u ch ng trình.ư ươ
- D ch l i cú pháp.ị ỗ
- Th c hi n ch ng trình.ự ệ ươ
- Nh p d li u 1 -3 2. ậ ữ ệ
=> Thông báo k t qu .ế ả
- Tr v màn hình so n th o.ở ề ạ ả
- Th c hi n ch ng trình.ự ệ ươ
- Nh p d li u 1 0 2 ậ ữ ệ
=> Thông báo k t qu .ế ả
Bài 1: Ch ng trình gi i ph ng trìnhươ ả ươ
b c haiậ:
Program Giai_pt;
Uses CRT;
Var a,b,c,d,x1,x2:read;
Begin
clrscr;
write(‘nhap a b c’);
Readln(a,b,c);
d:=b*b – 4*a*c;
x1:=(-b – sqrt(d))/(2*a);
x2:=-b/a-x1;
writeln(‘x1=’,x1:6:2,’x2=’,x2:6:2,);
Readln;
End.