Bai 7 Cau lenh lap

<span class='text_page_counter'>(1)</span>

<span class='text_page_counter'>(2)</span>

<span class='text_page_counter'>(3)</span> Caâu leänh laëp trong 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 hoặc caâu leänh gheùp.

<span class='text_page_counter'>(4)</span> For i := 1 to 5 do writeln (‘A’) ;.

<span class='text_page_counter'>(5)</span> 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 1 đơn vị. sai.

<span class='text_page_counter'>(6)</span> Vd 3: Chương trình in ra màn hình thứ tự 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. Day la lan lap thu 1 Day la lan lap thu 2 Day la lan lap thu 3 Day la lan lap thu 4 Day la lan lap thu 5 Day la lan lap thu 6 Day la lan lap thu 7 Day la lan lap thu 8 Day la lan lap thu 9 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 8 11 4 9 <= <= <= 10 10 10 6 5 1 7 3 2<= <= 10 Biến 10 <=GT 10cuối Đúng Câu lệnh. Biến tự động tăng 1 đơn vị.

<span class='text_page_counter'>(7)</span> Vd 4: Chương trình in ra màn hình 20 chữ “O”: Uses crt; Var i: integer; Begin clrscr; for i:=1 to 20 do 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.

<span class='text_page_counter'>(8)</span> For i := 1 to 5 do For i := 1 to 5 do writeln (‘A’) ; writeln (‘O’); begin writeln (‘A’) ; writeln (‘O’) end;.

<span class='text_page_counter'>(9)</span> Vd 5: 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 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 do S:= S + i; Writeln ( ‘ Tong cua ‘, N , ‘ so tu nhien dau tien S = ‘ , S); Readln; End.. Nhap so N= 5 Tong cua 5 so tu nhien dau tien S= 15.

<span class='text_page_counter'>(10)</span> 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 được 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 do P:= P * i; Writeln ( N , ‘ ! = ‘ , P); Readln; End.. N= 4 4! = 24.

<span class='text_page_counter'>(11)</span> 4/61 SGK: Sau khi thực hiện đoạn chương trình sau, giá trị của biến j baèng bao nhieâu? j := 0; For i := 0 to 5 do j := j + 2;.

<span class='text_page_counter'>(12)</span> 5/61 SGK: Các câu lệnh Pascal sau có hợp lệ không. Vì sao? a) For i := 100 to 1 do writeln (‘A’); b) For i := 1.5 to 10.5 do writeln (‘A’); c) For i = 1 to 10 do writeln (‘A’); d) For i := 1 to 10 do ; writeln (‘A’); e) Var x : real ; begin for x := 1 to 10 do writeln (‘A’); end..

<span class='text_page_counter'>(13)</span>