Bài 7. Câu lệnh lặp
Chia sẻ bởi Vi Viet Hong |
Ngày 24/10/2018 |
36
Chia sẻ tài liệu: Bài 7. Câu lệnh lặp thuộc Tin học 8
Nội dung tài liệu:
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.
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Vi Viet Hong
Dung lượng: |
Lượt tài: 1
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)