Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống
1
/ 20 trang
THÔNG TIN TÀI LIỆU
Thông tin cơ bản
Định dạng
Số trang
20
Dung lượng
1,01 MB
Nội dung
CÂU LỆNH LẶP CÂU LỆNH LẶP Bài 7 !"#"#$! !" #$% !" &% !" '&( )*% )+,!-" .(*%/01*(%!- 1*" 234(%5!67 % !0 8 0$%0925: )+,!-;&( ) *%0<&*( ),(09 = !>?@AB"+CDE( 750(1*!6-A F 1* G* 7 % H @ " .(*%/01*(%!- 1*" 234(%5!67 % !0 8 0$%0925: )+,!-;&( ) *%0<&*( ),(09 = !>?@AB"+CDE( 750(1*!6-A F 1* G* 7 % H @ " % & '( )*+ % & '( )*+ I@ DJ K, LF M N ? * 3 K>!?OO"#?* F D *+ P ? Q 3 % )(FR>"S(30C (N?*" '?OO - IN?3+7!-/*B(*G; T!K"IN?*UNQ V1C *W" T!R"X *?*YZ!-@>O0D*+ 5Z1QF>V!K[!-) 5 *B(" . \Q ( N % ? * U? O]W0 (@N/*0Y B(N%(8"^* N ( 80 ! )Z !- _* %390 F@P5N" % & '( )*+ % & '( )*+ '?O] .*B(*GNF!+N?*; !"#$%&' &()# *+,%-./01#23 +#45,6%78 /0 0 % & '( )*+ % & '( )*+ I@DJR,LFM@`PKaa7 Q*Q0b@; ^cKdRdOd9dKaa" 9%78&%:';<)#=>#=?(#(@(! AB T!K"^e#a[a" T!R"fdK" T!O"X *gKaa0?^e#^e#d_* !R" T!]".() _*F) 5*B(" 1234567 1234567 C'D%E%06"?(#,F #,,;B2#,5#G%%'D45H> I#80 A%4#80 %#2#G%JK5#G%#2#,,; I#80 A%()#L?2M#80 %# 89:;2#,,;<:= ;#80 A%<9;#80 %#<=9;:%=<> 89:;2#,,;<:= ;#80 A%<9;#80 %#<=9;:%=<> H"N?@A.> 8+2@A+.004+?@A?B.C> O:%D P B<;&'Q##80 2#,,;4 #DE FGHIJKL$MN:9#NLO P9"Begin end> ?QRSTU VMG@A":WMX VMG;A":W# Y J#XINLZMG[. R\ ? R%&8 S5#4' 2#,> >#=T& ;8'F - V]^#.@_":WMX `"#9ZMG, - V]^#@ ZMG;A":W# YK@ - a#JIJ#XINL, - [ZMG.MFbW` IcZ]^# [...]... dạng lặp lùi? for := downto do ; Biến đếm: biến kiểu nguyên, kí tự Giá trị đầu, giá trị cuối là biểu thức cùng kiểu với biến đếm Giá trị đầu phải nhỏ hơn hoặc bằng giá trị cuối Ví dụ S:=1; FOR i:=100 DOWNTO 2 DO S:=S+1/i; SƠ ĐỒ KHỐI Biến đếm:=giá trị đầu Sai Biến đếm>=giá trị cuối Quan sát sơ đồ khối, hãy cho biết sự thực hiện của máy? Đúng Lệnh cần lặp. .. • thực hiện lệnh cần lặp • giảm biến đếm 1 đơn vị, quay lại bước 2 Lưu ý: + Biến đếm là biến đơn, có kiểu 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ó 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 write(i); + Giá trị của biến đếm được điều chỉnh tự động, vì vậy câu lệnh viết sau...CẤU TRÚC DẠNG LẶP TIẾN Chương trình sau sẽ in ra màn hình số lần lă ăp Program lap; Uses crt; Var i: integer; Begin For i:= 1 to 10 do Writeln (‘Day la lan lap thu ’,i); Readln end CẤU TRÚC DẠNG LẶP TIẾN Để in mô ăt chữ “O” trên màn hình, ta có thể sử dụng lê ănh Program lap; Uses crt; Var i: integer; Begin For i:= 1 to 20 do begin Writeln (‘O’); delay(100) end; Readln end CẤU TRÚC DẠNG LẶP LÙI Hãy... chỉnh tự động, vì vậy câu lệnh viết sau DO không được 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:= 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... tính thực hiêÊn lăÊp lại môÊt vài hoạt đôÊng nào đó cho đến khi môÊt điều kiêÊn nào đó được thoả mãn 2 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 3 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 … do ... crt; Var N, i: integer; S: longint; Begin write(‘Nhap so N = ‘); readln(N); S:=0; For i:= 1 to N do 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! là 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 là số tự nhiên được nhập vào từ bàn phím Program Tính_Giai_thua; Uses crt; Var i, N: integer; . CÂU LỆNH LẶP CÂU LỆNH LẶP Bài 7