Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (726.13 KB, 24 trang )
<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>
Tập thể lớp 11A1 - Kính chào q Thầy cơ.
Tập thể lớp 11A1 - Kính chào q Thầy cơ.
<i>Để vẽ hình chữ nhật trên, </i>
<i>ta cần dùng những câu </i>
<i>lệnh nào?</i>
program VD_thutuc1;
procedure Ve_Hcn;
begin
writeln('* * * * * * *');
writeln('* *');
writeln('* * * * * * *');
end;
begin
Ve_Hcn;
writeln;writeln;
Ve_Hcn;
writeln;writeln;
Ve_Hcn;
readln
end.
<i>Thủ tục </i>Ve_Hcn
(<i>chương trình con </i>Ve_Hcn)
program VD_thutuc1;
procedure Ve_Hcn;
begin
writeln('* * * * * * *');
writeln('* *');
writeln('* * * * * * *');
end;
Begin
Ve_Hcn;
writeln;writeln;
Ve_Hcn;
writeln;writeln;
Ve_Hcn;
readln
end.
<i>Giả sử ta cần vẽ nhiều hình chữ </i>
<i>nhật với kích thước khác nhau </i>
<i>(25</i>x<i>10; 5</i>x<i>10; 4</i>x<i>2), thủ tục này </i>
<i>có thực hiện được khơng ?</i>
<i>Để giải quyết bài tốn </i>
<i>trên, thủ tục </i>Ve_Hcn<i> được </i>
<i>viết lại như thế nào ?</i>
<i>Khi đó phần đầu của thủ tục </i>
1. procedure Ve_Hcn(chdai, chrong: integer);
2. var i, j: integer;
3. begin
4. for i:=1 to chdai do write('*');
5. writeln;
6. for j:=1 to chrong-2 do
begin
write('*');
for i:=1 to chdai-2 do write(' ');
writeln('*');
end;
7. for i:=1 to chdai do write('*');
8. writeln;
9. end;
<i>Tham số hình thức</i>
<i>Vẽ cạnh trên của </i>
<i>hình chữ nhật</i>
<i>Vẽ hai cạnh bên</i>
begin
clrscr;
Ve_Hcn(25,10);
* Trong lệnh gọi thủ tục, các tham
số hình thức được thay bằng các
tham số thực sự tương ứng là <i>các </i>
<i>giá trị cụ thể</i> được gọi là <i><b>tham số </b></i>
<i><b>giá trị</b></i> (tham trị).
•Câu lệnh gọi thủ tục có dạng:
•<tên thủ tục>[(các tham số thực sự)];
1. program VD_thambien1;
2. uses crt;
3. var a, b: integer;
4. procedure Hoan_doi(var x,y: integer);
5. var TG: integer;
6. begin
TG:= x;
x:= y;
y:= TG;
end;
7. begin
8. clrscr;
9. a:=5; b:=10;
10. writeln(a:6, b:6);
11. Hoan_doi(a,b);
12. writeln(a:6, b:6);
<i>Tham số hình thức là </i>
<i>các tham số biến</i>
program VD_thambien1;
uses crt;
var a, b: integer;
procedure Hoan_doi(var x,y: integer);
var TG: integer;
begin
TG:= x;
x:= y;
y:= TG;
end;
begin
clrscr;
a:=5; b:=10;
writeln(a:6, b:6);
Hoan_doi(a,b);
writeln(a:6, b:6);
readln;
end.
•Trong lệnh gọi thủ tục, các
tham số hình thức được thay
bằng các tham số thực sự
tương ứng là tên <i>các biến</i>
chứa dữ liệu ra được gọi là
<i><b>các tham số biến</b></i> (tham
•Để phân biệt tham biến và
tham trị, Pascal sử dụng từ
khóa <b>var</b> để khai báo cho
những <i>tham số biến</i>.
program VD_thambien2;
uses crt;
var a, b: integer;
procedure Hoan_doi(x: integer; var y: integer);
var TG: integer;
begin
TG:= x;
x:= y;
y:= TG;
end;
begin
clrscr;
a:=5; b:=10;
writeln(a:6, b:6);
Hoan_doi(a,b);
writeln(a:6, b:6);
<i>Khác nhau trong khai báo </i>
<i>tham số hình thức</i>
<i>Khác nhau ở kết quả sau </i>
<i>khi thực hiện thủ tục</i>
<i>Điểm khác nhau </i>
<i>giữa tham trị và </i>
<i>tham biến ?</i>
<i>•* Tham số biến được dùng để ghi lại</i>
<i>•dữ liệu kết quả của việc thực hiện</i>
<i>•thủ tục.</i>
<i>•* Tham số giá trị chỉ để đưa dữ liệu</i>
<i>•vào cho thủ tục khi bắt đầu thực hiện</i>
1. program VD_thambien2;
2. uses crt;
3. var a, b: integer;
4. procedure Hoan_doi(x: integer; var y: integer);
5. var TG: integer;
6. begin
TG:= x;
x:= y;
y:= TG;
end;
7. begin
8. clrscr;
9. a:=5; b:=10;
10. writeln(a:6, b:6);
11. Hoan_doi(a,b);
12. writeln(a:6, b:6);
13. readln;
14.end.
<b>procedure Hoan_doi(var x: integer; y: integer);</b>
<i>Kết quả nhận được (trên </i>
<i>màn hình) như thế nào khi </i>
<b>procedure Delta(M: array[1..10] of byte; var X: string[25]);</b>
<b>type mang = array[1..10] of byte; xau = string[25];</b>
<b>procedure Delta(M: mang; var X: xau);</b>
1. Từ khóa để khai báo thủ tục là:
A. Program B. Procedure
C. Function D. Processor
2. Muốn khai báo x, y là tham số giá trị (x, y thuộc
kiểu integer) trong thủ tục có tên là “ABC” thì
khai báo nào sau đây là đúng?
A. Procedure ABC(x, y: integer);
B. Procedure ABC(var x, y: integer);
C. Procedure ABC(x: integer; var y: integer);
D. Procedure ABC(var x: integer; y: integer);
3. Muốn khai báo x là tham số giá trị, y và z là tham
số biến (x, y, z thuộc kiểu integer) trong thủ tục có
tên là “CTC” thì khai báo nào sau đây là đúng?
A. Procedure CTC(x, y, z: integer);
B. Procedure CTC(var x, y, z: integer);
C. Procedure CTC(var x:integer; y, z: integer);
D. Procedure CTC(x: integer; var y, z: integer);
4. Cho chương trình sau:
var a, b, c: integer;
procedure Hoan_doi(var a, b: integer);
var TG: integer;
begin
TG:= a;
a:= b;
b:= TG;
a:= 10; b:= 11; c:= 12;
Hoan_doi(b,c);
Hoan_doi(a,b);
Hoan_doi(b,c);
writeln(a, ‘ ’, b ‘ ’, c);
Kết quả nhận
được (trên màn
hình) sau khi thực
hiện chương trình
là:
A. 10 11 12
B. 11 10 12
C. 12 11 10
D. 12 10 11