Bài 7. Câu lệnh lặp

Chia sẻ bởi Nguyễn Tài Phúc | 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:

Biến đếm: là biến kiểu nguyên
Giá trị đầu, giá trị cuối là những giá trị nguyên.
Giá trị đầu phải nhỏ hơn hoặc bằng giá trị cuối.
For := to do ;
Ví dụ S:=1;
FOR i:=2 TO 100 DO S:=S+1/i;
Câu lệnh lặp sẽ thực hiện câu lệnh nhiều lần, mỗi lần là một vòng lặp, số vòng lặp là biết trước và bằng
giá trị đầu – giá trị cuối + 1
BÀI 7: CÂU LỆNH LẶP
Các công việc phải thực hiện nhiều lần
Câu lệnh lặp – một lệnh thay cho nhiều lệnh
Ví dụ về câu lệnh lặp
Khi thực hiện vòng lặp, ban đầu biến đếm sẽ nhận giá trị là giá trị đầu, sau mỗi vòng lặp thì biến đếm tự động tăng thêm một đơn vị cho đến khi bằng giá trị cuối
Quan sát sơ đồ khối, hãy cho biết sự thực hiện của máy?
Bước 1: tính giá trị đầu gán cho biến đếm.
Bước 2: Nếu biến đếm <= giá trị cuối thì:
thực hiện lệnh cần lặp.
tăng biến đếm 1 đơn vị, quay lại bước 2
Chương trình sau sẽ in ra màn hình số 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.
BÀI 7: CÂU LỆNH LẶP
Để in một chữ “O” trên màn hình, ta có thể sử dụng lệnh
Program lap;
Uses crt;
Var i: integer;
Begin
For i:= 1 to 20 do
begin
Writeln (‘O’);
delay(100)
end;
Readln
end.
BÀI 7: CÂU LỆNH LẶP
CẤU TRÚC DẠNG LẶP LÙI
Biến đếm: biến kiểu nguyên, kí tự
Giá trị đầu, giá trị cuối là biểu thức cùng kiểu với biến đếm.
Giá trị đầu phải nhỏ hơn hoặc bằng giá trị cuối.
for := downto do ;
Ví dụ S:=1;
FOR i:=100 DOWNTO 2 DO S:=S+1/i;
Quan sát sơ đồ khối, hãy cho biết sự thực hiện của máy?
Bước 1: tính giá trị đầu, gán cho biến đếm.
Bước 2: Nếu biến đếm >= giá trị cuối thì:
thực hiện lệnh cần lặp.
giảm biến đếm 1 đơn vị, quay lại bước 2
TÍNH TỔNG BẰNG CÂU LỆNH LẶP
Viết 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;
Uses crt;
Var N, i: integer;
S: longint;
Begin
write(‘Nhap so N = ‘); readln(N);
S:=0;
For i:= 1 to N do S:= S + i;
Writeln (‘Tong cua S = ’,N,’ So tu nhien dau tien S = ‘,S);
Readln
end.
TÍNH TỔNG BẰNG CÂU LỆNH LẶP
Viết chương trình tính tổng
S=1+2+3+4+5
Program Tinh_tong;
Uses crt;
Var i: integer;
S: longint;
Begin
S:=0;
For i:= 1 to 5 do S:= S + i;
Writeln (‘Tong cua S = ’,s);
Readln
end.
TÍNH TÍCH BẰNG CÂU LỆNH LẶP
Ta kí hiệu N! là tích N số tự nhiên đầu tiên:
N! = 1.2.3…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 Tính_Giai_thua;
Uses crt;
Var i, N: integer;
P: longint;
Begin
write (‘Nhap N = ‘); readln (N);
P:= 1;
For i:= 1 to N do P:= P*i;
Writeln (N,’! = ’,P);
Readln
end.
GHI NHỚ
Cấu trúc lặp được sử dụng để chỉ thị cho máy tính thực hiện lặp lại một vài hoạt động nào đó cho đến khi một điều kiện nào đó được thoả mãn.
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.
Ngôn ngữ Pascal thể hiện cấu trúc lặp với số lần lặp cho trước bằng câu lệnh For … do
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;
Đáp án: j = 12
Em hãy viết chương trình tính tổng các số nguyên liên tiếp từ n đến m với n,m là các số nguyên dương nhập vào từ bàn phím
Program tinh_tong;
Uses crt;
Var m, n, i: integer;
S: longint;
Begin
write (‘Nhap n = ‘); readln ( n);
write (‘Nhap m=‘); readln ( m);
S:=0;
For i:= n to m do S:= S + n;
Writeln (‘Tong cua S = ’,s); Readln
end.
BÀI TẬP CỦNG CỐ
Thực hiện tháng 01 năm 2014
Bài học đã
KẾT THÚC
Thân ái chào các em
* 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 Tài Phúc
Dung lượng: | Lượt tài: 0
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)