Đang tải... (xem toàn văn)
Muïc ñích,yeâu caàu Luyeän taäp vaøcuûng coá veà caáu truùc laëp Tiếp tục làm quen với các công cụ phục vụ hiệu chỉnh chương trình B.. Bước Chuẩn Bị: GV:Sgk, ñóachöông trình, baøi [r]
(1)BAØI THỰCHAØNH SỐ 11 A Muïc ñích,yeâu caàu Luyeän taäp vaøcuûng coá veà caáu truùc laëp Tiếp tục làm quen với các công cụ phục vụ hiệu chỉnh chương trình B Bước Chuẩn Bị: GV:Sgk, ñóachöông trình, baøi taäp HS:Sgk,đĩa A, bài tập C Noäi Dung: GV: 1) Hỏi học sinh nào là bài toán lặp, cho ví dụ cụ thể 2) Có câu lệnh lặp mà ta đã học? nào thì dùng câu lệnh lặp While – do? nào thì dùng câu lệnh lặp For– do? viết cú pháp câu lệnh? HS: Vận dụng: Hãy hoàn chỉnh các chương trình sau và đánh vào máy để kiểm tra: Baøi 1) Var : integer ; Begin For ga:=1 to 36 -Begin Cho = 36- ga; If ga*2 + cho*4 = 100 then Writeln(‘ so ga =’, ga:3); Writeln(‘ so cho =’, cho :3); End; Readln; End Bài 2) Chương trình tìm UCLN(A,B) với A,B là số nguyên dương nhập từ bàn phím Var A,B: BEGIN WRITE(‘NHAP A ,B=’); READLN( ); WHILE - DO IF A> B THEN A:=A-B ELSE -WRITELN(‘UCLN=’,A); END Baøi 3) PROGRAM TONG_S; Var S: A,N: BEGIN WRITE(‘NHAP GIA TRI A =’); READLN( ); Lop11.com (2) S:=1/A; N:=0; WHILE NOT(1/(A+N) <0.0001) -BEGIN N:= S:= S+1/(A+N) END WRITELN(‘TONG S=’,S:4); END *Qua chương trình trên GV khắc phục lỗi sai thường gặp hs và giúp các em hiệu chỉnh kỹnăng thao tác trên máy; chạy thử chương trình với các liệu khác để thấy tính dúng đắn chương trình D NHẬN XÉTVAØ ĐÁNH GIÁ: Kết thúc buổi thực hành GV nhận xét và đánh giá buổi thực hành, củng cố lại kiến thức cho các em, nhắc nhở các vấn đề cần thiết lên máy Lop11.com (3)