Bài 7. Câu lệnh lặp
Chia sẻ bởi Nguyễn Thu Hường |
Ngày 24/10/2018 |
24
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ô
GV: NGUYỄN THU HƯỜNG
TRƯỜNG THCS ĐẠI HÙNG
DỰ GIỜ LỚP 8A
KIỂM TRA BÀI CŨ
Nêu cú pháp câu lệnh lặp trong pascal và giải thích.
FOR := TO DO < câu lệnh>;
Trong đó:
1- Các từ tiếng Anh như: For, To, Do được gọi là gì?
2- Biến đếm: Có kiểu dữ liệu gì?
3- Giá trị đầu và Giá trị cuối là các giá trị như thế nào?
4- Số vòng lặp được xác định bằng công thức nào?
5- Khi bắt đầu thực hiện Biến đếm sẽ nhận giá trị nào?
6- Khi nào Biến đếm được tăng lên? Mỗi lần tăng là bao nhiêu đơn vị? Và tăng cho đến khi nào?
Muốn in ra màn hình bốn chữ “O” không nằm cùng một hàng, em sử dụng câu lệnh nào?
Writeln(‘O’);
Program VD;
Uses crt;
Begin
Writeln (‘O’);
Writeln (‘O’);
Writeln (‘O’);
Writeln (‘O’);
Readln;
end.
Chương trình sau sẽ in ra màn hình 4 chữ “O” không nằm cùng hàng:
Nếu viết chương trình in ra 100 chữ “O” không cùng hàng, thì sẽ như thế nào?
ví dụ: In ra màn hình 100 chữ O
Program in;
Uses crt;
Begin
Writeln(`O`);
Writeln(`O`);
Writeln(`O`);
Writeln(`O`);
......
........
Writeln(`O`);
End.
Program in;
Uses crt;
Var i: integer;
Begin
For i:=1 to 100 do Writeln(`O`);
End.
Chương trình không sử dụng vòng lặp For
Chương trình có sử dụng vòng lặp For
Ví dụ 4: Mô phỏng quả trứng rơi từ trên cao xuống
Program in4;
Uses crt;
Begin
For i:=1 to 10 do
begin
Writeln(`O`);
delay(100);
end;
End.
O
O
O
O
O
O
O
O
O
O
Với mỗi vòng lặp:
+ Hai câu lệnh writeln(‘0’) và delay(100) được thực hiện
+ Hai câu lệnh trên được đặt giữa 2 từ khóa begin, end Câu lệnh ghép
4. Tính tổng và tích bằng câu lệnh lặp
Tính tổng của 5 số tự nhiên đầu tiên:
S=1+2+3+4+5
Program Tinh_tong;
Var i, S: integer;
Begin
S:=0;
For i:= 1 to 5 do
begin
S:= S + i;
Writeln (‘Tong cua S = ’,S);
end;
Readln;
end.
a – Tính tổng:
4. Tính tổng và tích bằng câu lệnh lặp
Ví dụ 5: Tính tổng của N số tự nhiên đầu tiên.
Program Tinh_tong;
Var N,i: integer;
S: longint;
Begin
Write(‘Ban can tinh tong bao nhieu so:’); Readln(N);
S:=0;
For i:= 1 to N do S:= S + i;
Writeln (‘Tong cua ‘,N, so tu nhien dau tien la = ’,S); Readln;
end.
S=1+2+3+…+N
4. Tính tổng và tích bằng câu lệnh lặp
b/ Tính tích các số
Chương trình tính tích 5 số nguyên đầu tiên: T=1*2*3*4*5
Program Tich_5_so;
Var i: integer;
T: integer;
Begin
T:=1;
For i:= 2 to 5 do T:= T*i;
Writeln (‘Tich cua 5 so nguyen dau la:’, T );
Readln;
end.
4. Tính tổng và tích bằng câu lệnh lặp
Ví dụ 6: Tính tích của N số tự nhiên đầu tiên.
Program Tinh_Giaithua;
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.
Ta kí hiệu N! là tích N số tự nhiên đầu tiên:
N!=1.2.3…N
6!= 1.2.3.4.5.6
a – Tính tích các số:
Bài tập củng cố
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;
Lần lặp thứ 1 (i=0): j=0+2=2
Lần lặp thứ 2 (i=1): j=2+2=4
Lần lặp thứ 3 (i=2): j=4+2=6
Lần lặp thứ 4 (i=3): j=6+2=8
Lần lặp thứ 5 (i=4): j=8+2=10
Lần lặp thứ 6 (i=5): j=10+2=
12
Bài tập củng cố
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.
Sai
Sai
Sai
Sai
Sai
Cấu trúc lặp trong thuật toán được dùng để mô tả việc thực hiện lặp đi lặp lại nhiều lần một hoặc một nhóm lệnh.
Mọi ngôn ngữ lập trình đều có các câu lệnh lặp để thể hiện cấu trúc lặp. Trong Pascal câu lệnh lặp với số lần lặp cho trước là câu lệnh: For … do
Ghi nhớ!
HƯỚNG DẪN VỀ NHÀ
- Làm các bài tập còn lại trong SGK trang 60, 61
- Viết chương trình tính tổng các từ 0 đến 10
- Viết chương trình tính tích các số từ 1 đến 15
GV: NGUYỄN THU HƯỜNG
TRƯỜNG THCS ĐẠI HÙNG
DỰ GIỜ LỚP 8A
KIỂM TRA BÀI CŨ
Nêu cú pháp câu lệnh lặp trong pascal và giải thích.
FOR
Trong đó:
1- Các từ tiếng Anh như: For, To, Do được gọi là gì?
2- Biến đếm: Có kiểu dữ liệu gì?
3- Giá trị đầu và Giá trị cuối là các giá trị như thế nào?
4- Số vòng lặp được xác định bằng công thức nào?
5- Khi bắt đầu thực hiện Biến đếm sẽ nhận giá trị nào?
6- Khi nào Biến đếm được tăng lên? Mỗi lần tăng là bao nhiêu đơn vị? Và tăng cho đến khi nào?
Muốn in ra màn hình bốn chữ “O” không nằm cùng một hàng, em sử dụng câu lệnh nào?
Writeln(‘O’);
Program VD;
Uses crt;
Begin
Writeln (‘O’);
Writeln (‘O’);
Writeln (‘O’);
Writeln (‘O’);
Readln;
end.
Chương trình sau sẽ in ra màn hình 4 chữ “O” không nằm cùng hàng:
Nếu viết chương trình in ra 100 chữ “O” không cùng hàng, thì sẽ như thế nào?
ví dụ: In ra màn hình 100 chữ O
Program in;
Uses crt;
Begin
Writeln(`O`);
Writeln(`O`);
Writeln(`O`);
Writeln(`O`);
......
........
Writeln(`O`);
End.
Program in;
Uses crt;
Var i: integer;
Begin
For i:=1 to 100 do Writeln(`O`);
End.
Chương trình không sử dụng vòng lặp For
Chương trình có sử dụng vòng lặp For
Ví dụ 4: Mô phỏng quả trứng rơi từ trên cao xuống
Program in4;
Uses crt;
Begin
For i:=1 to 10 do
begin
Writeln(`O`);
delay(100);
end;
End.
O
O
O
O
O
O
O
O
O
O
Với mỗi vòng lặp:
+ Hai câu lệnh writeln(‘0’) và delay(100) được thực hiện
+ Hai câu lệnh trên được đặt giữa 2 từ khóa begin, end Câu lệnh ghép
4. Tính tổng và tích bằng câu lệnh lặp
Tính tổng của 5 số tự nhiên đầu tiên:
S=1+2+3+4+5
Program Tinh_tong;
Var i, S: integer;
Begin
S:=0;
For i:= 1 to 5 do
begin
S:= S + i;
Writeln (‘Tong cua S = ’,S);
end;
Readln;
end.
a – Tính tổng:
4. Tính tổng và tích bằng câu lệnh lặp
Ví dụ 5: Tính tổng của N số tự nhiên đầu tiên.
Program Tinh_tong;
Var N,i: integer;
S: longint;
Begin
Write(‘Ban can tinh tong bao nhieu so:’); Readln(N);
S:=0;
For i:= 1 to N do S:= S + i;
Writeln (‘Tong cua ‘,N, so tu nhien dau tien la = ’,S); Readln;
end.
S=1+2+3+…+N
4. Tính tổng và tích bằng câu lệnh lặp
b/ Tính tích các số
Chương trình tính tích 5 số nguyên đầu tiên: T=1*2*3*4*5
Program Tich_5_so;
Var i: integer;
T: integer;
Begin
T:=1;
For i:= 2 to 5 do T:= T*i;
Writeln (‘Tich cua 5 so nguyen dau la:’, T );
Readln;
end.
4. Tính tổng và tích bằng câu lệnh lặp
Ví dụ 6: Tính tích của N số tự nhiên đầu tiên.
Program Tinh_Giaithua;
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.
Ta kí hiệu N! là tích N số tự nhiên đầu tiên:
N!=1.2.3…N
6!= 1.2.3.4.5.6
a – Tính tích các số:
Bài tập củng cố
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;
Lần lặp thứ 1 (i=0): j=0+2=2
Lần lặp thứ 2 (i=1): j=2+2=4
Lần lặp thứ 3 (i=2): j=4+2=6
Lần lặp thứ 4 (i=3): j=6+2=8
Lần lặp thứ 5 (i=4): j=8+2=10
Lần lặp thứ 6 (i=5): j=10+2=
12
Bài tập củng cố
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.
Sai
Sai
Sai
Sai
Sai
Cấu trúc lặp trong thuật toán được dùng để mô tả việc thực hiện lặp đi lặp lại nhiều lần một hoặc một nhóm lệnh.
Mọi ngôn ngữ lập trình đều có các câu lệnh lặp để thể hiện cấu trúc lặp. Trong Pascal câu lệnh lặp với số lần lặp cho trước là câu lệnh: For … do
Ghi nhớ!
HƯỚNG DẪN VỀ NHÀ
- Làm các bài tập còn lại trong SGK trang 60, 61
- Viết chương trình tính tổng các từ 0 đến 10
- Viết chương trình tính tích các số từ 1 đến 15
* 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ẻ: Nguyễn Thu Hường
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)