bai 10 (tiet1) potx

Gi¸o ¸n ®iÖn tö tin häc líp 11 Program kiemtra; var x,y :integer; Begin x :=20 ; y := 10 ; If x > y then x := x – y ; If x=y then y := y – x ; Write( x, ‘ ‘, y) ; Readln; End. GiảI đáp 20 x 10 y > 10 x 20 10- 10 x = 10 y 0 y 10 10 - 10 x Begin x :=20 ; y := 10 ; If x > y then x := x – y ; If x=y then y := y – x ; Write( x, ‘ ‘, y) ; Readln; End. Hãy cho biết kết quả của đoạn chương trình sau: Bµi 10 Gi¸o ¸n ®iÖn tö tin häc líp 11 Gi¸o ¸n ®iÖn tö tin häc líp 11  Hiểu được nhu cầu của cấu trúc lặp trong biểu diển thuật toán.  Hiểu cấu trúc lặp với số lần biết trước, cấu trúc lặp kiểm tra điều kiện trước.  Biết cách vận dụng đúng đắn từng loại cấu trúc lặp vào tình huống cụ thể.  Viết đúng các lệnh lặp với số lần lặp biết trước, lệnh lặp kiểm tra điều kiện trước.  Viết được thuật toán của một số bài toán đơn giản. Bài toán 1: Tính tổng S, với a là số nguyên và a>2 100 1 2 1 1 11 + ++ + + + += aaaa S Các bài toán đặt vấn đề Hãy nêu nhận xét và hướng giải của bài toán này ?  Đây là bài toán tính tổng liên tiếp của 101 phần tử.  Ta có thể đưa ra hướng giải như sau: PHÂN TÍCH BÀI TOÁN NhËn xÐt: S1 = 1/a S2 = S1 + 1/(a+1) S3 = S2 + 1/(a+2) S4 = S3 + 1/(a+3) S100 = S99 + 1/(a+100) 1 a =S • Bắt đầu từ S2 việc tính S được lặp đi lặp lại 99 lần theo quy luật • Ssau = Strước+ 1/i • với i chạy từ 2 → 100 1 1a + + 1 2a + + 1 4a + + + + + a 1 100 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Bµi to¸n 2: TÝnh tæng S, víi a lµ sè nguyªn vµ a>2 1 2 1 1 11 + + ++ + + + += Naaaa S cho ®Õn khi 0001.0 1 < + Na Xuất phát a S 1 = 1 1 + + a Lần 1 2 1 + + a Lần 2 + Lần N Na + + 1 Mỗi lần thực hiện giá trị tổng S tăng thêm bao nhiêu? 1 Sau mi ln thc hin giỏ tr tng S tng thờm ( vi i =1; 2; 3 ; ;N) a + i Cùng tìm thuật toán Bài toán 1: Bài toán 2: 100 1 2 1 1 11 + ++ + + + += aaaa S 1 2 1 1 11 + + ++ + + + += Naaaa S Cho đến khi 00010 1 .< + Na Số lần lặp biết tr ớc. Việc tăng giá trị cho tổng S đ ợc lặp đi lặp lại cho đến khi 0.0001 Na 1 < + Việc tăng giá trị cho tổng S đ ợc lặp đi lặp lại 100 lần. tìm sự khác biệt Số lần lặp ch a biết tr ớc. CÊu tróc lÆp [...]... - Dữ liệu vào (Input) : Nhập N - Dữ liệu ra (Output) : Tổng S Phân tích bài toán với N = 100 1 1 1 1 S =1 + + + + + 2 3 4 100 S1 = 1 S2 = S1 + 1/2 S3 = S2 + 1/3 S4 = S3 + 1/4 S100 = S99 + 1 /100 Nhận xét: Bắt đầu từ S2 việc tính S đ ợc lặp đi lặp lại 99 lần theo quy luật Ssau = Strớc+ 1/i với i chạy từ 2 100 Xây dựng thuật toán B1: Nhập N; Nhập N B2: S:=1; i:=2; S:= 1 ; i:= 2 i>N? B3: Nếu i >... S:=1; FOR i:=2 TO 100 DO S:=S+1/i; b Dạng 2 (dạng lùi) FOR := DOWNTO DO ; Ví dụ: S:=1; FOR i: =100 DOWNTO 2 DO S:=S+1/i; Trong đó Biến đếm là biến kiểu số nguyên hoặc kí tự For i:=1 to 10 do write(i); For i:=a to z do write(i); Giá trị đầu, giá trị cuối là các biểu thức cùng kiểu với biến đếm, giá trị đầu phải nhỏ hơn giá trị cuối For i:= 100 to 200 do... cỏch thc dựng vũng lp for gii bi toỏn ny ? Chng trỡnh gii bi toỏn Uses crt; Var dung,nam,gia : byte; Begin clrscr; for dung:=1 to 20 do for nam:=1 to 33 do begin gia: =100 -dung-nam; if gia mod 3 = 0 then if dung*5+ nam*3+ (gia div 3) = 100 then write(dung:, dung,nam:,nam,gia:,gia); end; End Hãy nhớ! Câu lệnh rẽ nhánh IF THEN ; + Dạng khuyết IF THEN + Dạng đầy đủ ESLE . := 10 ; If x > y then x := x – y ; If x=y then y := y – x ; Write( x, ‘ ‘, y) ; Readln; End. GiảI đáp 20 x 10 y > 10 x 20 10- 10 x = 10 y 0 y 10 10 - 10 x Begin x :=20 ; y := 10 ; . S100 = S99 + 1/(a +100 ) 1 a =S • Bắt đầu từ S2 việc tính S được lặp đi lặp lại 99 lần theo quy luật • Ssau = Strước+ 1/i • với i chạy từ 2 → 100 1 1a + + 1 2a + + 1 4a + + + + + a 1 100 N 1 4 1 3 1 2 1 1S +++++= Phân tích bài toán với N = 100 Nhận xét: S1 = 1 S2 = S1 + 1/2 S3 = S2 + 1/3 S4 = S3 + 1/4 S100 = S99 + 1 /100 1=S Bắt đầu từ S2 việc tính S đ ợc lặp đi lặp lại 99