Chaìo mæìng Chaìo mæìng ngaìy thaình ngaìy thaình láûp Âoaìn TNCS láûp Âoaìn TNCS Häö Chê Minh Häö Chê Minh Træåìng THPT Âäng Træåìng THPT Âäng Haì Haì Nàm hoüc 2005- Nàm hoüc 2005- 2006 2006 Chổồng V Chổồng V THU TUC VAè HAèM THU TUC VAè HAèM Tióỳt 51 Procedure & Function Procedure & Function Chổồng trỗnh con Chổồng trỗnh con Caùch vióỳt vaỡ sổớ duỷng Caùch vióỳt vaỡ sổớ duỷng thuớ tuỷc thuớ tuỷc Caùch vióỳt vaỡ sổớ duỷng Caùch vióỳt vaỡ sổớ duỷng haỡm haỡm Tham sọỳ Tham sọỳ Bióỳn chung vaỡ bióỳn Bióỳn chung vaỡ bióỳn rióng rióng Tỉ CHặẽC REẻ Tỉ CHặẽC REẻ NHAẽNH NHAẽNH Baỡi 1: Baỡi 1: Tióỳt thổù Tióỳt thổù nhỏỳt nhỏỳt Cỏu lóỷnh IF . Cỏu lóỷnh IF . THEN .ELSE THEN .ELSE Tỉ TIN HOĩC Tỉ TIN HOĩC Ciaùo vión thổỷc hióỷn: CAẽP XUN TUẽ TRặèNG THPT NG HAè TRặèNG THPT NG HAè Chaỡo mổỡng ngaỡy nhaỡ giaùo Vióỷt Nam 20-11 I. CHặNG TRầNH CON I. CHặNG TRầNH CON Trong chổồng trỗnh coù sổỷ l ỷp laỷi nhióửu lỏửn Trong chổồng trỗnh coù sổỷ l ỷp laỷi nhióửu lỏửn mọỹt õoaỷn chổồng trỗnh nón ta cỏửn traùnh sổỷ mọỹt õoaỷn chổồng trỗnh nón ta cỏửn traùnh sổỷ l ỷp laỷi naỡy. l ỷp laỷi naỡy. Caùc baỡi toaùn phổùc taỷp, khoù nhỏỷn bióỳt Caùc baỡi toaùn phổùc taỷp, khoù nhỏỷn bióỳt õoaỷn chổồng trỗnh naỡy laỡm gỗ, nón ta cỏửn õoaỷn chổồng trỗnh naỡy laỡm gỗ, nón ta cỏửn phaới chia baỡi toaùn lồùn thaỡnh nhổợng baỡi phaới chia baỡi toaùn lồùn thaỡnh nhổợng baỡi toaùn con õồn giaớn hồn. toaùn con õồn giaớn hồn. Do vỏỷy cỏửn phỏn chia chổồng trỗnh thaỡnh caùc Do vỏỷy cỏửn phỏn chia chổồng trỗnh thaỡnh caùc khọỳi ( khọỳi ( Module), Module), mọựi khọỳi gọửm nhổợng lóỷnh mọựi khọỳi gọửm nhổợng lóỷnh giaới quyóỳt 1 baỡi toaùn con. Khọỳi lóỷnh õoù ta giaới quyóỳt 1 baỡi toaùn con. Khọỳi lóỷnh õoù ta goỹi laỡ goỹi laỡ chổồng trỗnh con chổồng trỗnh con . . 1. Giồùi thióỷu: Illustrater Illustrater 2. Lồỹi ờch cuớa vióỷc sổớ duỷng 2. Lồỹi ờch cuớa vióỷc sổớ duỷng chổồng trỗnh con chổồng trỗnh con Duỡng chổồng trỗnh con seợ laỡm chổồng trỗnh goỹn gaỡng, dóự õoỹc, dóự hióứu, dóự kióứm tra lọựi vaỡ sổớa chổợa. Nhióửu ngổồỡi cuỡng vióỳt 1 chổồng trỗnh, mọựi ngổồỡi vióỳt 1 module sau õoù l ừp gheùp laỷi. Tióỳt kióỷm thồỡi gian vaỡ cọng sổùc khi 1 õoaỷn chổồng trỗnh l ỷp õi l ỷp laỷi nhióửu lỏửn. 3. Caùc loaỷi chổồng trỗnh con 3. Caùc loaỷi chổồng trỗnh con Coù 2 loaỷi: Thuớ tuỷc - Procedure Haỡm - Function Chè ra caïc haìm chuáøn vaì tãn thuí Chè ra caïc haìm chuáøn vaì tãn thuí tuûc chuáøn tuûc chuáøn ABS ABS WRITE WRITE INTEGER INTEGER CASE CASE READLN READLN ARRAY ARRAY BEGIN BEGIN SQRT SQRT WRITEL WRITEL N N CLRSCR CLRSCR SQR SQR WHILE WHILE REAL REAL FOR FOR KEYPRESSED KEYPRESSED READ READ WITH WITH CHR CHR SQR SQR KEYPRESS KEYPRESS ED ED CHR CHR ABS ABS SQRT SQRT CLRSCR CLRSCR WRITE WRITE WRITELN WRITELN READ READ READLN READLN INTEGER INTEGER REAL REAL WHILE WHILE FOR FOR WITH WITH CASE CASE ARRAY ARRAY BEGIN BEGIN Thuí tuûc Thuí tuûc chuáøn chuáøn Haìm Haìm chuáøn chuáøn Kiãøu dæî Kiãøu dæî liãûu liãûu Tæì khoaï Tæì khoaï II II . . CAẽCH VIT VAè Sặ CAẽCH VIT VAè Sặ DUNG THU TUC DUNG THU TUC Vờ duỷ 1: Vờ duỷ 1: Vióỳt chổồng trỗnh veợ 3 hỗnh vuọng Vióỳt chổồng trỗnh veợ 3 hỗnh vuọng bũng kờ tổỷ *. bũng kờ tổỷ *. * * * * * * * * * * * * * * * * * * * * * * * * 1. Vờ duỷ mồớ 1. Vờ duỷ mồớ õỏửu: õỏửu: PROGRAM VIDU1; PROGRAM VIDU1; BEGIN BEGIN WRITELN('* * * WRITELN('* * * *'); *'); WRITELN('* WRITELN('* *'); *'); WRITELN('* WRITELN('* *'); *'); WRITELN('* * * WRITELN('* * * *'); *'); writeln; writeln; WRITELN('* * * WRITELN('* * * *'); *'); WRITELN('* WRITELN('* *'); *'); WRITELN('* WRITELN('* *'); *'); WRITELN('* * * WRITELN('* * * *'); *'); writeln; writeln; WRITELN('* * * WRITELN('* * * *'); *'); WRITELN('* WRITELN('* *'); *'); WRITELN('* WRITELN('* *'); *'); WRITELN('* * * WRITELN('* * * *'); *'); Readln; Readln; END. END. PROGRAM VIDU1; PROGRAM VIDU1; Procedure HV; Procedure HV; BEGIN BEGIN WRITELN('* * * *'); WRITELN('* * * *'); WRITELN('* *'); WRITELN('* *'); WRITELN('* *'); WRITELN('* *'); WRITELN('* * * *'); WRITELN('* * * *'); END; END; BEGIN BEGIN {Chæång trçnh {Chæång trçnh chênh} chênh} HV; HV; WRITELN; WRITELN; HV; HV; WRITELN; WRITELN; HV; HV; READLN; READLN; END. END. [...]... Real; PROCEDURE 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) AND (B>0) AND (AABS(B-C)); END; PROCEDURE Tinh; BEGIN P:=(A+B+C)/2; S:=SQRT(P*(P-A)*(P-B)*(P-C)); END; BEGIN {Chỉång trçnh chênh} Nhap; Tinh; Writeln(‘Dien tich=’ , S:12:2); Readln; (C>0) AND 2 Cáúu trục ca mäüt th tủc PROCEDURE. .. kãút qu mng A v Max PROGRAM Maximum; VAR A: ARRAY[1 100] OF Integer; n,i,Max: Integer; PROCEDURE INPUT; Begin Write('So phan tu cua mang: '); Readln(n); FOR i:=1 TO n DO Begin Write('A[' ,i, ']= '); Readln(A[i]); End; End; PROCEDURE FINDMAX; Begin Max:= A[1]; FOR i:=1 TO N DO IF Max < A[i] THEN Max:= A[i]; End; PROCEDURE PRINT; Begin Write(’Cac phan tu cua mang: '); FOR i:=1 TO n DO Write(A[i]:4);... mäüt th tủc PROCEDURE Tãn_th_tủc[(Danh sạch tham säú)]; Khai bạo riãng: CONST, TYPE, VAR BEGIN Cạc cáu lãûnh(;) END; END 3 Vë trê ca th tủc trong chỉång trçnh PROGRAM Tãn_chỉång_trçnh; CONST TYPE VAR PROCEDURE Tãn_th_tủc[(Danh sạch tham säú)]; Khai bạo riãng: CONST, TYPE, VAR VAR BEGIN Cạc cáu lãûnh(;) END; END Khai bạo cạc th tủc v hm khạc BEGIN ••• ••• Låìi gi th tủc Tãn_th_tủc [(Danh sạch tham . 2006 Chổồng V Chổồng V THU TUC VAè HAèM THU TUC VAè HAèM Tióỳt 51 Procedure & Function Procedure & Function Chổồng trỗnh con Chổồng trỗnh con Caùch. *'); *'); Readln; Readln; END. END. PROGRAM VIDU1; PROGRAM VIDU1; Procedure HV; Procedure HV; BEGIN BEGIN WRITELN('* * * *'); WRITELN('*