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

CHÀO MỪNG QUÝ THẦY CÔ FOR := TO DO ;Từ khoáBiến kiểu nguyênGiá trị nguyênCâu lệnh đơn hoặc câu lệnh ghépCâu lệnh lặp trong Pascal có dạng:For i := 1 to 5 do writeln (‘A’) ;Biến:=Biến Biến <= GT cuốiCâu lệnhBiến tự động tăng 1 đơn vịĐúngSaii:=1i:=2i:=3i:=4i:=5i:=7i:=8i:=10i:=92 <= 101 <= 103 <= 104 <= 10i:=65 <= 106 <= 107 <= 108 <= 109 <= 1010 <= 10i:=1111 <= 10Day la lan lap thu 1Day la lan lap thu 2Day la lan lap thu 3Day la lan lap thu 4Day la lan lap thu 5Day la lan lap thu 6Day la lan lap thu 7Day la lan lap thu 8Day la lan lap thu 9Day la lan lap thu 10Uses crt;Var i: integer;Begin clrscr; for i:=1 to 20 do Begin writeln (‘ o ‘); delay (100) end; Readln;End.Vd 4: Chương trình in ra màn hình 20 chữ “O”:ooooooooooooooooooooFor i := 1 to 5 do writeln (‘A’) ; writeln (‘O’);For i := 1 to 5 do begin writeln (‘A’) ; writeln (‘O’) end;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ímProgram Tinh_tong;Var N, i: integer; S: longint;BeginWriteln ( ‘ 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=5Tong cua 5 so tu nhien dau tien S= 15Vd 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ímProgram Tinh_giai_thua;Var N, i: integer; P: longint;BeginWrite ( ‘ N = ‘ );Readln (N);P:= 1;for i:=1 to N do P:= P * i;Writeln ( N , ‘ ! = ‘ , P);Readln;End. N=44! = 244/61 SGK:Sau khi thực hiện đoạn chương trình sau, giá trị của biến j bằng bao nhiêu? j := 0; For i := 0 to 5 do j := j + 2;5/61 SGK:Các câu lệnh Pascal sau có hợp lệ không. Vì sao?For i := 100 to 1 do writeln (‘A’);For i := 1.5 to 10.5 do writeln (‘A’);For i = 1 to 10 do writeln (‘A’);For i := 1 to 10 do ; writeln (‘A’);Var x : real ; begin for x := 1 to 10 do writeln (‘A’); end.