Câu lệnh lặp (t1) - Tin học 8

Câu hỏi: Nêu một vài ví dụ về hoạt động được thực hiện lặp lại trong cuộc sống hàng ngày?... 1.Các công việc phải thực hiện nhiều lần[r]

(1)

(2)

(3)

1.Các công việc phải thực nhiều lần

2.Câu lệnh lặp – lệnh thay cho nhiều lệnh 3.Ví dụ câu lệnh lặp

(4)

3 Ví dụ câu lệnh lặp

For <biến đếm>:= <giá trị đầu> to <giá trị cuối> <câu lệnh>;

+ For, to, do: từ khóa.

+ Biến đếm: biến kiểu nguyên.

+ Giá trị đầu, giá trị cuối: là số nguyên.

+ Câu lệnh: Có thể câu lệnh đơn câu lệnh

ghép.

- Cú pháp

- Hoạt động:

+ Câu lệnh lặp thực hiện câu lệnh nhiều lần, mỗi lần vòng lặp Số vòng lặp xác định trước bằng:

giá trị cuối – giá trị đầu + 1

+ Khi thực ban đầu biến đếm gán giá trị đầu, sau vòng lặp, biến đếm tự động

tăng thêm đơn vị cho đến giá trị cuối.

b.đếm:=GT đầu

B.đếm <= GT cuối

Câu lệnh

b.đếm = b.đếm +1

đúng

sai

(5)

ghép.

- Cú pháp

-Ví dụ:

For i:=1 to writeln(‘Chao ban’);

Lần lặp i Kết in hình

1 2 3 4 5

Chao ban Chao ban Chao ban Chao ban Chao ban 1

(6)

-Ví dụ 3: Chương trình sau in hình thứ tự lần lặp:

Lần lặp

thứ1 Day la lan i Kết in hình

lap thu 1

2 Day la lan lap thu 2

10 10 Day la lan lap thu 10

Program Lap; Uses crt;

Var i: integer; Begin

for i:=1 to 10 do

writeln(‘Day la lan lap thu ‘, i);

Readln; End.

(7)

Uses crt;

Var i: integer;

Begin

clrscr;

for i:=1 to 20 do Begin

writeln (‘ o ‘); delay (100); end; Readln; End. O O O O O O O O O O O O O O O O O O O O

-Ví dụ 3:

-Ví dụ 4: Để in chữ O hình, ta sử dụng lệnh: Writeln(‘O’).

Nếu muốn viết chương trình ghi nhận vị trí trứng rơi từ cao xuống, ta lặp lại lệnh nhiều lần như chương trình sau:

Câu lệnh ghép

Uses crt;

Var i: integer;

Begin

clrscr;

for i:=1 to 20 do writeln (‘ o ‘);

Readln;

End.

for i:=1 to 20 do

writeln (‘ o ‘);

(8)

+ For, to, do: từ khóa;

+ Biến đếm: biến kiểu nguyên;

ghép.

- Cú pháp

* Bài tập củng cố

Bài 1:

Sau thực chương trình sau, giá trị biến j bằng bao nhiêu?

j := 0;

For i := to do j := j + 2;LẦN LẶP I J

1 0 2

2 1 4

3 2 6

4 3 8

5 4 10

(9)

ghép.

- Cú pháp

* Bài tập củng cố

Bài : Các câu lệnh Pascal sau có hợp lệ khơng? Tại sao?

a)For i := 100 to writeln (‘A’);

b)For i := 1.5 to 10.5 writeln (‘A’);

c)For i = to 10 writeln (‘A’);

d)For i := to 10 ; writeln (‘A’);

e)For i:= -3 to writeln(‘A’);

f) Var x : real ; begin

For x := to 10 writeln (‘A’);

end.

(10)

For <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

+ Giá trị đầu, giá trị cuối: là số nguyên, giá trị

cuối >= giá trị đầu.

ghép.

- Cú pháp

Bài 3:

Viết chương trình in hình số tự nhiên từ đến 10 (mỗi số dòng).

Program ct1;

Uses crt;

Var i: integer;

Begin

for i:= to 10 writeln(i); Readln;

(11)

- Học bài

- Làm tập 6- SGK

(12)

i:=GT đầu;

i:=i +1;

Đúng

Sai

i <= GT cuối

Writeln(‘Day la lan lap thu ‘,1); i:=1;

1 <= 10 2 <= 10 3 <= 1010 <= 1011 <= 104 <= 105 <= 106 <= 107 <= 108 <= 109 <= 10

i:=2; i:=3; i:=4; i:=5; i:=6; i:=7; i:=8; i:=9; i:=10;i:=11;

Writeln(‘Day la lan lap thu ‘,2); Writeln(‘Day la lan lap thu ‘,3); Writeln(‘Day la lan lap thu ‘,4); Writeln(‘Day la lan lap thu ‘,5); Writeln(‘Day la lan lap thu ‘,6); Writeln(‘Day la lan lap thu ‘,7); Writeln(‘Day la lan lap thu ‘,8); Writeln(‘Day la lan lap thu ‘,9); Writeln(‘Day la lan lap thu ‘,10);Writeln(‘Day la lan lap thu ‘,i);

Day la lan lap thu 1

Program Lap; Uses crt;

Var i: integer; Begin

for i:=1 to 10 do

writeln(‘Day la lan lap thu ‘, i);

Readln; End.

(13)

For <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

+ Giá trị đầu, giá trị cuối: là số nguyên, giá trị

cuối >= giá trị đầu.

ghép.

- Cú pháp

Đáp án: Bài 4:

Sau thực đoạn chương trình sau, giá trị biến a, b bằng bao nhiêu?1 a:=0; b:=1;

For i:= to a:=a+2; b:=b+1;

2 a:=0; b:=1;

For i:=1 to Begin

a:=a+2; b:=b+1; end;