Tiet 42 bien va tham so

Bài
20

Giáo án điện tử tin học lớp 11


m
n
VD1:
VD1: Lập
Lập ch
chơng
ơng trình
trình tính
tính tổng
tổng luỹ
luỹ thừa
thừa SS =
= aam+b
+bn
p
q
+c
+cp +d
+dq

* INPUT : Các cơ số a,b,c,d và các số mũ lần lợt n,m,p,q
* OUTPUT : S

Viết chơng trình con dạng tổng quát Luythua = xk
Trong đó: Luythua, x kiĨu thùc, k kiĨu nguyªn.



Khi tÝnh l thõa cđa các số hạng trong tổng trên ta chỉ
cần gọi tên chơng trình con Luythua và thay thế (x,k) bằng
các giá trị tơng ứng. Ví dụ nh: Luythua(a,m). luythua(b,n),
luythua(c,p),luythua(d,q).


Program tong_luy_thua;
Uses crt;
Var a,b,c,d,S : real;
n,m,p,q :integer;
Function luythua(x: real,k:integer): real;
Var j: integer; Lt:Real;
begin
Lt:=1;
For j:=1 to k do Lt:=Lt*x;
Luythua:=Lt;
end;
BEGIN
Write(‘ Nhap vao cac co so a,b,c,d ‘); readln(a,b,c,d);
write(‘ Nhap vao cac so mu m,n,p,q: ’); readln(n,m,p,q);
s:= luythua(a,m)+luythua(b,n)+luythua(c,p)+luythua(d,q);
Writeln(‘ Tong luy thua =’, S:7:2);
Readln;
END.


• BiÕn khai b¸o ë CT
chÝnh cã t¸c dơng ë mọi

chơng
trình gọi là
biến toàn bộ.
ã Biến đợc khai báo ở
trong CTC chỉ có tác
dụng trong CTC gọi là
biến cục bộ.
ã Biến đợc khai báo cho dữ
liệu vào/ra ở CTC gọi là
tham số hình thức.
ã Biến chứa trong lời gọi
CTC ở chơng trình chính
là các tham số thực sự.


Ví dụ
dụ 2:
2: Lập
Lập ch
chơng
ơng trình
trình vẽ
vẽ các
các hình
hình chữ
chữ nhật
nhật bằng
bằng dấu
dấu ** có
có kích

kích
Ví
thớc
ớckhác
khácnhau.
nhau.
th
Theo bạn để
viết chơng
trình cho ví
dụ trên ta nên
dùng loại ch
ơng trình con
nào?



Dùng chơng trình con thủ tục
Ve_HCN(dai,rong) để vẽ một
hình chữ nhật.



Trong chơng trình chính,
dùng lời gọi thủ tục và truyền
các tham số với giá trị khác
nhau để vẽ các hình chữ
nhật khác.
Ví dụ: Ve_HCN(25,20);

Dài

Các em hÃy
viết một thủ
tục Ve_HCN
bằng dấu *
với chiều dài,
rộng bất kì!

**********************************
*
*
*
*
*
*
**********************************

Vẽ cạnh trên của HCN



FOR i:=1 to chdai DO WRITE(*);



WRITELN;
Vẽ hai cạnh
bên

FOR J:=1 to chrong -2 DO
Begin
Write(*);
For i:=1 to chdai - 2 do Write(‘ ‘);
Writeln(‘*’)
end;



VÏ c¹nh díi
FOR i:=1 to chdai DO WRITE(‘*’);

Réng


Program VD; BiÕn toµn cơc
BiÕn cơc bé
Uses crt;
var a,b: byte;
Procedure Ve_HCN( chdai,chrong:integer);
Var i,j: integer;
Begin
For i:=1 to chdai do write(‘ * ’);
Tham sè
Writeln;
h×nh thøc
For j:=1 to chrong-2 do
begin
write(‘ * ’);
for i:=1 to chdai-2 do write(‘ ‘);

writeln(‘ * ’);
end;
For i:=1 to chdai Do write(‘ * ’);
writeln;
Tham sè thùc sù
end;
(tham trÞ)
BEGIN
CLRSCR;
Ve_HCN(25,10);
Writeln; a:=5 ; b:=10;
Ve_HCN(a,b);
readln;
END.


Program VD; BiÕn toµn cơc
Uses crt;
BiÕn cơc bé
var a,b: integer;

Tham sè
h×nh thøc

Procedure Hoan_doi(Var x,y:integer);
Var TG: integer;
Begin
TG:= x;
x:= y;
y:=TG;

end;
BEGIN
CLRSCR;
Tham sè thùc sù
a:= 5 ; b:= 10;
(tham biÕn)
Writeln( a:6 , b:6);
Hoan_doi(a,b);
Writeln( a:6 , b:6);
readln;
END.


HÃy nhớ!
Biến:
- Khai báo trong chơng
trình
chính là biến
toàn cục.
- Khai báo trong chơng
trình
con là biến cục
bộ.

Tham số
-

Biến khai báo cho dữ
liệu vào ra trong chơng
trình con gọi là tham số

- hình
Biếnthức.
chứa trong lời gọi
CTC
ở
chơng
trình
chính là các tham số
thực sù.