Bài 17. Chương trình con và phân loại

BÀI 17
CHƯƠNG TRÌNH CON VÀ PHÂN LOẠI (Tiết 2)
Function Luythua(x,k:integer):real;
Var tich:real;
j: integer;
begin
tich:=1;
for j:=1 to k do
tich:=tich*x;
Luythua:=tich;
end;
Phần đầu
Phần khai báo
Phần thân
Var a,b,c,d,Tluythua:real;
n,m,p,q:integer;
Function Luythua(x:real;k:integer):real;
Var tich:real;
j: integer;
begin
tich:=1;
for j:=1 to k do
tich:=tich*x;
Luythua:=tich;
end;
Begin
write(‘nhap a,b,c,d,n,m,p,q:’);
readln(a,b,c,d,n,m,p,q); Tluythua:=luythua(a,n)+luythua(b,m)+luythua(c,p)+luythua(d,q);
Writeln(‘tong luy thua la:’,Tluythua);
Readln
End.
Tham số hình thức
Biến cục bộ
Biến toàn cục
Procedure ve_hcn;
Begin
write(‘*********************’);
write(‘* *’);
write(‘* *’);
wirte(‘*********************’);
End;
Var a,b,c,d,Tluythua:real;
n,m,p,q:integer;
Function Luythua(x:real;k:integer):real;
Var tich:real;
j: integer;
begin
tich:=1;
for j:=1 to k do
tich:=tich*x;
Luythua:=tich;
end;
Begin
write(‘nhap a,b,c,d,n,m,p,q:’);
readln(a,b,c,d,n,m,p,q); Tluythua:=luythua(a,n)+luythua(b,m)+luythua(c,p)+luythua(d,q);
Writeln(‘tong luy thua la:’,Tluythua);
Readln
End.
Tham số thực sự