) IF HouveErro THEN EXINParList(3).RealHouveErro=-1:EXIr.Real=NParList( VCtd(i%).Real=3.14159265358979DECLARE FUNCTION T FUNCTION NParList(4). $=UCASE$(LEF r.Real=r.R +NParList(i% VCtd(i%).I MID$(ParList $(ParList(i% END IF CA (a#*a#+b#*b# NParList(i%) (ParList(i%) NParList(1)  FUNCTION AS DOUBTHEN exp$(exp$) $>="A" A=r.Real*d# r.Im FOR i%%=INSTR().Real T$(exp$,1)) IF =0 THEN  END IF NEXT Retrieve r.Imag r.Real" THEN #=NParLiH#(b#) H#(a#)*$=AllTri IF LEFParList( CASE " AS INTEHouveErr1 ELSEIAllTrim$":r.Real:r.Imag=ArcTCalc IF ND zEND r.Im(eal0 THEN ?invaido"ModoparaVFn( TO VCtd).ReBloc$) r.Re THEz$="EXIT).Im(i%)%,1)SUB Attr(Varexprb# k%>2" OR" ANVAL(PareLEFT NE(a#CASE a#(b#)MID$k%+1)) AS S RIGVNamvar$mag$(OpRealag=-=t#*(a#) DIIC EN  exp(exp$(bl$,1)THENParLLTRIRTRI$,w%PoinIF ELSE%+1),LENexp$LEN IF" TH var") %=0 (ParImag t#SQR() 1)="$="Op$*c#  ip *ASpqG,relF EN) M$Fg#F F-1)LEF $, "  %-1 nUBSUB%)OOR,}Q-1F UCNT$k$SzZ"n$Ut( Op$k%nt D="3)=4),Z.[t(8 "ea "r.c#=1`ea9S(SINal=RND=a#=b0 .5r.# XTd#+=a#k$(z$,FOR$) =2*SIN128  bm$(i%VAL#)o= F ter #  M5 ( 5g#(xLE,yLE)($=67z8$(9(c#-:ag*agr( 7=0 OR R;=<="Parametro >l?:@=0:(de%=c#:A%(= b$=BRe(al) a%=de%CA% D(a%(Eal=i% z$=FbGk";( 1Eal=2Ck(HalIN i%NE$ z  J@$%! K "#IF$Ck% eal ).R <="Z" $=$ 0 mag %=:ag Lap$T 1 7 M,jNOPibQn$,R.5*3# E?:T S&%=S# 7TIN=GU(J-VD WW'Xnt%=X Y),1)) 7nd(st(ZXTSE=LOG)/2 [)*Cos):[)*Sin)\]a#:bSd#*COS^ :*^ \W_(`a% 7.R(1C)bTR9 7J*"IN )="{VDcHT$deM=e) flk+,Tg$,1-1C16)IN -( ().h.If:iS\&jCO%jSISQR).5*a#/(t#*t#aSE "k/ag=^/d#.S LE lM SHARED o/GER 0m !7 qk7 s Fk$= THntis 1)=uM$(MI =vM$(Y w-1ak%   c(s c#%=b T& INT3= 3 =5g(a#,b# &= &=Sin NEXT. OR3=a c#4bx$H#(n#) DECLARE DoComman F 6$(O AllTrim$$Qn$) ComplexbTRIN/@=0+LOOP N REM $2ND yEz ) 9IT$(e,'$,i{ |pW}"~p$_pN =e de de(i#IN ?,Bi%)=,";I%>"Z"Nomia>l ,=g(exJO= OR=""IF i%>"Limitiveis exced1-$|IF P$),2))="Chamada recursiva,i(";;") no foi criadasy.ExLSE k}kk%/(IF (RIGH1))="I=/=0. " ExND SUB k0R"{HR"}" bloc funo: 0$,2|azr) ,blk$T8 T$FUNCTIOvMDl OG-|"- "+P$,21)<>"@ ERROR 100 (2zFlM 2N2,r ASw}" kw% VDWX=1r$=) w%= $=$,w(L)M,Pa w%<)k%+VD$)W$X=yOu(J WHILE)="(=LENY) l z%-(l%+) IF1 lIFz%w2,z%-2)) Oum%nrY,5En*"3)-r"rND nrY-Y"Y=5=INSTRYz z{)ERtist]=6#=722SELECT CC"-=-SOMA+\#+d3lg]-\#-d#MUL]gb#*c3 Ti%i%DIV md=(a##)/mg=(b#a)/m#DIV^a#\RESTO_MOD FATORIAL a#>1 Ca#l*i%POT x#! y#a#y y+y#*c#(x2y2:N(y2#)SGNSORT=ʡʙMOD;^6)7)REIMAG#INV#CONJ:QUADa#-b2*aRQ=;t#<>+<-H#?ENHc%os&SH=Cos%ag=&NH$=+COScH#>?OMAT")l++'dPRODUTc#= d#='a#dMIN;EDIA T l/k%g/k%ZXTy= HouveErro=-1:?"Varivel (";v$;")$(exp$) IF HouveErro THEN E IF HouveErro THEN EXIT SUB exp$=LTRIM$(STR$(VAL(exp$)=1 TO 128 IF VName(i%)= ELSEIF LEFT$(uc$,EXIT FOR NEXT $) IF HouveErro ELSEIF LEFT$(u SU ( FOR i%=1 ("0123456789 THEN MPLine T$(exp$,1)) MPLines IF THEN EXIT F NParList(3). :HouveErro=- $=LTRIM$(MID LTRIM$(STR$( END IF EL VCtd(i%).Rea VCtd(j%+1). V129=0 THEN  AttribIF INSTR%>MPLine$=UCASE$" THEN XIT SUB LSEIF i$ VAL(expHEN expVName(i%"" THEN EXIT FORProg(i%)LEFT$(uc FOR i%VCtd(i%) variave-(c#,d#) ELSEIF FUNCTIO Modo=0 THEN exDoComman$=AllTri END IFd# CASESEIF uc$NParList":r.Real#:r.Imag$=MID$( Gd#)c# OR ).ReModoBloc$) $,i%1) $)TH ELS%=VA IF s=l%Prog()) (LEF$>="" AN$<="exp$Retr" ORCalc$(ex THEf$="AtuaVAL(FOR i%=1<>""$,LE(uc$emen LI(a#,EXIT EL$(CoTRIM=1 TLEN( ex$(MI LO NE))+"RIGHVNam$(ucLEFT2)="eal= ? CA;0i ComdAO") IF)="" ?" con CND ) "SE] "A# ` "N1l:aga=n(c) ENIFR0f(6o%). g(j6in$,(HN qs  ne  LthnENT#d$,,xTR-1 -.=" n{ MID+1)/)= ?ni=iWda?l=RAvar"="[ab?(@,A ",xBn($=n$+x$CE lDL(n$) (Els F G)H DO iI f$=UCA(IF iJAKD iLZM=Nie(ve E(O(i$="-KD $)=0)T(!$=PQpRN( E E="{KD S}"RN( M=>kH IF BTl=UM)-1 E(Vi%""( E")=#W29:$  %X T(v$=&YNZ)-2)'(v$OR(R ( (.R(RN  n(cr[ta em 1 a parte real da)l <$A\NE]*,R;=^ $_SE))$RN))+$+01:^,N1-_SE T!`md$%.Ra$ITQpR arq$(u)<>#/d Pro n$="'bO c-dp0meD`m ^ DO1fOP gXTc$h.GLP OParq$ V],c#,2  P$= END,REM 4 uc$="FIMKD ==SE$(i LSE /d M 37OR j=Rea#=0;4(4(4  executapq> ou vairn 5=a# c6=b  s_t %=l1u l2% EG ?x7=LaeD$ DL(v(u wZ,   EL3=" YN(M)- dp7\NE xT Eyi%)  (.Ima  =:s Ei%= z{| PUT AS #1 i ?"Li ". o numric r}"256b#~SE~SE "xT$(1 v$=VNa)+" FUNCTION4'gXT  zexi($&%)) E%=0RN%0R+  kwST$(M,$=CHR$(3$(M1"DIGITE $"(i%:je(j% VCtd(jyj%+1CLOSE #1a tela ] -tinuvar}"AOpma}" =NOTtIF aR r.RnCr.ImImag]ARIRCf$=VFReU))THE^;#parapassl1%=l2%=u STEVsCASE (";$;")=hICosHEXP(q@$,1)Pk="DEc$,5)0 ANMPLi XLIMP N,thnXIT Q$,k%ELSEels%i1)="EA)THEM$="*S" "+$,8) Scrni;"y,7)==0 j%)=AHTIRPA"VET(var|sta ?" OR IMPEQVealLININTme(IF i%)R 5).steND t$=) c$,l1% l2 OUEXC@XORX@ @ NAO^ a_ #c_=d#E=BaPONTO PSET,c#HaCAIX,BaPPA'"ULO LE'"COORDENADAS WINDOW*COLCATE a#,TECLA^=ASC(b))aITER c23 bc#)B3=0N'p/ir mais rapidoCc3)>c$ 4(d eaREPETI2ade%=c#:%=3 f(:g=de %P h5dlDEl%ei E:?"OperadorOp":=0SELECT(r.))+7)$STATe #(n#=.5*(n#)+-n#)))$DYNAMSUB DoComk uclk m ",1!F8))8co$"*)L "uc$Lol1HxI",")+1 l2xp<11x%>Dr Jl2%<iD s=" g=s1P-1sKs=i%:4LARoCLSSAIRO+tSYSTEMu+1"3)=oI"v rFalta'ENTAO'" elsI4%-4  B$ IFw$)%+5))(Up$),v k ,+5?o?8m? "3nn%=y;nM1iz4)fz4NN,2,c)-2 DOu io=Pointer B (,";"k%>07p)u I"i""i|$ =n%?; ?}"O x$h ,x$ 5)="MODO oScr6SCREEN%r WIDTH 80VARIAVEIS ~);"=";P="onr=Ql Rgr=D ni<>t?u t?nr_?nr;";";SSE ?|%"APAGAR ov9v 0eVFnQl=0:RgCW128)=v$Nj%=i 1270e(+1)%T%).T )i+":UU~|V129?"Varivel v"IF*)="LE&INX%sDO WHILE NOT EOF(i%=i%+1O #1,l$ l0m$(l$)!lFl8(l$,iplKFOP "GRAVA8&OUTX%=0#15)+siEXECo=11JG(llFO"c$" olHc)E)="Y,";l;" chao ";l% l%-1LISTAR"USING "#### &";i%;s%,6)=o9$,7)T$="]oiw$,"[")N+=lpMzlIy1)z$Z{zJA" zLZZNievek%bOw$:)+k%]","0SSEm(ukI:uc),v;++u n|+1u;--o {P-1COMANDOSYde coos :-Limpa ?"? [>] [;Exibe expao n- ; par na mesma}< -P e de">=>-Atribui um > a>[Cria um vetor > com el[tosd> 1ha1> [SEN2Teadicao de verdadeira (nao-zero),>o1?ha1enao>o2?\ -Vai a\>++-Ineione alguma tecla p/ FOR i%=1 T EXIT FUNCTIO  , LTRIM$(STR$(  r ... a de varis numeroINPUT$(1 END IFFUNCTION ?" -D,, HiperboOperador ?"Para$=LEFT$(a o prog variave program ELSEIF operadoarte reaRetrieve$= " THE THEN  r>  ? ress concompando THEVari exivar$ IFVNam(i%)CLS  , apaa umCASEarq>rama um ele a <sultmand NE x$= - blocnteiLEN( inSOMDIVa"@ari (sdeK aL da *+="O?" ei a  g.@R@ R"@SroUira. b>@Eo HMINMAXATUTo,a))@aesIMP"@fneos deorRh CT4ar ? : oE : i  e'a  .B BSE IF;N$((,)D ?="""6$= ?"ste128) ,i%stamais gar -adoa   0>-- -Deva ?Pa b)LER <! (!P"#tinu(imo o s ($ar% pela p(&N ?"'vel no( (";);")": O * +e,= $= -A./0o10o ? N *  23d4m%5 6D   7=8()+12 9s 2: as;E?inh >> de@Aos5 nAo $B,... NC lico5!eD o => ArmazenE$=UF$(AllTrim varvar gram >D (n< 5Apaga asiIa o GLP-CNC ?  uc$ res pl  JvK l o reLIa :DoComM "  cri avel HouveErro=-1   N RIGHT$(), O"++"& N expN p%=p 1 n$G5a memori5ELISTAR Pha1>,Pha2KQVARIAVEI DgRornao prompt, terminOPERADOR"ros5@Sz ?TnumeSE.ndUdadeVul:sWoresFATORIAL>...5@X5 *,>5do5 )5@OU.ord>5@LINYDefi 5> Qas '9S F  d2nh! CASum ZoPo[roi Pointer$$$(Varn$)\))* z$XT* iarreGRAVAR < no xecu queea ??" List5a[ga do]e ume se#APAG antecao nciaa de@^ ^SUBTMULT@_ _isao INTRESTta `INformSINAQUADo doREALIMAGa`COSORTorio cometorabobMEDIatS  SEN@COSC@TANPRODpc>,*<Zs res , e o n, a VAL()dSELEFguid Ex:Pc@SomTP.ex6 ELx82dOV)7-1) " AN))+"p%=0&VFn(i%)=SinH(n#)ivoa1>a2>var, e?"@ em o radte  I ]gpa"a ihi %ga jg E>%iciokiE>DjklBxib &umun/*>'roIJl'r *ItodaspFIMFur a eq),rs*"NLncerrt"SAIRBm qualquer circunMtuNESv,:- NegatAA wrai@umePwipX ?"wiINT Q>xra da-@OO da div descricimTyTransz{xPLRet.s{@ o|QRaiz Quad"@MODyMODul}~~inRVNVeras-=ag.RNJ CONJug eia aleatpB}T>,Q> T>a,rn1> sena2>}AVa A metic 2WX}YZ Yn@POT POTe:/@LLogmo NaturalXP funEXPonel: e/xYe=2.718[SE e@SENHe\@?" / @],<v^VoAT|oriLod> vn_ ara>lacionaO`r .. K -1[IGUAL. =<@MAI>MEN<) log :. E (ANDb.OU (ORbEXCc OU EXClus (XORc\@EQVcEQuiVale}eHCAIXPINTARd, RecormbordORDENADAS/>1 osX do canto sup.esq. f.dir.eCO?0 LINha e COLuna`res:}g e p/ auir1g p/2l}A guardap"iona A eK seu ASCII>[,*] ITERa> vezes og e1vai p/o ;usndJR.oMa.K.iteracoes feitos|EPETIR]>,>,t> passsideh j uAJUDAv1)-Coms2)-3)-ProgHs4)-ks5)-EscolhEa op:"; a%= - a% 13COMANDOl23NEl3jas:Figiteϧma, seomj" .10 LimparumaWi: DELn lir ojaC?" sal~ARn c}) : LER4ks:Nome5: deviciar c/ letr"Tipos5-NA na za;b a=1;3-Bloc:ula e' calculinsthchama_ b={a,4}nUp&:lvveARv :VETOR-V e'um grupoJismesmo nome as de entr4lchetes. : A[1],A[2] e A[3]Oba:Se2l (por ex. A)p,=A fazm3p igual aoa. receba1 n o A, usa-se=@ A5:qs: (simbolo *)Um pohr posiq2l, n aA = 4 ;-2r*AK 1B = -3; 4r*BK 2C = 3r*CK 3 qs sao us,como R e D CoMvlido":6sD SUB REM $STATIC t u(x$ $((x$,2)))xvu=7i%8N9XTwx x:"--" OR!$,y)-"" ELSE"@Subt="Az$<="Z=w$(!$)+7]O yni%,1)* n$="(>%+)>%-=N EXIT FOR9|%<=y)THEN z At ,svIF N<.Real;"+.Imagi<i%)s+e(:8NN|%>#" #=.5*(EXP-EXP(-n#END t