CHƯƠNG TRÌNH CON VÀ PHÂN LOẠI

program tinh_tong;
var TLuythua, Luythua1, Luythua2, Luythua3, Luythua4: real;
a,b,c,d: real;
i,n,m,p,q:integer;
begin
write(`Hay nhap du lieu theo thu tu a,b,c,d,m,n,p,q’);
readln(a,b,c,d,m,n,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

TLuythua:= Luythua1 +Luythua2+ Luythua3+Luythua4;
writeln(`Tong luy thua = `, TLuythua 8:4);
Readln end.
Luythua3:=1.0;
for i:=1 to p do
Luythua3:=Luythua3*c;
{******************}
Luythua4:=1.0;
for i:=1 to q do
Luythua4:=Luythua4*d;
program tinh_tong;
var Tluythua: real;
a,b,c,d: real; i,n,m,p,q:integer;
Function lt(x:real; k:integer;):real;
Var i:integer;
Begin
luythua:=1.0;
for i:=1 to k do
luythua:=luythua*x;
lt:=luythua;
End;
begin
write(`Hay nhap du lieu theo thu tu a,b,c,d,m,n,p,q’);
readln(a,b,c,d,m,n,p,q);
TLuythua:= Lt(a,m) +Lt(b,n)+ Lt(c,p)+Lt(d,q);
writeln(`Tong luy thua = `, TLuythua 8:4);
Readln end.