Hoạt động 1: Củng cố một số kiến thức đã học Trong Pascal có những kiểu dữ liệu cơ * Kiểu dữ liệu cơ bản : - Interger : Số nguyên bản nào.. Tuy nhiên, để chương trình dịch Turbo Pascal h[r]
Trang 1Tuần 8
Tiết 15: bài tập I/ Mục tiêu:
1 Kiến thức:
- Củng cố kiến thức cơ bản về kiểu dữ liệu, cỏc phộp toỏn với kiểu dữ liệu số, cỏc phộp
so sỏnh và giao tiếp giữa người và mỏy
2 Kĩ năng:
- Rốn luyện kĩ năng sử dụng cỏc phộp toỏn trong ngụn ngữ Pascal
3 Thỏi độ:
- HS nghiờm tỳc trong học tập và nghiờn cứu bài học, giỏo dục học sinh tớnh sỏng tạo, tớch cực trong học tập, lũng yờu thớch bộ mụn
II/ Chuẩn bị của học sinh và giáo viên:
Sỏch giỏo khoa, mỏy tớnh điện tử
III/ Tiến trình dạy học:
1.Bài cũ: Gv cho học sinh viết hai chương trình ở bài tập cho về nhà
Bài tập 1: Viết chương trình tính diện tích của hình thang biết đáy lớn bằng 2 lần đáy bé ,
đường cao bằng 2/3 đáy bé
program tinh_dien_tich_hinh_thang;
var daybe,daylon,chieucao,dientich:real;
begin
write(‘ doc vao gia tri cua day ba:’);readln(daybe);
daylon:=2*daybe;
chieucao:=2/3*daybe;
dientich:=((daylon+daybe)*chieucao)/2;
writeln(‘Dien tich hinh thang la: ‘,dientich:10:2);
readln;
end
Bài tập 2:Viết chương trình tính giá trị của biểu thức sau với a, b, c là các số nguyên bất kỳ
đọc vào từ bàn phím: 5 13
2
4
b a
program tinh_bieu_thuc;
var a,b,c: integer;
bthuc:real;
begin
write(‘ doc vao gia tri cua a:’);readln(a);
write(‘ doc vao gia tri cua b:’);readln(b);
write(‘ doc vao gia tri cua c:’);readln(c);
bthuc:=((3+4*a)/(2*b))-5*b+13;
writeln(‘Gia tri cua ((3+4’,a,’)/(2’,b,’))-5’,b,’+13 = ‘,bthuc:10:2);
Trang 2end.
2.Bài mới:
Hoạt động 1: Củng cố một số kiến thức đã học
Trong Pascal cú những kiểu dữ liệu cơ
bản nào
? Hóy nờu cỏc phộp toỏn cơ bản
* Kiểu dữ liệu cơ bản :
- Interger : Số nguyờn
- Real : Số thực
- Char : Kớ tự
- String : Xõu kớ tự
* Cỏc phộp toỏn cơ bản :
- Cộng : +
Trừ :
Nhõn : *
- Chia : /
- Chia lấy phần nguyờn, phần dư : Div, mod
Hoạt động 2: Vận dụng làm bài tập
Bài 1: Dóy số 2010 cú thể là dữ liệu
kiểu nào?
Bài 2 Viết cỏc biểu thức toỏn học
sau đõy dưới dạng biểu thức trong
Pascal
Bài 1: Dóy số 2010 cú thể là dữ liệu
kiểu nào?
Dóy chữ số 2010 cú thể là dữ liệu kiểu
dữ liệu số nguyờn, số thực hoặc kiểu xõu
kớ tự Tuy nhiờn, để chương trỡnh dịch Turbo Pascal hiểu 2010 là dữ liệu kiểu xõu, chỳng ta phải viết dóy số này trong cặp dấu nhỏy đơn (')
var a: real; b: integer; c: string;
begin writeln('2010');
writeln(2010);
a:=2010;
b:=2010;
c:=‘2010’
end.
Bài 2 Viết cỏc biểu thức toỏn học sau
đõy dưới dạng biểu thức trong Pascal
Trang 3a) a c;
b d
b) ax 2 bx c ;ax 2 bx c ;
c)1 a(b 2);
d) (a 2 b)(1 c) 3
Bài 3: Hãy liệt kê các lỗi có trong
chương trình pascal dưới đây và sửa
lại cho đúng:
Const Pi:=3.1416;
Var cv, dt: interger
r: real;
Begin
r=5.5
cv=2*pi*r;
dt=pi*r*r;
writeln(‘chu vi la:=cv’);
writeln(‘dien tich la:=dt’);
readln
End
a) a/b+c/d;
b) a*x*x+b*x+c ; a*x*x+b*x+c c) 1/x-a/5*(b+2);
d)(a*a+b)*(1+c)*(1+c)*(1+c)
Bài 3: Hãy liệt kê các lỗi có trong
chương trình pascal dưới đây và sửa lại cho đúng:
- khai báo hằng phải dùng dấu bằng (=) thay cho dấu gán (:=)
- Thiếu dấu ; sau lệnh khai báo biến cv
và dt và sau câu lệnh gán đầu tiên
- Viết phép gán là dấu := thay vì dấu =
- hai câu lệnh in không in giá trị biểu thức ra màn hình
- lỗi khai báo kiểu dữ liệu không phù hợp cho 2 biến cv và dt
Chương trình sửa lại như sau:
Program CV_DT_hinh_tròn;
Const Pi=3.1416;
Var
cv, dt: real;
r: real;
Begin r:=5.5;
cv:=2*pi*r;
dt:=pi*r*r;
writeln(‘chu vi = ’,cv:10:2);
writeln(‘dien tich = ’,dt:10:2);
readln;
End
2 Củng cố:
- Về nhà ụn lại tất cả cỏc kiến thức đó học, tiết sau kiểm tra 1 tiết
Trang 4TiÕt 16: KiÓm tra 1 tiÕt I/ Môc tiªu:
Biết cách chuyển các biểu thức toán học sang các kí hiệu trong Pascal
- Biết sử dụng các câu lệnh đơn giản để viết chương trình
II Đề bài:
A Phần trắc nghiệm: (2điểm)
Câu 1 Trong các tên sau đây, tên nào là hợp lệ trong ngôn ngữ Pascal: (0.5 điểm)
a 8a b tamgiac c program d bai tap
Câu 2 Để chạy chương trình ta sử dụng tổ hợp nào: (0.5 điểm)
a Ctrl – F9 b Alt – F9 c F9 d Ctrl – Shitf – F
Câu 3 Trong Pascal, khai báo nào sau đây là đúng? (0.5 điểm)
a Var tb: real; b Type 4hs: integer; c const x: real; d Var R = 30;
Câu 4 Biểu thức toán học (a2 + b)(1 + c)3 được biểu diễn trong Pascal như thế nào ?
a (a*a + b)(1+c)(1 + c)(1 + c) b (a.a + b)(1 + c)(1 + c)(1 + c)
c (a*a + b)*(1 + c)*(1 + c)*(1 + c) d (a2 + b)(1 + c)3
B (Phần tự luận: 6 điểm)
Câu 1 Viết các biểu thức toán sau đây dưới dạng biểu thức trong Pascal (4 điểm)
a 15(4 + 30 + 12)
b
y y
x
5
18 3
) 10
c ax2 + bx +2c
d (a+b)2.(d+e)3
Câu 2 Viết chương trình tính tích của 2 số nguyên dương nhập từ bàn phím (4 điểm)
III Đáp án
A Phần trắc nghiệm:
Câu 1 b
Câu 2 a
Câu 3 a
Câu 4 c
B.Phần tự luận:
Câu 1 Viết các biểu thức toán sau đây dưới dạng biểu thức trong Pascal ?
a 15(4 + 30 + 12) => 15*(4 + 30 + 12)
b => (10 + x)*(10 + x) / (3 + y) – 18 / (5 + y)
y y
x
5
18 3
) 10
Trang 5c ax + bx +2c => a*x*x +b*x + 2*c
d (a+b)2.(d+e)3 => (a + b)*(a + b)*(d + e)*(d + e)*(d + e)
C©u2: program Chuong_trinh_tinh_tich;
var tich,a,b:integer;
begin
write(‘ doc vao hai so a va b:’); readln(a,b);
tich:=a*b;
writeln(‘ Tich cua hai so ‘,a,’ va ‘,b,’ la: ‘,tich:4);
readln;
end.
Tæ chuyªn m«n ký duyÖt ngµy / / 2009
TTCM
NguyÔn ThÞ An