- Có ph¸p khai b¸o biÕn trong Pascal: Var danh s¸ch biÕn: kiÓu d÷ liÖu; - Có ph¸p lÖnh g¸n trong Pascal: biÕn:=biÓu thøc; - Lệnh real danh sách biến hay readlndanh sách biến, trong đó da[r]
Trang 1Tiết 9 + 10
S: 9/10/2008
G:8A: 10/10
8B: 11/10
Bài thực hành 2:
viết chương trình để tính toán
I- Mục tiêu cần đạt.
1 Kiến thức:
- Biết được kiểu dữ liệu khác nhau thì được xử lí khác nhau
- Hiểu phép toán div, mod
- Hiểu thêm về các lệnh in dữ liệu ra màn hình và biết các lệnh tạm ngừng chương trình
2 Kỹ năng:
- Chuyển được biểu thức toán học sang biểu diễn trong Pascal
3 Thái độ:
- Có thái độ học tập nghiêm túc
II- Chuẩn bị:
HS: Ôn lại những kiến thức đã học ở bài trước
- Đọc trước bài thực hành 2:
GV: Các bài tập cho hs thực hành
- Máy tính để hs thực hành
III- Hoạt động dạy - học
Hoạt động 1: Kiểm tra bài cũ.
HS1: Làm bài tập 4 ý a, b (sgk – 27)
2
)
)
a c
a
b d
b ax bx c
HS2: Làm bài tập 4 ý c, d (sgk – 27)
1
5
)( )(1 )
a
x
d a b c
Bài tập 4: (sgk – 27)
Viết các biểu thức toán dưới đây bằng các kí hiệu trong Pascal:
a) (a/b) + (c/d) b) a*x*x + b*x +c c)(1/x) – (a/5*(b+ 2)) d)(a * a + b)*(1 + c)* (1 + c)* (1 + c)
Hoạt động 2: Thực hành trên máy tính.
Bài tập 1: Luyện gừ cỏc biểu thức số học trong mụi trường Pascal.
a)Viết cỏc biểu thức sau dưới dạng biểu thức trong Pascal (làm trờn giấy).
)15 4 30 2
10 5 18
)
3 1 5 1
2
10 2
)
3 6
2
3
10 3 22
3 2
Trang 2b Khởi động Pascal và gừ chương trỡnh sau để tớnh cỏc biểu thức trờn.
Begin
writeln (’15*4 – 30 + 12 =‘ , 15*4-30+12);
writeln (‘(10+5)/(3+1)-18/(5+1) =‘ , (10+5)/(3+1)-18/(5+1));
writeln (‘(10+2)*(10+2)/(3+6) =‘ , (10+2)*(10+2)/(3+6));
readln;
readln;
End.
c Lưu chương trỡnh với tờn CT2.pas Dịch, chạy chương trỡnh và kiểm tra kết quả nhận được trờn màn hỡnh
Bài tập 2: Tỡm hiểu cỏc phộp chia lấy phần nguyờn, chia lấy phần dư với số
nguyờn Sử dụng cỏc cõu lệnh tạm ngừng chương trỡnh
- Mở tệp mới và gõ chương trình sau:
Uses crt;
Begin
clrscr;
writeln (’16/3 = ‘ , 16/3);
writeln (’16 div 3 = ‘ , 16 div 3);
writeln (’16 mod 3 = ‘ , 16 mod 3);
writeln (’16 mod 3 = ‘ , 16 - (16 div 3)*3);
writeln (’16 div 3 = ‘ , (16-(16 mod 3))/3);
End.
Bài tập 3: Mở tệp CT2.pas và sửa 3 dũng lệnh cuối (trước từ khúa end) như bờn
dưới Sau đú dịch, chạy lại chương trỡnh xem kết quả
writeln (’15*4 – 30 + 12 =‘ , 15*4-30+12 : 4 : 2);
writeln (‘(10+5)/(3+1)-18/(5+1) =‘ , (10+5)/(3+1)-18/(5+1) :4 : 2);
writeln (‘(10+2)*(10+2)/(3+6) =‘ , (10+2)*(10+2)/(3+6) : 4 : 2);
Hoạt động 3: Củng cố - Hướng dẫn về nhà.
- Cỏc kớ hiệu của cỏc phộp toỏn số học trong Pascal là: +, -, *, /, mod Div.
- Lệnh tạm dừng chương trỡnh:
+ Delay(x): tạm ngừng chương trỡnh trong x phần nghỡn giõy, sau đú chạy tiếp + read hoặc readln tạm ngừng chương trỡnh cho tới khi nhấn phớm enter
* Cõu lệnh writeln(<giỏ trị thực) : n : m) được dựng để điều khiển cỏch in số thực trờn màn hỡnh Trong đú giỏ trị thực là số hay biểu thức số thực và m, n là cỏc số tự nhiờn.n quy định độ rộng in số, m là số chữ số thập phõn Lưu ý rằng cỏc kết quả in ra màn hỡnh được căn thẳng lề phải
Trang 3Tiết 13 + 14
S:
G:8A:
8B:
Bài thực hành 3:
khai báo và sử dụng biến
I- Mục tiêu cần đạt.
1 Kiến thức:
- Thực hiện được khai báo đúng cú pháp, lựa chọn được kiểu dữ liệu phù hợp cho biến
- Kết hợp được giữa lệnh write, writeln với read, readln để thực hiện việc nhập dữ liệu cho biến từ bàn phím
- Hiểu về các kiểu dữ liệu chuẩn: Kiểu số nguyên, kiểu số thực
- Hiểu cách khai báo và sử dụng biến
- Hiểu và thực hiện được việc tráo đổi giái trị của biến
2 Kỹ năng:
- Sử dụng được lệnh gán giá trị cho biến
- Hiểu và thực hiện được việc tráo đổi giái trị của biến
3 Thái độ:
- Có thái độ học tập nghiêm túc
II- Chuẩn bị:
HS: Ôn lại những kiến thức đã học ở bài trước
- Đọc trước bài thực hành 3:
GV: Các bài tập cho hs thực hành
- Máy tính để hs thực hành
III- Hoạt động dạy - học
Hoạt động 1: Kiểm tra bài cũ.
HS1: Làm bài tập 4 (sgk – 33)
Trong Pascal khai báo nào sau đây đúng:
a) Var tb:=real;
b) 4hs: integer;
c) const x:real;
d) Var R = 30;
HS2: Làm bài tập 5 (sgk – 33)
Hãy liệt kê các lỗi nếu có trong chương
trình dưới đây và sửa lại chô đúng:
Var a, b:= integer;
const c:=3;
Begin
a:=200
b:= a/c;
write(b);
readln
end
Bài tập 4: (sgk – 33)
Trong Pascal khai báo nào sau đây đúng: a) Var tb:=real;
b) 4hs: integer;
Bài 5:
a, b:= integer;
const c:=3;
a:=200 readln
a, b: integer;
const c=3;
a:=200;
readln;
Hoạt động 2: Thực hành trên máy tính.
Bài tập 1: Viết chương trình Pascal có khai báo và sử dụng biến:
Trang 4Bài toán: Một cửa hàng cung cấp dịch vụ bán hàng thanh toán tại nhà Khách hàng
chỉ cần đăng kí số lượng mặt hàng cần mua Nhân viên cửa hàng sẽ trả hàng và nhận tiền thanh toán tại nhà khách hàng Ngoài giá trị bán hàng hoá khách hàng còn phải trả thêm phí dịch vụ Hãy viết chương trình Pascal để tính tiền thanh toán trong trường hợp khách hàng chỉ mua một mặt hàng duy nhất
* Chú ý: Công thức tính:
Tiền thanh toán = Đơn giá * Số lượng + Phí dịch vụ
a) Khởi động Pascal, gõ chương trình sau:
Bài giải:
Program TINH_TIEN;
Uses crt;
Var
soluong: integer;
dongia, thanhtien: real;
thongbao: string;
Const
phi = 10000;
begin
clrscr;
thongbao:=’Tong so tien phai tinh toan =’;
write (‘Don gia =’); Readln(dongia);
write(‘soluong=’); Readln(soluong);
thanhtien:= soluong*dongia + phi;
writeln(‘thongbao, thanhtien:10:2);
Readln;
End
b) Lưu chương trình với tên TINHTIEN.PAS
c) Chạy chương trình với các bộ dữ liệu
Bài tập 2: Thử viết chương trình nhập các số nguyên x và y, in giá trị của x và y ra
màn hình Sau đó hoán đỏi các giá trị của x và y rồi in ra màn hình giá trị của x và y
Bài giải:
Program HOAN_DOI;
uses crt;
Var
x,y,z: integer;
Begin
clrscr;
read(x,y);
writeln(x,’ ‘,y);
z:= x;
x:= y;
y:=z;
writeln(x,’ ‘,y);
readln;
end
Trang 5Hoạt động 3: Củng cố - Hướng dẫn về nhà.
- Cú pháp khai báo biến trong Pascal:
Var (danh sách biến): (kiểu dữ liệu);
- Cú pháp lệnh gán trong Pascal:
(biến):=(biểu thức);
- Lệnh real (danh sách biến) hay readln(danh sách biến), trong đó danh sách biến là tên các biến đã khai báo, được sử dụng để nhập dữ liệu từ bàn phím Sau khi nhập dữ liệu cần nhấn phím Enter để xác nhận
Nội dung chú thích nằm trong cặp dấu { và } bị bỏ qua khi dịch chương trình Các chú thích được dùng để làm cho chương trình dễ đọc, dễ hiểu Ngoài ra có thể dùng cặp các dấu * và * để tạo chú thích