Cấu trúc lặp xác định

Bµi gi¶ngCấu trúc lặp xác định For … To … Do Giáo viên : Th.s Đỗ Ngọc Điệp Khoa : Công nghệ thông tin Trường : Cao đẳng công nghiệp Việt Đức.

Bµi gi¶ng

Cấu trúc lặp xác định

For … To … Do

Giáo viên : Th.s Đỗ Ngọc Điệp

Khoa : Công nghệ thông tin

Trường : Cao đẳng công nghiệp Việt Đức

5 Cấu trúc lặp xác định For to do … …

5 Cấu trúc lặp xác định For to do … …

5.1/ Cấu trúc lặp tiến

5.1.1/ Cú pháp

For BĐ := <Cận 1> To <Cận 2> Do

Công việc ;

 Trong đó:

For , To , Do : Là các các từ khoá

BĐ : Là một hằng số có kiểu dữ liệu đơn giản là một số nguyên

( không phải là kiểu số thực )

Công việc : Là lệnh được thực hiện sau từ khoá Do

Cận1, Cận 2 : Có thể là hằng, biểu thức hoặc biến có kiểu dữ liệu đơn giản

( thuộc số nguyên ) dùng để xác định giá trị cận đầu và cận cuối trong vòng lập

5.1.2/ Sự hoạt động :

Bước 1: Biến đếm sẽ được khởi đầu với giá trị của cận 1

Bước 2: Biến đếm sẽ so sánh giá trị của biến đếm với cận 2

Bước 3 : Thực hiện công việc sau từ khoá Do Sau đó BĐ sẽ tăng giá trị lên 1

đơn vị ( BĐ = BĐ + 1) rồi lại chuyển về Bước 2

Bước 4 : Thoát khỏi vòng lặp

Nếu biến đếm lớn hơn giá trị của cận 2 thì sẽ chuyển đến Bước 4

Nếu biến đếm nhỏ hơn hoặc bằng giá trị của cận 2 thì sẽ chuyển đến Bước 3

5.1.3 Lưu đồ thuật toán :

Bắt đầu

B Đ :=Can1

BĐ < Can2

Thực hiện việc

Đ

BĐ : = BĐ + 1

S

Kết thúc

Thực hiện việc

BĐ : = BĐ + 1

BĐ < Can2

5.1.4 Ví dụ áp dụng 1 :

Viết chương trình in các số nguyên dương từ 1 đến 10 lên màn hình

và các số được in trên một dòng

Program In_so ; Uses crt ;

Var i:byte ; Begin

Clrscr ;

writeln(‘ Day so nguyen tu 1 den 10 ‘) ; For i :=1 To 10 Do

write(i:3) ;

readln ; End.

Sự Hoạt động của chương trình

Vong lap so

Begin

i = 1

1 < 10

S

D

In So 1

2 = 1 + 1

Ket thuc

Ket qua in

1

2 < 10

In So 2

2

3 = 2 + 1

3

3 < 10

In So 3

3

4 = 3 + 1

4

4 < 10

In So 4

4

5 = 4 + 1

5

In So 5

6 = 5 + 1

In So 6

6

7 = 6 + 1

7

7 < 10

In So 7

7

8 = 7 + 1

8

8 < 10

In So 8

8

9 = 8 + 1

9

9 < 10

In So 9

9

10 = 9 + 1

10

10 < 10

In So 10

10

11 = 10 + 1

11

11 < 10

 Ví dụ áp dụng 2:

Viết chương trình in các ký tự in thường từ ‘a’ đến ‘z’ lên màn hình

và các ký tự được in trên một dòng

Program In_kytu ;

Uses crt ;

Var ch: char ;

Begin

Clrscr ;

writeln(‘ Day ky tu thuong tu a den z ‘) ; For ch:= ‘a’ To ‘z’ Do

write(ch:3) ;

readln ; End.

* Chú ý :

động tăng lên 1 đơn vị

dữ liệu đơn giản ( không phải là kiểu số thực)

cận1 và cận2

 Bài tập về nhà:

Viết chương trình in lên màn hình

- Các ký tự in thường từ ‘a’ đến ‘z’

- Các ký tự in hoa từ ‘A’ đến ‘Z’

- Các số nguyên từ 10 đến 30

Program In_so ;

Uses crt ;

Var i:byte ;

Begin

Clrscr ;

writeln(‘ Day so nguyen tu 1 den 10 ‘) ; For i :=1 To 10 Do

write(i:3) ;

readln ; End.

Vong lap so

1

Ket qua in 1

2

9 10 11