- Biến N, biến Dem kiểu số nguyên Integer - Biến X là số thực được nhập vào, biến S tổng các số thực, biến TB chứa giá trị trung bình của n số thực... Bài thực hành 6: SỬ DỤNG LỆNH LẶP W[r]
(1)SỬ DỤNG LỆNH LẶP WHILE … DO (2) Bài thực hành 6: SỬ DỤNG LỆNH LẶP WHILE … DO Kiểm tra bài cũ: Em hãy nêu cú pháp và hoạt động câu lệnh lặp While Do? (3) Bài thực hành 6: SỬ DỤNG LỆNH LẶP WHILE … DO Kiểm tra bài cũ: Cú pháp: While <Điều kiện> <Câu lệnh>; Hoạt động: Bước 1: Kiểm tra <Điều kiện>; Bước 2: Nếu <Điều kiện> sai câu lệnh bị bỏ qua và việc thực lệnh lặp kết thúc Nếu <Điều kiện> đúng, thực câu lệnh và quay lại bước (4) Bài thực hành 6: SỬ DỤNG LỆNH LẶP WHILE … DO Bài 1: Viết chương trình sử dụng câu lệnh lặp While … để tính trung bình n số thực x1, x2, x3,… xn Các số n và x1, x2, x3,… xn nhập từ bàn phím Làm nào để tính trung Xác bình định n yêu sốcầu thực bài x1, x2, x3, toán? … xn? (5) Bài thực hành 6: SỬ DỤNG LỆNH LẶP WHILE … DO Xác định bài toán: Input: Dãy số thực x1, x2, x3,… xn Output: Giá trị trung bình n số thực (6) Bài thực hành 6: SỬ DỤNG LỆNH LẶP WHILE … DO Thuật toán: B1: Nhập N, Dem←0, S←0; B2: Trong Dem<N thì Dem←Dem+1; Nhập X; S←S+X; B3: TB←S/N; B4: In giá trị TB và kết thúc thuật toán (7) Bài thực hành 6: SỬ DỤNG LỆNH LẶP WHILE … DO Dựa vào thuật toán trên, em cần khai báo biến nào với kiểu liệu là gì? - Biến N, biến Dem kiểu số nguyên (Integer) - Biến X là số thực nhập vào, biến S tổng các số thực, biến TB chứa giá trị trung bình n số thực (Real) (8) Bài thực hành 6: SỬ DỤNG LỆNH LẶP WHILE … DO Chương trình: Program Tinh_TB; TÌM HIỂU Uses crt; CÁC LỆNH CỦA Var n, dem: Integer; CHƯƠNG TRÌNH X, TB: Real; (9) Bài thực hành 6: SỬ DỤNG LỆNH LẶP WHILE … DO Chương trình: Program Tinh_TB; Khai báo tên Uses crt; Khai báo thư viện Var n, dem: Integer; X, TB: Real; Khai báo biến (10) Bài thực hành 6: SỬ DỤNG LỆNH LẶP WHILE … DO Begin Clrscr; Xóa màn hình kết Dem:=0; TB:=0; Gán giá trị cho biến biế Dem và biến TB Write(‘Nhap so cac so can tinh:’); Readln(n); Nhập giá trị cho biến n (11) Bài thực hành 6: SỬ DỤNG LỆNH LẶP WHILE … DO Dem<N While Dem<N Begin Dem:=Dem+1; Tăng giá trị biến Dem lên dem); Write( ‘nhap so thu ‘, Readln(X); TB:=TB+X; End; Nhập số thực vào biến X Tính tổng các số thực gán vào biến TB (12) Bài thực hành 6: SỬ DỤNG LỆNH LẶP WHILE … DO TB:=TB/N; Tính giá trị trung bình Writeln(‘Trung binh cua’, N, ‘so la:’,TB:4:2); In kết và kết Readln; thúc End (13) Bài thực hành 6: SỬ DỤNG LỆNH LẶP WHILE … DO - Gõ chương trình và lưu với tên Tinh_TB - Dịch và sửa lỗi có - Chạy chương trình với liệu tùy ý - Viết lại chương trình trên sử dụng câu lệnh lặp For … (14) Bài thực hành 6: SỬ DỤNG LỆNH LẶP WHILE … DO Program Tinh_TB; Uses crt; Var n, i: Integer; X, TB: Real; Begin Clrscr; TB:=0; Write(‘Nhap cac so can tinh:’); Readln(n); (15) Bài thực hành 6: SỬ DỤNG LỆNH LẶP WHILE … DO For i:=1 to N Begin Write( ‘nhap so thu ‘, i); Readln(X); TB:=TB+X; End; TB:=TB/N; Writeln(‘trung binh cua’, N, ‘so la:’,TB:4:2); Readln; End (16) Củng cố 16 (17) Củng cố Qua các bài học câu lệnh lặp, nào thì em sử dụng câu lệnh While…do, nào em sử dụng lệnh lặp For…do? (18) Củng cố Lặp với số lần biết trước For <bđ>:= <gtđ> to <gtc> Cách mô <câu tả các lệnh>; CẤU TRÚC hoạt động lặp lặp lại nhiều lần CẤUgọi TRÚC LẶP còn là gì? LẶP Lặp với số lần chưa biết trước While <điều kiện> <câu lệnh>; 18 (19) DẶN DÒ - Học lại cú pháp các câu lệnh lặp - Viết chương trình cho hai thuật toán bài tập SGK/70 - Đọc và tìm hiểu chương trình bài (20) (21)