Chwơng trình con và phân loại - Thao giảng GVG tỉnh thái bình









Nhiệt liệt chào mừng
Các thầy cô giáo và các em học sinh đến với
Hội giảng G.V.D.G
năm học 2007 - 2008
Trường THPT Nam Tiền Hải
Huyện tiền hải tỉnh. Thái bình
Gv: Nguyễn Thị Nhung
Bộ môn: Tin học 11
GV : inh Nguyờn Thanh Tỳ (st) CENTEA Data cha rừ ngun gc
B i
19
Giáo án điện tử tin học lớp 11
Chương 6
Chương trình con và lập trình có cấu trúc


Để viết chương trình giải các bài toán lớn, phức tạp người lập trình có thể
chia thành nhiều bài toán nhỏ, mỗi bài toán là một dãy lệnh mô tả một số thao
tác nhất định (gọi là ctc). Sau đó ghép nối các chương trình con thành chương
trình chính.
Nhóm
trưởng

V
i
ệ
c

A
Vi c Bệ
1. Ch­¬ng tr×nh con (ctc)




Bài toán
Bài toán
: Viết chương trình tính tổng luỹ thừa sau:
: Viết chương trình tính tổng luỹ thừa sau:
Tluythua
Tluythua
=a
=a
n
n
+b
+b
m
m
+c
+c
p
p

+d
+d
q
q
Chương trình viết theo lỗi viết thông thư
ờng
Program Tinh_tong;
Var Tluythua, Luythua1, Luythua2,Luythua3,Luythua4:
real;
a,b,c,d: real;
m,n,p,q: integer;
Begin
write(Hay nhap du lieu theo thu tu a,b,c,d,n,m,p,q);
Readln(a,b,c,d,n,m,p,q);
Luythua1:=1.0;
For i := 1 to n do
Luythua1 : = Luythua1 * a;
Luythua2:=1.0;
For i := 1 to m do
Luythua2 : = Luythua2 * b;
Luythua3:=1.0;
For i := 1 to p do
Luythua3 : = Luythua3 * c;
Luythua4:=1.0;
For i := 1 to q do
Luythua4 : = Luythua4 * d;
Tluythua:=Luythua1+Luythua2+Luythua3+Luythua4;
Writeln(Tong luy thua =, Tluythua:8:2);
Readln
End.

Chương trình viết có sử dụng CTC
Program Tinh_tong;
Var Tluythua, a, b, c, d : real;
m,n,p,q: integer;
Funnction Luythua(x:real, k: integer): integer;
Var J: integer; Tich: real;
Begin
Tich:=1.0;
For j:= 1 to k do
Tich: = Tich * x;
Luythua: = Tich;
End;
Begin {Bắt đầu chương trình chính}
Write(Hay nhap du lieu theo thu tu a, b, c, d, n, m, p, q);
Readln(a, b, c, d, n, m, p, q);
Tluythua:= 0;
Tluythua := Luythua(a, n) + Luythua (b, m) + Luythua (c, p)
+Luythua (c, q);
Writeln(Tong luy thua =, Tluythua:8:2);
Readln
End.