thigiaovientreppt

<span class='text_page_counter'>(1)</span>KÍNH CHAØO. QUYÙ THAÀY COÂ.

<span class='text_page_counter'>(2)</span> DANH SÁCH THÀNH VIÊN TỔ TIN HỌC 1) Lê Thanh Điền (Tổ Trưởng) 2) Trương Hữu Nghĩa 3) Lê Đoàn Dị 4) Huỳnh Văn Nhí 5) Huỳnh Thị Hảo 6) Trần Quốc Thịnh 7) Nguyễn Triều Thảo.

<span class='text_page_counter'>(3)</span> BÀI 18: VÍ DỤ VỀ CÁCH VIẾT VÀ SỬ DỤNG CHƯƠNG TRÌNH CON. Trọng Tâm Bài Học: Cú pháp cấu trúc của thủ tục Phân biệt tham số giá trị và tham số biến.

<span class='text_page_counter'>(4)</span> BÀI 18: VÍ DỤ VỀ CÁCH VIẾT VÀ SỬ DỤNG CHƯƠNG TRÌNH CON 1) CÁCH VIẾT VÀ SỬ DỤNG THỦ TỤC a) Cấu trúc của thủ tục. Thủ tục có cấu trúc như thế nào?.

<span class='text_page_counter'>(5)</span> Procedure <tên thủ tục> [(<danh sách tham số>)]; [<phần khai báo>] Begin [<dãy các câu lệnh>] end; Procedure tong(var a,b:integer); Ví dụ: Viết 1 thủ tục nhập số nhập 2 số nguyên a, b. Sau đó var s:integer; tính tổng s=a+b. Begin write(‘nhap a,b:’); readln(a,b); s:=a+b; writeln(‘tong s la:’,s); end;.

<span class='text_page_counter'>(6)</span> b) Ví dụ về thủ tục: Viết chương trình hoán đổi giá trị của hai biến (phân biệt tham số hình thức, tham số giá trị). Nhập a=5, b=10 Sau khi gọi thủ tục hoan_doi(a,b); a=?, b=?. program thambien1; uses crt; var a,b:integer; procedure hoan_doi(var x,y:integer); var tam:integer; begin tam:=x; x:=y; y:=tam; end; begin clrscr; write('nhap a,b:');readln(a,b); writeln(a:6,b:6); hoan_doi(a,b); writeln('sau khi goi chuong trinh con hoan doi:'); writeln(a:6,b:6); readln end..

<span class='text_page_counter'>(7)</span> b) Ví dụ về thủ tục: Viết chương trình hoán đổi giá trị của hai biến (phân biệt tham số hình thức, tham số giá trị) program thambien2;. Nhập a=5, b=10 Sau khi gọi thủ tục hoan_doi(a,b); a=?, b=?. uses crt; var a,b:integer; procedure hoan_doi(x:integer; var y:integer); var tam:integer; begin tam:=x; x:=y; y:=tam; end; begin clrscr; write('nhap a,b:');readln(a,b); writeln(a:6,b:6); hoan_doi(a,b); writeln('sau khi goi chuong trinh con hoan doi:'); writeln(a:6,b:6); readln end..

<span class='text_page_counter'>(8)</span> procedure hoan_doi(var x,y:integer); Dòng lệnh nào trong chương trình khác nhau? procedure hoan_doi(x:integer; var y:integer); program thambien1; uses crt; var a,b:integer; procedure hoan_doi(var x,y:integer); var tam:integer; begin tam:=x; x:=y; y:=tam; end; begin clrscr; write('nhap a,b:');readln(a,b); writeln(a:6,b:6); hoan_doi(a,b); writeln('sau khi goi chuong trinh con hoan doi:'); writeln(a:6,b:6); readln end.. program thambien2; uses crt; var a,b:integer; procedure hoan_doi(x:integer; var y:integer); var tam:integer; begin tam:=x; x:=y; y:=tam; end; begin clrscr; write('nhap a,b:');readln(a,b); writeln(a:6,b:6); hoan_doi(a,b); writeln('sau khi goi chuong trinh con hoan doi:'); writeln(a:6,b:6); readln end..

<span class='text_page_counter'>(9)</span> procedure hoan_doi(var x,y:integer); procedure hoan_doi(x:integer; var y:integer);. Từ khóa dùng để khai báo biến? * Ghi nhớ: Sau từ khóa Var là tham số biến, không có từ khóa Var là tham số giá trị.

<span class='text_page_counter'>(10)</span> tam:=x; Những dòng lệnh nào trong chương trình thực hiện việc x:=y; hoán đổi giá trị của hai y:=tam; biến?. program thambien1; uses crt; var a,b:integer; procedure hoan_doi(var x,y:integer); var tam:integer; begin tam:=x; x:=y; y:=tam; end; begin clrscr; write('nhap a,b:');readln(a,b); writeln(a:6,b:6); hoan_doi(a,b); writeln('sau khi goi chuong trinh con hoan doi:'); writeln(a:6,b:6); readln end.. program thambien2; uses crt; var a,b:integer; procedure hoan_doi(x:integer; var y:integer); var tam:integer; begin tam:=x; x:=y; y:=tam; end; begin clrscr; write('nhap a,b:');readln(a,b); writeln(a:6,b:6); hoan_doi(a,b); writeln('sau khi goi chuong trinh con hoan doi:'); writeln(a:6,b:6); readln end..

<span class='text_page_counter'>(11)</span> tam:=x; x:=y; y:=tam; Tham biến 1. Tham biến 2. procedure hoan_doi(var x,y:integer); var tam:integer; begin tam:=x; x:=y; y:=tam; end;. procedure hoan_doi(x:integer var y:integer); var tam:integer; begin tam:=x; x:=y; y:=tam; end;. write('nhap a,b:');readln(a,b); writeln(a:6,b:6); hoan_doi(a,b); writeln(a:6,b:6);.

<span class='text_page_counter'>(12)</span> procedure hoan_doi(var x,y:integer); procedure hoan_doi(x:integer; var y:integer); Tham số biến có thể hay không thay đổi số quá giá trị có giá Tham trị trong trình thể hay thực hiệnkhông chươngthay đổi giá trình? trị trong quá trình thực hiện chương trình? • Ghi nhớ: Tham số biến có thể thay đổi giá trị trong quá trình thực hiện chương trình Tham số giá trị không thay đổi giá trị trong quá trình thực hiện chương trình.

<span class='text_page_counter'>(13)</span> * Củng cố: Sữa lổi chương trình sau, tại những dòng đã đánh thứ tự Produre tong(var a,b:integer);. (1). var s:integer;. (2). Begin. (3). end. write(‘nhap a,b:’); readln(a,b);. (4). s:=a+b;. (5). writeln(‘tong s la:’,s);. (6) (7). Câu 1: Chọn đáp án đúng sữa lổi dòng (1)? Câu 2: Chọn đáp án đúng sữa lổi dòng (7)? A. Rocedure tong(var a,b:integer); C. Procedure tong(var a,b:integer); A. end. C. end_. B. Rocedure tong(var a,b:integer) D.Procedure tong var a,b:integer B. end; D. end_; Đáp án: C. Đáp án: B.

<span class='text_page_counter'>(14)</span> * Củng cố: Sữa lổi chương trình sau, tại những dòng đã đánh thứ tự Produre tong(var a,b:integer);. (1). var s:integer;. (2). Begin. (3). write(‘nhap a,b:’); readln(a,b);. (4). s:=a+b;. (5). writeln(‘tong s la:’,s);. (6). end. (7). Câu 3: Biến a,b là tham số gì trong chương trình? A. Tham số hình thức đóng vai trò là tham số biến B. Tham số hình thức đóng vai trò là tham số giá trị C. Tham số thực đóng vai trò là tham số biến D. Tham số thực đóng vai trò là tham số giá trị. Đáp án: A.

<span class='text_page_counter'>(15)</span>