bai 7 cau lenh lap

BÀI CÂU LỆNH LẶP Câu lệnh lặp – lệnh thay cho nhiều lệnh Hãy kể tên hoạt động thực lặp lặp lại với số lần định biết trước ?  Em đánh lần ngày  Kim giây quây 60 vịng  Viết chương trình in hình từ đến 10 10 lệnh in VD1 : in hình chữ HELLO Program BT1; Uses crt; Begin Writeln(‘HELLO'); Readln; End HELLO VD2 : in hình chữ HELLO Program BT4; Uses crt; Begin Writeln(‘HELLO'); Writeln('HELLO'); Writeln(‘HELLO'); Writeln(‘HELLO'); Readln; End HELLO HELLO HELLO HELLO Nếu viết chương in có hình 100 chữlặp ‘O’với  Mọi ngơn ngữ trình lập trình cấu trúc saoLỆNH nhỉ? LẶP câu lệnh Đó CÂU chương trình q dài, viết nhiều thời gian ! Câu lệnh lặp For…do (câu lệnh lặp với số lần biết trước) a Cú pháp : FOR := TO DO ; b Trong đó: - FOR, TO, DO : từ khóa Pascal - Biến đếm : thường có kiểu số nguyên - Giá trị đầu, giá trị cuối : giá trị số nguyên - Giá trị cuối > Giá trị đầu - Câu lệnh : câu lệnh đơn câu lệnh ghép c Hoạt động: - B1: Biến đếm nhận giá trị giá trị đầu thực câu lệnh.Sang B2 - B2: Biến đếm tăng đơn vị Sang B3 - B3: Nếu biến đếm nhỏ giá trị cuối thực câu lệnh quay B2 Ngược lại, qua B4 - B4: Kết thúc VD3: In hình chữ O Program in4; O Uses crt; Begin O Writeln('O'); OWriteln('O'); Writeln('O'); OWriteln('O'); Readln; End Program in4; Uses crt; Begin For i:=1 to Writeln('O'); Readln; End Hoạt động lệnh For …To… Do  Ban đầu biến đếm (i =1< 4) lệnh writeln thực  In hình chữ O  Biến đếm i tự động tăng lên đơn vị (i = 2< 4) lệnh writeln thực  In hình chữ O thứ  Tương tự i giá trị cuối (i = 4) lệnh writeln thực lần cuối kết thúc  hình có chữ O VD 4: In lên hình thứ tự lần lặp Program thutu; Uses crt; Begin Writeln(‘day la lan lap thu:’, 1); Writeln(‘day la lan lap thu:’, 2); Writeln(‘day la lan lap thu:’, 3); Writeln(‘day la lan lap thu:’, 4); Readln; End Program thutu; Uses crt; Begin For i:=1 to writeln(‘ day la lan lap thu :’, i); Readln; End day la lan lap thu : Kết chạy chương trình day la lan lap thu : day la lan lap thu : day la lan lap thu : Tính tổng tích câu lệnh lặp Ví dụ 5: Tính tổng 100 số tự nhiên liên tiếp S = + + + + + 100 S 1      100 S=0 S=S+1 S=S+2 S=S+3 S = S + 100 NHẬN XÉT: Việc tính S lặp lặp lại 100 lần theo quy luật Ssau = Strước+ i với i tăng từ đến100 Diễn tả thuật toán B1: Bắt đầu B2: S:=0; i:=1; B3: Nếu i > 100 kết thúc B4 : S:= S + i i := i +1 quay lại B3 Chương trình Program tinhtong; Uses crt; Var S,i : Integer; Begin S:=0; For i:=1 to 100 S:=S +i; Writeln('Tong S=',S); Readln; End VD6: Lập chương trình tính tổng sau: S 1  1 1     N Program DựaTinh_tong2; vào đề xác định: - Giá trị khởi Uses tạo crt;S - Giá trị đầu, cuối biến đếm i Var i,N : Integer; S : real; - Câu lệnh lặp BEGIN S:=0;  S:=0;  For i:=1 to N  S:= S + 1/i; Write(‘ Nhap vao gia tri cua N :’);readln(N); FOR i:=1 to N S := S+1/i; Writeln(‘ Tong S =’,S:8:3); Readln; END VD7: Tính N ! (Tích N số tự nhiên đầu tiên) 1! = 2! = 3! = 4! = Hãy xác định: - Giá trị khởi tạo GT - Giá trị đầu, cuối biến đếm i - Câu lệnh lặp  GT:=1;  For i:=1 to N GT = GT = GT GT = GT GT = GT  GT:= GT*i; Mô chương trình Pascal N: integer ; GT: longint ; khai báo biến cho In Em rahãy kết quả? vào Khởi Hãy viết tạoviết câu GT câu lệnhlệnh lặp baonhập với nhiêu? toán N? giá trịtrên? biến đếm câu lệnh lặp Begin Clrscr; Write('Nhap N= '); Readln(N); GT:=1; For i:=1 to N GT:=GT*i; Writeln('Tich cua N so tu nhien =',GT); Readln; End háp Cú p u Câ Tính hl n lệ í th i ả Gi ch ặp p câu lệnh lặ g n ằ b h c tí tổng n Tí h ng tổ n Tí h tíc h Bài tập 1: Viết chương trình in số chẵn nhỏ n ( Với n nhập) Hướng dẫn: - Cho biến i chạy từ đến n - Nếu i chẵn ( i chia dư 0) in Bài tập 2: Viết chương trình in số lẻ nhỏ n ( Với n nhập) Hướng dẫn: - Cho biến i chạy từ đến n - Nếu i lẻ ( i chia dư 1) in Bài tập 3: Viết chương trình in tổng số lẻ nhỏ n ( Với n nhập) Hướng dẫn: - Cho S = - Cho biến i chạy từ đến n - Nếu i lẻ ( I chia dư 1) cộng thêm I vào S - In S Bài tập 4: Viết chương trình in tổng số chẳn nhỏ n ( Với n nhập) Hướng dẫn: - Cho S = - Cho biến i chạy từ đến n - Nếu i chẵn ( I chia dư 0) cộng thêm I vào S - In S Bài tập 5: Một số có tổng ước nhỏ nó gọi số hồn chỉnh Ví dụ: có ước nhỏ 1, 2, Tổng + + = 6.Viết chương trình xét xem số n nhập từ bàn phím có phải số hồn chỉnh khơng Hướng dẫn: - Dùng biến n lưu số cần xét - Biến S có giá trị ban đầu - Cho i chạy từ đến n-1 i ước n cộng thêm i vào S - Nếu S = n S số hồn chỉnh  ... For i:=1 to writeln(‘ day la lan lap thu :’, i); Readln; End day la lan lap thu : Kết chạy chương trình day la lan lap thu : day la lan lap thu : day la lan lap thu : Tính tổng tích câu lệnh... thutu; Uses crt; Begin Writeln(‘day la lan lap thu:’, 1); Writeln(‘day la lan lap thu:’, 2); Writeln(‘day la lan lap thu:’, 3); Writeln(‘day la lan lap thu:’, 4); Readln; End Program thutu; Uses... gia tri cua N :’);readln(N); FOR i:=1 to N S := S+1/i; Writeln(‘ Tong S =’,S:8:3); Readln; END VD7: Tính N ! (Tích N số tự nhiên đầu tiên) 1! = 2! = 3! = 4! = Hãy xác định: - Giá trị khởi