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

B�i 3:
1. KHÁI NIỆM CTC
2. PHÂN LOẠI
a. Khái niệm
b. Lợi ích
3. CẤU TRÚC
PROGRAM tinh_tong;
Var a, b, c, d: real; m,n,p,q: integer;
TLT: real;

Function LT(x: real; k: integer) : real;
Var j: integer; tich: real;
Begin
Tich:= 1;
For i:= 1 to k do tich:= tich*x;
LT:=tich;
End;

BEGIN
Write (‘Nhap a, b, c, d, m, n, p, q ‘);
Readln(a, b, c, d, m, n, p, q);
TLT:=LT(a,n)+LT(b,m)+LT(c,p)+LT(d,q);
Writeln(‘Tong la: ‘, TLT: 8:4);
Readln
END.
PROGRAM tinh_tong;
Var a, b, c, d: real;
LT1, LT2, LT3, LT4, TLT: real;
i, m, n, p, q: integer;
BEGIN
Write (‘Nhap a, b, c, d, m, n, p, q ‘);
Readln(a, b, c, d, m, n, p, q);










LT:= LT1+ LT2 + LT3 + LT4;
Writeln(‘Tong la: ‘, TLT: 8:4); Readln
END.
LT1:=1;
For i:= 1 to n do LT1:= LT1*a;
LT2:=1;
For i:= 1 to m do LT2:= LT2*b;
LT3:=1;
For i:= 1 to p do LT3:= LT3*c;
LT4:=1;
For i:= 1 to q do LT4:= LT4*d;