%----------------------------------------------------------%
Mdulos:%----------------------------------------------------------modulo
parametrosctereal: D0 = 0.3, Drot = 0.0025, Rot = 105, Dal =
0.01fim
modulo%----------------------------------------------------------%
Subrotinas
:%----------------------------------------------------------subrotina
R(L,RESP)varreal: RESPiniciouse parametrosRESP = D0 +
Drot*Rot+Dal*Lfim subrotinasubrotina S(Sant,L,Rpos,R,RESP)ctereal:
Sant,L,Rpos,Rvar real: RESPinicioRESP = Sant + L + Rpos - Rfim
subrotina%----------------------------------------------------------%
Programa
Principal:%----------------------------------------------------------programa
CSTRcteint: nMAX = 100varint: n,ireal:
F,L(nMAX),S(nMax),R(nMAX+1)iniciouse parametrosescreva('Digite o
nmero de zonas (Maxio de ',nMAX,' zonas)' )leia(n)leia(F)para i de
1 ate nleia( L(i) )fim para R(1) = 0R(n+1) = 0para i de 2 ate
nchame R(L(i),R(i))fim paraS(1) = F + L(1) + R(2)para i de 2 ate
nchame S(S(i-1),L(i),R(i+1),R(i),S(i))fim paraescreva('Tabela de
vazoes de saida do reator CSTR, para')escreva('D0 = 0.3, Drot =
0.0025, Rot = 105, Dal = 0.01')para i de 1 ate nescreva('S(' ,i, ')
= ' S(i))fim parafim programa
