Caâu leänh laëp trong Pascal coù daïng: Bieán kieåu nguyeân.. Giaù trò nguyeân.[r]
(1)(2) (3) Caâu leänh laëp Pascal coù daïng: Bieán kieåu nguyeân Giaù trò nguyeân FOR <biến đếm> := <giá trị đầu> TO <giá trị cuối> DO < câu lệnh>; Từ khoá Câu lệnh đơn caâu leänh gheùp (4) For i := to writeln (‘A’) ; (5) Sơ đồ thuật toán cho cấu trúc lặp For … To … Do … Biến:=<GT đầu > Biến <= GT cuối đúng Câu lệnh Biến tự động tăng đơn vị sai (6) Vd 3: Chương trình in màn hình thứ tự lần lặp: Program Lap; Uses crt; Var i: integer; Begin for i:=1 to 10 writeln(‘Day la lan lap thu ‘, i); Readln; End Day la lan lap thu Day la lan lap thu Day la lan lap thu Day la lan lap thu Day la lan lap thu Day la lan lap thu Day la lan lap thu Day la lan lap thu Day la lan lap thu Day la lan lap thu 10 i:=8 i:=9 i:=4 đầu > i:=3 i:=2 i:=1 i:=7 i:=6 Biến:=<GT i:=11 i:=10 i:=5 Sai 11 <= <= <= 10 10 10 2<= <= 10 Biến 10 <=GT 10cuối Đúng Câu lệnh Biến tự động tăng đơn vị (7) Vd 4: Chương trình in màn hình 20 chữ “O”: Uses crt; Var i: integer; Begin clrscr; for i:=1 to 20 Begin writeln (‘ o ‘); delay (100) end; Readln; End o o o o o o o o o o o o o o o o o o o o (8) For i := to For i := to writeln (‘A’) ; writeln (‘O’); begin writeln (‘A’) ; writeln (‘O’) end; (9) Vd 5: Chương trình tính tổng N số tự nhiên đầu tiên, với N là số tự nhiên nhập vào từ bàn phím Program Tinh_tong; Var N, i: integer; S: longint; Begin Writeln ( ‘ Nhap so N = ‘ ); Readln (N); S:= 0; for i:=1 to N S:= S + i; Writeln ( ‘ Tong cua ‘, N , ‘ so tu nhien dau tien S = ‘ , S); Readln; End Nhap so N= Tong cua so tu nhien dau tien S= 15 (10) Vd 6: Ta kí hiệu N! là tích N số tự nhiên đầu tiên Viết chương trình tính N! với N là số tự nhiên nhập vào từ bàn phím Program Tinh_giai_thua; Var N, i: integer; P: longint; Begin Write ( ‘ N = ‘ ); Readln (N); P:= 1; for i:=1 to N P:= P * i; Writeln ( N , ‘ ! = ‘ , P); Readln; End N= 4! = 24 (11) 4/61 SGK: Sau thực đoạn chương trình sau, giá trị biến j baèng bao nhieâu? j := 0; For i := to j := j + 2; (12) 5/61 SGK: Các câu lệnh Pascal sau có hợp lệ không Vì sao? a) For i := 100 to writeln (‘A’); b) For i := 1.5 to 10.5 writeln (‘A’); c) For i = to 10 writeln (‘A’); d) For i := to 10 ; writeln (‘A’); e) Var x : real ; begin for x := to 10 writeln (‘A’); end (13)