Bài 7. Câu lệnh lặp
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Nguyễn Mã Lực
Ngày gửi: 15h:36' 13-05-2016
Dung lượng: 675.0 KB
Số lượt tải: 151
Nguồn:
Người gửi: Nguyễn Mã Lực
Ngày gửi: 15h:36' 13-05-2016
Dung lượng: 675.0 KB
Số lượt tải: 151
Số lượt thích:
0 người
CHÀO MỪNG QUÝ THẦY CÔ
ĐẾN DỰ GIỜ LỚP 8A
FOR := TO DO < câu lệnh>;
Từ khoá
Biến kiểu nguyên
Giá trị nguyên
Câu lệnh đơn hoặc câu lệnh ghép
Câu lệnh lặp trong Pascal có dạng:
For i := 1 to 5 do writeln (`A`) ;
Biến:=
Biến <= GT cuối
Câu lệnh
Biến tự động tăng 1 đơn vị
đúng
sai
Sơ đồ thuật toán cho cấu trúc lặp For . To . Do .
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.
Biến:=
Biến <= GT cuối
Câu lệnh
Biến tự động tăng 1 đơn vị
Đúng
Sai
i:=1
i:=2
i:=3
i:=4
i:=5
i:=7
i:=8
i:=10
i:=9
2 <= 10
1 <= 10
3 <= 10
4 <= 10
i:=6
5 <= 10
6 <= 10
7 <= 10
8 <= 10
9 <= 10
10 <= 10
i:=11
11 <= 10
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
Uses 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":
o
o
o
o
o
o
o
o
o
o
o
o
o
o
o
o
o
o
o
o
For 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í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
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
4/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.
ĐẾN DỰ GIỜ LỚP 8A
FOR
Từ khoá
Biến kiểu nguyên
Giá trị nguyên
Câu lệnh đơn hoặc câu lệnh ghép
Câu lệnh lặp trong Pascal có dạng:
For i := 1 to 5 do writeln (`A`) ;
Biến:=
Biến <= GT cuối
Câu lệnh
Biến tự động tăng 1 đơn vị
đúng
sai
Sơ đồ thuật toán cho cấu trúc lặp For . To . Do .
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.
Biến:=
Biến <= GT cuối
Câu lệnh
Biến tự động tăng 1 đơn vị
Đúng
Sai
i:=1
i:=2
i:=3
i:=4
i:=5
i:=7
i:=8
i:=10
i:=9
2 <= 10
1 <= 10
3 <= 10
4 <= 10
i:=6
5 <= 10
6 <= 10
7 <= 10
8 <= 10
9 <= 10
10 <= 10
i:=11
11 <= 10
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
Uses 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":
o
o
o
o
o
o
o
o
o
o
o
o
o
o
o
o
o
o
o
o
For 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í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
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
4/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.
Các ý kiến mới nhất