Đang tải... (xem toàn văn)
Hoạt động B1: Kiểm tra điều kiện B2: Nếu điều kiện đúng thì thực hiện câu lệnh và quay lại B1.. B3: Nếu điều kiện sai thoát khỏi vòng lặp...[r]
(1)LOGO CHÀO MỪNG BẠN ĐẾN VỚI BÀI GIẢNG (2) SỬ DỤNG KIẾN THỨC LIÊN MÔN VÀO BÀI GIẢNG (3) Lặp với số lần chưa biết trước và câu lệnh While - Bài Cho a>2 và N là số nguyên Tính tổng và đưa màn hình: 1 1 S= + + + + a a +1 a + a+N SỞ GIÁO DỤC VÀ ĐÀO TẠO TUYÊN QUANG Và dừng a+N < 0.0001 Thuật toán B1: Nhập a; B2: S:= 1/a; N:=0 B3: Nếu 1/(a+N) <0.0001 thì thông báo kết và kết thúc B4: S:=S+1/(a+N); N:=N+1 B3 (4) Lặp với số lần chưa biết trước và câu lệnh While - Cấu trúc WHILE <điều kiện> DO <Câu lệnh>; Trong đó: - while, do: là từ khóa - điều kiện: là biểu thức lôgic biểu thức quan hệ - Câu lệnh: là câu lệnh đơn câu lệnh ghép Hoạt động B1: Kiểm tra điều kiện B2: Nếu điều kiện đúng thì thực câu lệnh và quay lại B1 B3: Nếu điều kiện sai thoát khỏi vòng lặp S Điều kiện Đ Câu lệnh (5) Ví dụ Program Bai_2; Var s : Real; N, a: Integer; Begin Write (‘Nhap a =’); Readln(a); S:=1/a; N:=0; While 1/(a+i) > 0.0001 Begin N := N + 1; S := S+1/(a+i); end; Write(‘Tong S=’), S:10:3); Readln End Khai báo Thân chương trình (6) Lặp với số lần chưa biết trước và câu lệnh While - Ví dụ Tìm ước chung lớn số nguyên dương M, N Thuật toán B1: Nhập M, N B2: Nếu M = N thì UCLN là M N và kết thúc B3: Nếu M > N thì M := M - N ngược lại thì N := N - M và quay lại B2 (7) Program UCLN; Var M, N: Integer; Begin Write(‘ Nhap M va N =’); Readln(M,N); While N<>M If N > M then M:= M-N else N:=N-M; Write(‘UCLN la ’, N); Readln End Khai báo Thân chương trình (8) Bài tập củng cố Câu 1: Cho biết câu lệnh While - là loại câu lệnh a Lặp với số lần biết trước b Lặp với số lần chưa biết trước c Cả a, b sai (9) Câu 2: Câu lệnh sau từ khóa DO thực gặp điều kiện a a Đúng Đúng c Cả a, b đúng b Sai d Cả a, b sai (10) LOGO TRƯỜNG THPT TRUNG SƠN (11)