Vienphantre.rar

QUÝ THẦY CÔ
KÍNH CHÀO
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?
Procedure [()];
[]
Begin
[]
end;
Ví dụ: viết 1 thủ tục nhập số nhập 2 số nguyên a, b, sau đó tính tổng s=a+b.
Procedure tong(var a,b:integer);
var s:integer;
Begin
write(‘nhap a,b:’); readln(a,b);
s:=a+b;
writeln(‘tong s la:’,s);
end;
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 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.
Nhập a=5, b=10
Sau khi gọi thủ tục hoan_doi(a,b);
a=?, b=?
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 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.
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.
Dòng lệnh nào trong chương trình khác nhau?
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ị
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.
Những dòng lệnh nào trong chương trình thực hiện việc hoán đổi giá trị của hai biến?
tam:=x;
x:=y;
y:=tam;
Tham biến 1
procedure hoan_doi(var x,y:integer);
var tam:integer;
begin
tam:=x;
x:=y;
y:=tam;
end;
Tham biến 2
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);
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 giá trị trong quá trình thực hiện chương trình?
Tham số giá trị có thể hay không thay đổi giá 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
* 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 1: Chọn đáp án đúng sữa lổi dòng (1)?
A. Rocedure tong(var a,b:integer); C. Procedure tong(var a,b:integer);
B. Rocedure tong(var a,b:integer) D.Procedure tong var a,b:integer
Đáp án: C
Câu 2: Chọn đáp án đúng sữa lổi dòng (7)?
A. end. C. end_.
B. end; D. end_;
Đáp án: B
* 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?
Tham số hình thức đóng vai trò là tham số biến
Tham số hình thức đóng vai trò là tham số giá trị
Tham số thực đóng vai trò là tham số biến
Tham số thực đóng vai trò là tham số giá trị
Đáp án: A