Bài thực hành 2. Viết chương trình để tính toán

Tiết PPCT

Tuần dạy

9

5

Ngày soạn:

Ngày dạy:

20/ 9/ 2018

24/9/2018

Lớp dạy:

Khối 8

BÀI THỰC HÀNH 2

VIẾT CHƯƠNG TRÌNH ĐỂ TÍNH TOÁN (T1)

HOẠT ĐỘNG CỦA GV  VÀ HS

NỘI DUNG

Hoạt động 1: Hướng dẫn trước khi thực hành (15’)

GV: Yêu cầu hs đọc mục đích yêu cầu.

Hs: đọc bài.

Gv: nhấn mạnh yêu cầu nội dung của bài học.

GV: Viết các biểu thức toán học sau đây dưới dạng biểu thức trong Pascal.

Gọi 4 Hs lần lượt lên bảng làm.

Hs dưới lớp làm vào vở.

4 Hs thực hiện chuyển các biểu thức toán học sang biểu thức trong Pascal.

Gv: yêu cầu hs nhận xét

GV: Nhận xét..

GV: các em gõ từ begin ...  end.

1. Mục đích, yêu cầu.

- Luyện tập soạn thảo, chỉnh sửa chương trình, biên dịch, chạy và xem kết quả hoạt động của chương trình trong môi trường Free Pascal.

- Thực hành với các biểu thức số học trong chương trình Pascal.

2. Nội dung

Bài 1: Luyện tập gõ các biểu thức số học trong chương trình pascal

a. Viết các biểu thức toán học sau đây dưới dạng biểu thức trong Pascal.

a) ;

b) ;

c) ;

d) ;

b. Khởi động Free Pascal và gõ chương trình  để tính các biểu thức ở câu a.

Begin

Writeln(‘15*4-30+12=’, 15*4-30+12);

Gv: em hiểu gì về câu lệnh:

Writeln(‘15*4-30+12=’, 15*4-30+12);

Hs: trả lời.

Gv lấy ví dụ:

Write(1); in ra số 1

Write(‘1’); in ra kí tự 1

Write(1+2); in ra 3

Write(‘1+2’); in ra chuỗi kí tự 1+2

Write(‘1+2=’); in ra chuỗi kí tự 1+2=

Vậy: write(‘1+2=’); write(1+2);

    Write(‘1+2=’,1+2); in ra 1+2=3

Gv: sau khi in ra con trỏ sẽ nhấp nháy ở đâu?

Gv: giải thích tác dụng của writeln

Gv: quay trở về câu lệnh:

Writeln(‘15*4-30+12=’, 15*4-30+12);

Gv: em hãy cho biết câu lệnh thông báo kết quả gì?

Hs: trả lời.

Cả lớp nhận xét.

Gv: để lưu ta thực hiện ntn?

Hs:...

Gv: để biên dịch chương trình ta thực hiện ntn?

Hs:...

Gv: để chạy chương trình ta thực hiện ntn?

Hs:...

Gv: để mở tệp mới em thực hiện ntn?

Hs:...

Gv: fileNew

Gv: dịch? Quan sát và cho nhận xét.

....

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 2. Tìm hiểu các phép chia lấy phần nguyên và phép 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.

1. Mở tệp mới và gõ chương trình sau:
2. Dịch và chạy chương trình. Quan sát các kết quả nhận được và cho nhận xét về các kết quả đó.

Hoạt động 2: Khởi động và gõ chương trình để tính các biểu thức ( 20’)

Hs: thực hiện  gõ bài 1 câu b.

Bài 2 câu a

b.dịch và chạy chương trình. Quan sát kết quả. Nhận xét.

Kết quả:

Writeln(‘16/3=’,16/3);   kq: 5.33333

Writeln(’16 div 3=’,16 div3); kq: 5

Writeln(’16 mod 3=’,16 mod 3);kq: 1

Writeln(’16 mod 3=’,16 – (16 div 3) *3); kq: 1

Writeln(’16 div 3=’,(16 – (16 mod 3)) /3); kq: 5

Uses crt;

Begin

Clrscr;

Writeln(‘16/3=’,16/3);

Writeln(’16 div 3=’,16 div3);

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);