Bài thực hành 6 Sử dụng lệnh lặp While…Do môn Tin học lớp 8 đầy đủ chi tiết nhất

5 4 0
Bài thực hành 6 Sử dụng lệnh lặp While…Do môn Tin học lớp 8 đầy đủ chi tiết nhất

Đang tải... (xem toàn văn)

Thông tin tài liệu

Thư Viện STEM STEAM Bài thực hành 6 SỬ DỤNG LỆNH LẶP WHILE DO I Mục đích 1 Kiến thức Viết được chương trình có sử dụng vòng lặp While do Sử dụng được câu lệnh ghép 2 Kĩ năng Đọc hiểu chương trình có v[.]

Bài thực hành 6: SỬ DỤNG LỆNH LẶP WHILE…DO I.Mục đích Kiến thức  Viết chương trình có sử dụng vòng lặp While…do  Sử dụng câu lệnh ghép 2.Kĩ  Đọc hiểu chương trình có vịng lặp while…do 3.Thái độ  Có ý thức tư duy, có thái độ ham học hỏi, tác phong làm việc nghiêm túc Định hướng phát triển lực: lực sử dụng máy tính, lực giải vấn đề, lực sáng tạo, ứng dụng KHKT, lực tự học, lực hợp tác, làm việc nhóm PHƯƠNG PHÁP:  Đặt giải vấn đề - Luyện tập thực hành II CHUẨN BỊ BÀI HỌC: Giáo viên : - SGK, tài liệu, Giáo án, Phòng máy Học sinh :- Đọc trước TH6 III TIN TRèNH BI HC: 1.Hoạt động 1: Khởi động Kim tra 15’: Viết chương trình tính tổng hai số a, b (với giá trị a, b nhập vào từ bàn phím) Biểu chấm: (hs thiếu dấu ; trở lên trừ 1đ) Program tong_hai_so; Uses crt ; Var a, b : real ; Begin Clrscr; Write(‘Nhập a, b :) ; Readln(a,b) ; Writeln(‘Tong a va b la:’, (a+b):4:2) ; Readln ; End điểm không cho dấu , vào tên khơng có dấu cách điểm điểm điểm sau begin có ; không cho điểm điểm viết trước begin không cho điểm điểm điểm điểm Nếu viết Writeln(‘Tong a va b la:’,s); s:=a+b; không kq, =0 điểm khơng có dấu ; ỳng im 2.Hoạt động 2: Hỡnh thnh kin thức (30 phót) HOẠT ĐỘNG CỦA GIÁO VIÊN NỘI DUNG, YÊU CẦU CẦN ĐẠT VÀ HỌC SINH Bài 1: Tính trung bình n số x1,x2,x3, xn G: Yêu cầu hs xác định tốn G: Học sinh mơ tả thuật toán G: Gợi ý để học sinh viết thuật toán G: Dựa vào thuật toán sử dụng lệnh While để viết chương trình - Khai báo biến cho chương trình +Gán biến đem =0 tb=0; Nhập n; +Trong demn tới bước B4: demdem+1; nhập x; TBTB+x; B5: Kết thúc in kết hình Program trungbinh; Uses crt; Var N, dem: integer; X, TB: Real; Begin Clrscr; begin Dem:=0; TB:=0; Write (‘nhap so N =’); Readln(N); While dem

Ngày đăng: 03/04/2023, 15:57

Tài liệu cùng người dùng

Tài liệu liên quan