Giaựo Vieõn : Phaùm Hong Ngoùc Em đánh răng 2 lần một ngày Kim giây quay 60 vòng trong 1 giờ 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? 1. Các công việc phải thực hiện nhiều lần O O O O O VÝ dô1: In ra mh mét ch÷ O VÝ dô2: In ra mh bèn ch÷ O Program in1; Uses crt; Begin Writeln('O'); End. Program in4; Uses crt; Begin Writeln('O'); Writeln('O'); Writeln('O'); Writeln('O'); End. KÕt qu¶ 2. C©u lÖnh lÆp - mét lÖnh thay cho nhiÒu lÖnh O O Mọi ngôn ngữ lập trình đều có câu lệnh giúp thực hiện nhiều câu lệnh lặp đi lặp lại bằng một câu lệnh. Đó là các câu lệnh lặp. Nếu viết chương trình in ra màn hình 100 chữ O thì sao nhỉ? chương trình quá dài, và viết mất nhiều thời gian ! Câu lệnh lặp với số lần lặp biết trước trong Pascal: FOR <biến đếm> := <giá trị đầu> TO <giá trị cuối> DO < câu lệnh>; G iá trị đầu và Giá trị cuối là các giá trị nguyên. Câu lệnh có thể là câu lệnh đơn giản(một lệnh) hoặc lệnh ghép (nhiều lệnh) Trong đó For , to , do là các từ khóa. Biến đếm là biến kiểu nguyên Số vòng lặp = giá trị cuói giá trị đầu + 1. 3. câu lệnh lặp (5đ) Chú ý : • Ban đầu biến đếm sẽ nhận giá trị đầu, sau mỗi vòng lặp, biến đếm được tự động tăng thêm một đơn vị cho đến khi bằng giá trị cuối. • Thường Giá trị cuối lớn hơn Giá trị đầu. Program in4; Uses crt; Begin Writeln('O'); Writeln('O'); Writeln('O'); Writeln('O'); End. Program in4; Uses crt; Begin For i:=1 to 4 do Writeln('O'); End. Ban đầu biến đếm (i=1<4) lệnh in được thực hiện In ra mh chữ O đầu tiên Biến đếm i tăng 1 đơn vị (i=2<4) lệnh in được thực hiện in ra mh chữ O thứ hai Tương tự như vậy cho đến khi biến đếm i bằng giá trị cuối (i=4) thì lệnh được thực hiện lần cuối và kết thúc trên màn hình có 4 chữ O. O O O O Hoạt động của lệnh For to do ví dụ 1: In ra màn hình 4 chữ O Program in4; Uses crt; Begin For i:=1 to 10 do begin Writeln('O'); delay(100); end; End. + Hai lệnh được đặt giữa hai từ khoá begin, end Câu lệnh ghép O O O O O O O O O O ví dụ 2: Mô phỏng quả trứng rơi từ trên cao xuống Ví dụ 5: Tính tổng của n số tự nhiên đầu tiên liên tiếp S = 1 + 2 + 3 + 4 + . + n Nhận xét: S = 0 S = S + 1 S = S + 2 S = S + 3 . S = S + n 1 = S Việc tính S được lặp đi lặp lại 100 lần theo quy luật S sau = S trước + i với i tăng lần lượt từ 1 đến100 2 + 3+ 4 + n ++ . . . . . . . . . . . . . . . . . . . . . 4. Tính tổng và tích bằng câu lệnh lặp Diễn tả thuật toán B1: Bắt đầu B2: S:=0; i:=1; B3: Nếu i > 100 thì kết thúc B4 : S:= S + i i := i +1 quay lại B3. Program tinhtong; Uses crt; Var S,i : Integer; Begin S:=0; Nhap so n For i:=1 to n do S:=S +i; Writeln('Tong S=',S); Readln; End. Chương trình [...]... Giá trị đầu, cuối của biến đếm i GT:=1; -Câu lệnh sẽ được lặp For i:=1 to N do GT:= GT*i; Emraviết câubằngbiến nhậpbài giá trị In hãy khai câu lệnh với các toán viết lệnh lặp nhiêu? Hãy kết quả? Khởi tạo GT báo bao cho vào N? trên? của biến đếm và câu lệnh được lặp N:integer; GT:longint; 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);... trình tính tổng sau: 1 1 1 1 S = + + + + + 1 2 3 4 N Program Tinh_tong2; Uses crt; bài hãy Dựa vào đề xác định: Var i,N : Integer; S : real; - Giá trị khởi tạo của S - BEGIN Giá trị đầu, cuối của biến đếm i S:=0; -Câu lệnh sẽ được lặp S:=0; For i:=1 to N do Write( Nhap vao gia tri cua N :);readln(N); S:= S + 1/i; FOR i:=1 to N do S := S+1/i; Writeln( Tong S =,S:8:3); END Readln; Ghi nhớ! Cấu trúc... nhau, cho đên skhi một điều kiện nào đó được thỏa mãn Mọi ngôn ngữ lập trình đều 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 cho trước bằng câu lệnh for do . lệnh) hoặc lệnh ghép (nhiều lệnh) Trong đó For , to , do là các từ khóa. Biến đếm là biến kiểu nguyên Số vòng lặp = giá trị cuói giá trị đầu + 1. 3 có 4 chữ O. O O O O Hoạt động của lệnh For. .to do ví dụ 1: In ra màn hình 4 chữ O Program in4; Uses crt; Begin For i:=1 to 10 do begin Writeln('O');