Bài giảng Tin học 8 - Bài 7: Câu lệnh lặp

Nội dung text: Bài giảng Tin học 8 - Bài 7: Câu lệnh lặp

1. 1. Các công việc phải thực hiện nhiều lần Hãy kể tên những hoạt động được thực hiện lặp đi lặp lại với số lần nhất định và biết trước ? F Em đánh răng 2 lần mỗi ngày F Kim giây quây 60 vòng trong 1 giờ FViết chương trình in ra màn hình từ 1 đến 10 10 lÖnh in
2. 2.Câu lệnh lặp – Một lệnh thay cho nhiều lệnh VD1 : in ra MH 1 chữ HELLO VD2 : in ra MH 4 chữ HELLO Program BT4; Program BT1; Uses crt; Uses crt; Begin Begin Writeln(‘HELLO'); Writeln(‘HELLO'); Writeln('HELLO'); End. Writeln(‘HELLO'); Writeln(‘HELLO'); End. HELLO HELLO HELLO HELLO HELLO
3. Nếu viết chương trình in ra màn hình 100 Mọi chữ ngôn ‘O’ thì ngữ sao lập trình đều có CÂU LỆNH LẶP nhỉ? chương trình quá dài, và viết mất nhiều thời gian !
4. 3. Câu lệnh lặp với số lần lặp biết trước a. Cú pháp : FOR := TO DO ; b. Giải thích: ™ FOR, TO, DO : là các từ khóa của Pascal ™ Biến đếm : thường có kiểu số nguyên ™ Giá trị đầu, giá trị cuối : là giá trị số nguyên ( Giá trị cuối > Giá trị đầu) ™ Câu lệnh : có thể là câu lệnh đơn hoặc câu lệnh ghép
5. c. Các ví dụ : c1. In ra màn hình 4 chữ O Program in4; Program in4; UsesO crt; Uses crt; Begin Begin O Writeln('O'); O Writeln('O'); For i:=1 to 4 do Writeln('O'); Writeln('O'); O Writeln('O'); End. End. Hoạt động của lệnh For To Do  Ban đầu biến đếm (I =1< 4) lệnh writeln được thực hiện  In ra màn hình chữ O đầu tiên  Biến đếm I tăng 1 đơn vị (I = 2< 4) lệnh writeln được thực hiện  In ra màn hình chữ O thứ 2  Tương tự cho đến khi i bằng giá trị cuối (I = 4) thì lệnh writeln được thực hiện lần cuối và kết thúc trên màn hình có 4 chữ O
6. c2. In lên màn hình thứ tự lần lặp Program thutu; Program thutu; Uses crt; Uses crt; Begin Begin Writeln(‘day la lan lap thu:’, 1); Writeln(‘day la lan lap thu:’, 2); For i:=1 to 4 do Writeln(‘day la lan lap thu:’, 3); writeln(‘ day la lan lap thu :’, i); Writeln(‘day la lan lap thu:’, 4); Readln; Readln; End. End. day la lan lap thu : 1 Kết quả khi chạy chương trình day la lan lap thu : 2 day la lan lap thu : 3 day la lan lap thu : 4
7. 4. Tính tổng và tích bằng câu lệnh lặp. Ví dụ 1: Tính tổng của 100 số tự nhiên đầu tiên liên tiếp S = 1 + 2 + 3 + 4 + ... + 100 . . . . . . . . . . . . . . . . . . . . S = 0 NHẬN XÉT: S = S + 1 Việc tính S được lặp đi lặp lại 100 lần theo S = S + 2 quy luật S = S + 3 S = S + i ..... sau trước S = S + 100 với i tăng lần lượt từ 1 đến100
8. Diễn tả thuật toán Chương trình Program tinhtong; B1: Bắt đầu Uses crt; Var S,i : Integer; Begin B2: S:=0; i:=1; B3: Nếu i > 100 thì kết thúc S:=0; For i:=1 to 100 do S:=S +i; B4 : S:= S + i i := i +1 quay lại B3. Writeln('Tong S=',S); Readln; End.
9. Ví dụ 2: Lập chương trình tính tổng sau: Program Tinh_tong2; UsesDựa vàocrt; đề bài hãy xác Var i,N định:: Integer; S : real; BEGIN- Giá trị khởi tạo của S - Giá trị đầu, cuối của F S:=0; biến đếmS:=0; i -Câu lệnh sẽ được lặp F For i:=1 to N do Write(‘ Nhap vao gia tri cua N :’);readln(N); FOR i:=1 to N do S := S+1/i;F S:= S + 1/i; Writeln(‘ Tong S =’,S:8:3); Readln; END.
10. Ví dụ 3: Tính N ! (Tích N số tự nhiên đầu tiên) Hãy xác định: - Giá trị khởi tạo của GT 1! = 1 - Giá trị đầu, cuối của biến đếm i 2! = 1 . 2 -Câu lệnh sẽ được lặp 3! = 1 . 2 . 3 F GT:=1; 4! = 1. 2 . 3 . 4 F For i:=1 to N do GT = 1 F GT:= GT*i; GT = GT . 2 GT = GT . 3 GT = GT . 4
11. Mô phỏng chương trình bằng Pascal KhëiH·yEmIn ra h·y viÕt t¹okÕt viÕtkhai GTc©uqu¶? b»ngc©u b¸olÖnh lÖnh biÕn baolÆp nhËp víichonhiªu? c¸c bµi vµo gi¸ N: integer ; trÞN?to¸n cña trªn? biÕn ®Õm vµ c©u lÖnh GT: longint ; ®­îc lÆp. Begin Clrscr; Write('Nhap N= '); Readln(N); GT:=1; For i:=1 to N do GT:=GT*i; Writeln('Tich cua N so tu nhien =',GT); Readln; End.