Tin 8 Bai 7

Bài CÂU LỆNH LẶP Thời gian tiết CÁC CÔNG VIÊÊC PHẢI THỰC HIÊÊN NHIỀU LẦN Hãy quan sát các ảnh sau Học Mỗi Đánh ngày cho đến tắm m ngày ột thuộc lần hai làbài lần công việc việc lặp lại lặp số với Đi học ngày lần lcông công việc lặp lại với số lần thểbiết xác địnhtrước lần sốnh lần ấtkhông nh định ấtđịnh định vàbiết trước biết trước nh ất CÁC CÔNG VIÊÊC PHẢI THỰC HIÊÊN NHIỀU LẦN Trong sống ngày, nhiều hoạt động lặp lặp lại nhiều lần Có hoạt động mà thường thực lặp lại với số lần định biết trước, chẳng hạn đánh ngày hai lần, ngày tắm lần,…Chúng ta lặp lại công việc với số lần xác định được: học thuộc bài,nhặt cọng rau xong,… Khi viết chương trình máy tính Để dẫn cho máy thực công việc, nhiều trường hợp ta cần phải viết lặp lại nhiều câu lệnh thực phép tính định CÂU LÊÊNH LĂÊP_MÔÊ T LÊÊNH THAY CHO NHIỀU LÊÊNH Ví dụ Giả sử ta cần vẽ ba hình vuông có cạnh đơn vị hình 33 Mỗi hình vuông ảnh dịch chuyển hình bên trái khoảng cách đơn vị Do đó, ta cần lặp lại thao tác vẽ hình vuông ba lần Hình 33 2 •Việc vẽ hình thực thuật toán sau đây: Bước Vẽ hình vuông ( vẽ liên tiếp bốn cạnh trở đỉnh ban đầu) Bước Nếu số hình vuông vẻ 3, di chuyển bút vẻ bên phải hai đơn vị trở lại bước 1; ngược lại kết thúc thuật toán CÂU LÊÊNH LĂÊP_MÔÊ T LÊÊNH THAY CHO NHIỀU LÊÊNH Riêng toán vẽ hình vuông (hình 34), thao tác vẽ bốn cạnh nhau, lập lại bốn lần thao tác vẽ đoạn thẳng Sau lần vẽ đoạn thẳng, thước kẻ quay góc 90 sang phải vị trí bút vẽ Hình 34 Thuật toán sau mô tả bước để vẽ hình vuông: Bước1 K vẽ được) ( số đoạn thẳng Bước2 K K+1 Vẽ đoạn thẳng đơn vị độ dài quay thước 900 sang phải Bước3 Nếu K < trở lại bước2; Ngược lại, kết thúc thuật toán CÂU LÊÊNH LĂÊP_MÔÊ T LÊÊNH THAY CHO NHIỀU LÊÊNH Ví dụ Giả sử cần tính tổng 100 số tự nhiên đầu tiên, tức tính: S= 1+2+3+…+100 Thuật toán sau mô tả việc thực lặp lại phép cộng 100 lần: Bước1 SUM Bước2 I 0; i i+1 Bước3 Nếu i ≤ 100, SUM bước SUM + i quay lại Bước4 Thông báo kết kết thúc thuật toán CẤU TRÚC DẠNG LẶP TIẾN Hãy nêu cấu trúc dạng lặp tiến? For := to ; Biến đếm: biến kiểu nguyên, kí tự Giá trị đầu, giá trị cuối biểu thức kiểu với biến đếm Giá trị đầu phải nhỏ giá trị cuối Câu lê ênh: Không làm thay đổi giá trị biến đếm, Nếu có nhiều lệnh phải đặt cặp từ khoá Begin end; Ví dụ S:=1; FOR i:=2 TO 100 DO S:=S+1/i; SƠ ĐỒ KHỐI Biến đếm:=giá trị đầu Sai Biến đếm= giá trị cuối thì: • thực lệnh cần lặp • giảm biến đếm đơn vị, quay lại bước Lưu ý: + Biến đếm biến đơn, có kiểu nguyên kí tự For i:=1 to 10 write(i); For i:=‘a’ to ‘z’ write(i); + Giá trị đầu, giá trị cuối các biểu thức có kiểu với biến đếm Giá trị đầu phải nhỏ giá trị cuối For i:= 100 to 200 write(i); + Giá trị biến đếm điều chỉnh tự động, câu lệnh viết sau DO không thay đổi giá trị biến đếm TÍNH TỔNG BẰNG CÂU LÊÊNH LĂÊP Viết chương trình tính tổng S=1+2+3+4+5 Program Tinh_tong; Uses crt; Var i: integer; S: longint; Begin S:=0; For i:= to S:= S + 1; Writeln (‘Tong cua S = ’,s); Readln end TÍNH TỔNG BẰNG CÂU LÊÊNH LĂÊP Viết chương trình tính tổng N số tự nhiên đầu tiên, với N số tự nhiên nhâ ăp vào từ bàn phím Program Tinh_tong; Uses crt; Var N, i: integer; S: longint; Begin write(‘Nhap so N = ‘); readln(N); S:=0; For i:= to N S:= S + i; Writeln (‘Tong cua S = ’,N,’ So tu nhien dau tien S = ‘,S); Readln end TÍNH TÍCH BẰNG CÂU LÊÊNH LĂÊP Ta kí hiệu N! tích N số tự nhiên đầu tiên: N! = 1.2.3…N - Viết chương trình tính N! với N số tự nhiên nhập vào từ bàn phím Program Tính_Giai_thua; Uses crt; Var i, N: integer; P: longint; Begin write (‘Nhap N = ‘); readln (N); P:= 1; For i:= to N P:= P*i; Writeln (N,’! = ’,P); Readln end Em viết chương trình tính tổng số nguyên liên tiếp từ n đến m với n,m số nguyên dương nhập vào từ bàn phím Program tinh_tong; Uses crt; Var m, n, i: integer; S: longint; Begin write (‘Nhap n = ‘); readln ( n); write (‘Nhap m=‘); readln ( m); S:=0; For i:= n to m S:= S + n; Writeln (‘Tong cua S = ’,s); Readln end MEMORIZE Cấu trúc lăÊp sử dụng để thị cho máy tính thực hiêÊn lăÊp lại môÊt vài hoạt đôÊng môÊt điều kiêÊn thoả mãn Mọi ngôn ngữ lâÊp trình có các câu lêÊnh lăÊp để thể hiêÊn cấu trúc lăÊp Ngôn ngữ Pascal thể hiêÊn cấu trúc lăÊp với số lần lăÊp cho trước bằng câu lêÊnh For … Thực tháng 01 năm 2009 [...]... CÂU LÊÊNH LĂÊP Viết chương trình tính tổng S=1+2+3+4+5 Program Tinh_tong; Uses crt; Var i: integer; S: longint; Begin S:=0; For i:= 1 to 5 do S:= S + 1; Writeln (‘Tong cua S = ’,s); Readln end TÍNH TỔNG BẰNG CÂU LÊÊNH LĂÊP Viết chương trình tính tổng của N số tự nhiên đầu tiên, với N là số tự nhiên được nhâ ăp vào từ bàn phím Program Tinh_tong; Uses crt; Var N, i: integer; S: longint; Begin write(‘Nhap... (N); P:= 1; For i:= 1 to N do P:= P*i; Writeln (N,’! = ’,P); Readln end Em hãy viết chương trình tính tổng các số nguyên liên tiếp từ n đến m với n,m là các số nguyên dương nhập vào từ bàn phím Program tinh_tong; Uses crt; Var m, n, i: integer; S: longint; Begin write (‘Nhap n = ‘); readln ( n); write (‘Nhap m=‘); readln ( m); S:=0; For i:= n to m do S:= S + n; Writeln (‘Tong cua S = ’,s); Readln end ... giá trị biến đếm TÍNH TỔNG BẰNG CÂU LÊÊNH LĂÊP Viết chương trình tính tổng S=1+2+3+4+5 Program Tinh_tong; Uses crt; Var i: integer; S: longint; Begin S:=0; For i:= to S:= S + 1; Writeln (‘Tong... chương trình tính tổng N số tự nhiên đầu tiên, với N số tự nhiên nhâ ăp vào từ bàn phím Program Tinh_tong; Uses crt; Var N, i: integer; S: longint; Begin write(‘Nhap so N = ‘); readln(N); S:=0;... trình tính tổng số nguyên liên tiếp từ n đến m với n,m số nguyên dương nhập vào từ bàn phím Program tinh_tong; Uses crt; Var m, n, i: integer; S: longint; Begin write (‘Nhap n = ‘); readln ( n); write