Procedure

CHƯƠNG TRÌNH CON Trong chương trình có sự l ûp lại nhiều lần một Trong chương trình có sự l ûp lại nhiều lần một ặp lại nhiều lần một ặp lại nhiều lần một đoạn chương trình nên ta cần

Chào mừng ngày thành lập Đoàn TNCS

Hồ Chí Minh

Trường THPT Đông

Hà

Năm học

TRƯỜNG THPT ĐÔNG HÀChào mừng ngày nhà giáo Việt Nam 20-11

I CHƯƠNG TRÌNH CON

 Trong chương trình có sự l ûp lại nhiều lần một Trong chương trình có sự l ûp lại nhiều lần một ặp lại nhiều lần một ặp lại nhiều lần một

đoạn chương trình nên ta cần tránh sự l ûp lại này ặp lại nhiều lần một

 Các bài toán phức tạp, khó nhận biết đoạn

chương trình này làm gì, nên ta cần phải chia bài

toán lớn thành những bài toán con đơn giản hơn.

 Do vậy cần phân chia chương trình thành các khối

( Module), mỗi khối gồm những lệnh giải quyết 1

bài toán con Khối lệnh đó ta gọi là chương

trình con.

1 Giới thiệu:

Illustrater

2 Lợi ích của việc sử dụng

chương trình con

 Dùng chương trình con sẽ làm chương trình

gọn gàng, dễ đọc, dễ hiểu, dễ kiểm tra lỗi và sửa chữa

 Nhiều người cùng viết 1 chương trình,

mỗi người viết 1 module sau đó l õp ghép ặp lại nhiều lần một lại

 Tiết kiệm thời gian và công sức khi 1

đoạn chương trình l ûp đi l ûp lại nhiều ặp lại nhiều lần một ặp lại nhiều lần một lần

3 Cạc loải chỉång trçnh con

Cọ 2 loải:

 Thuí tủc - Procedure

 Haìm - Function

Chỉ ra các hàm chuẩn và tên thủ tục chuẩn

ABS WRITE INTEGER CASE

READLN ARRAY BEGIN SQRT

WRITEL N

CLRSCR SQR

WHILE REAL FOR KEYPRESSED READ

WITH CHR

KEYPRESS ED

CHR ABS SQRT

WHILE FOR WITH CASE ARRAY BEGIN

Thủ tục

chuẩn

Hàm chuẩn

Kiểu dữ

liệu

Từ khoá

II CÁCH VIẾT VÀ SỬ

DỤNG THỦ TỤC

 Ví dụ 2: Viết chương trình nhập số

đo 3 cạnh của tam giác ABC Tính diện

a Dữ liệu vào ra:

Vào: Số đo 3 cạnh AB(a) ,BC(b),AC(c)

Ra: Diện tích tam giác (S)

b Tổ chức dữ liệu:

c Ý tưởng giải thuật:

B1: Nhập a,b,c - kiểm tra (a<b+c) và (a>|b - c|)

B2: Tính S theo công thức Heron

B3: In kết quả

Writeln(‘Nhap so do cac canh’);

Write(‘Canh AB:’); Readln(A);

Write(‘Canh BC:’); Readln(B);

Write(‘Canh CA:’); Readln(C);

UNTIL (A>0) AND (B>0) AND (C>0) AND (A<B+C)AND (A>ABS(B-C));

PROGRAM DIENTICH;

VAR A,B,C, P,S: Real;

PROCEDURE Nhap; Nhap;

BEGIN

REPEAT

Writeln(‘Nhap so do cac canh’);

Write(‘Canh AB: ’); Readln(A);

Write(‘Canh BC: ’); Readln(B);

Write(‘Canh CA: ’); Readln(C);

UNTIL (A>0) (A>0) AND (B>0) (B>0) AND (C>0) (C>0) AND (A<B+C)

(A<B+C)AND AND (A>ABS(B-C));

2 Cấu trúc của một thủ tục

3 Vë trê cuía thuí tuûc trong

4 Sử dụng thủ tục

thủ tục, ta phải gọi thủ tục.

gọi thủ tục Thực hiện xong, chương trình thực hiện câu

lệnh ngay sau lời gọi thủ tục

Return

5 Ví dụ áp dụng:

Cho mảng A có n phần tử số nguyên

c Ý tưởng giải thuật:

B2: Tìm Max B3: In kết quả mảng A và Max

PROCEDURE PRINT; PRINT;

Xin chân thành cảm ơn sự quan tâm theo dõi của quý thầy quý

cô!

Return