PRACTICA Nº1 CARACTERISTICAS_PERSONALES; ALES; PROGRAM CARACTERISTICAS_PERSON USES FORMS,DIALOGS,SYSUTILS; BEGIN
SHOWMESSAGE( 'HOLA ME LLAMO ADALIT MARQUEZ'+#13+'TENGO HERMANOS'!; SHOWMESSAGE( 'ESTUDIO EN LA UMSS'+#13+'ESTOY EN " SEMESTRE'!; SHOWMESSAGE( '$I$O EN COCHA%AM%A'+#13+'TENGO 1& AOS'+#13+'ESOY SOLTERO'!; SHOWMESSAGE( 'MIDO 1)* '+#13+'SOY MORENO'!; SHOWMESSAGE( 'ME GUSTA LA MUSICA ELECTRONICA'+#13+'ME GUSTA CANTAR'!; SHOWMESSAGE( 'ME GUSTA EL RAP'+#13+'ME GUSTA EL REGUETON'!; SHOWMESSAGE( 'UEGO FUTSAL LOS SA%ADOS'+#13+'ESTUDIO SA%ADOS'+#13+'EST UDIO 3 HORAS AL DIA'!; SHOWMESSAGE( 'CREO EN DIOS'+#13+'ME GUSTA LA MUSICA CRISTIANA'!; SHOWMESSAGE( 'MI CUMPLEAOS ES EL 1- DE ULIO'+#13+'$I$O EN E N ALQUILER'!; ALQUILER'!; SHOWMESSAGE( 'ME GUSTA LA PLANCHITA'+#13+'ME GUSTA EL PIQUE MACHO'!; SHOWMESSAGE( 'NO ME GUSTA QUE ME MIENTAN'+#13+'NO ME GUSTA EL TOMATE'!; SHOWMESSAGE( 'ME GUSTA LO PICANTE'+#13+'ME GUSTA UGAR %ASQUET'!; SHOWMESSAGE( 'ACTUALMENTE $I$O SOLO'+#13+'SOY SOLO'+#13+'SO Y ALEGRE'!; END.
PRÁCTICA PRÁCTIC A Nº 2 ./0" U/0"1; 0/"245 .66 W0/786, M66496, S:6U"06, S:6U"06, $4204/"6, $4204/"6, C4666, G24<=056, C/"26, F26, F26, D0496, S"7C"26; ":< TF21 > 5466(TF2! 5466(TF2! L4?1@ TL4?; L4?-@ TL4?; L4?3@ TL4?; L4?@ TL4?; L4?@ TL4?; L4?)@ TL4?; L4?*@ TL4?; L4?B@ TL4?; L4?&@ TL4?; L4?1@ TL4?; L4?11@ L4?11@ TL4?; L4?1-@ TL4?; E70"1@ TE70"; E70"-@ TE70"; E70"3@ TE70"; E70"@ TE70"; E70"@ TE70"; E70")@ TE70"; E70"*@ TE70"; E70"B@ TE70"; E70"&@ TE70";
E70"1@ TE70"; E70"11@ TE70"; L4?13@ TL4?; E70"1-@ TE70"; %.""/1@ T%.""/; %.""/-@ T%.""/; <257.2 %.""/1C05(S/72@ TO?5"!; <257.2 %.""/-C05(S/72@ TO?5"!; <204" P204" 75424"0/6 <.?05 P.?05 75424"0/6 /7; 42 F21@ TF21; 0</"4"0/ R J7 <257.2 TF21%.""/1C05(S/72@ TO?5"!; $AR $A R A,%,C,D,E,F,G,H A,%,C,D,E,F,G,H,K,Y ,K,Y,,Z,MENOR@DOU%LE; ?90/ A@>STRTOFLOAT(EDIT1T A@>STRTOFLOAT(EDIT1T" "!; !; %@>STRTOFLOAT(EDIT-T"!; C@>STRTOFLOAT(EDIT3T"!; D@>STRTOFLOAT(EDITT"!; E@>STRTOFLOAT(EDITT"!; F@>STRTOFLOAT(EDIT)T"!; G@>STRTOFLOAT(EDIT*T"!; H@>STRTOFLOAT(EDITBT"!; K@>STRTOFLOAT(EDIT&T"!; Y@>STRTOFLOAT(EDIT1T"!; Z@>STRTOFLOAT(EDIT11T"!; MENOR@>A; IF (%MENOR! THEN %EGIN MENOR@>%; END; IF (CMENOR! THEN %EGIN MENOR@>C; END; IF (DMENOR!THEN %EGIN MENOR@>D; END; IF (EMENOR! THEN %EGIN MENOR@>E; END; IF (FMENOR! THEN
%EGIN MENOR@>F; END; IF (GMENOR! THEN %EGIN MENOR@>G; END; IF (HMENOR! THEN %EGIN MENOR@>H; END; IF (KMENOR! THEN %EGIN MENOR@>K; END; IF (YMENOR! THEN %EGIN MENOR@>Y; END; IF (ZMENOR! THEN %EGIN MENOR@>Z; END; EDIT1-T"@>FLOATTOSTR(MENOR!; /7; <257.2 TF21%.""/-C05(S/72@ TO?5"!; ?90/ CLOSE /7; /7
PRÁCTICA PRÁCTIC A Nº 3 ./0" U/0"1; 0/"245 .66 W0/786, M66496, S:6U"06, S:6U"06, $4204/"6, $4204/"6, C4666, G24<=056, C/"26, F26, F26, D0496, S"7C"26, %.""/6; ":< TF21 > 5466(TF2! 5466(TF2! L4?1@ TL4?; G2.<%1@ TG2.<%; L4?-@ TL4?; L4?3@ TL4?; E70"1@ TE70"; E70"-@ TE70"; L4?@ TL4?; E70"3@ TE70"; %0"%"/1@ T%0"%"/; %0"%"/-@ T%0"%"/; <257.2 %0"%"/1C05(S/72@ TO?5"!; <204" P204" 75424"0/6 <.?05 P.?05 75424"0/6 /7; 42 F21@ TF21; 0</"4"0/ R J7 <257.2 TF21%0"%"/1C05(S/72@ TO?5"!; $AR $A R TARIFA,NHORAS,S%,S%1,S%-,DIF,SNETO,DIFS%@REAL; ?90/ TARIFA@>STRTOFLOAT(EDIT1T"!; NHORAS@>STRTOFLOAT(EDIT-T"!; IF (NHORAS3! THEN %EGIN DIF@>NHORAS3; S%1@>3JTARIFA; S%-@>DIFJ1JTARIFA; S%@>S%1+S%-; END ELSE %EGIN S%@>TARIFAJNHORAS; END;
IF (S%) ! THEN %EGIN DIFS%@>S%); IF(DIFS%!THEN %EGIN SNETO@>JB*+(DIFS%!J+); END ELSE %EGIN SNETO@>DIFS%JB*+); END; END ELSE %EGIN SNETO@>S%; END; EDIT3T"@>FLOATTOSTR(SNETO!; /7; /7
PRÁCTICA PRÁCTIC A Nº 4 ./0" U/0"1; 0/"245 .66 W0/786, M66496, S:6U"06, S:6U"06, $4204/"6, $4204/"6, C4666, G24<=056, C/"26, F26, F26, D0496, S"7C"26, S"7C"26, %.""/6, %.""/6, E"C"26; E"C"26; ":< TF21 > 5466(TF2! 5466(TF2! L4?1@ TL4?; L4?-@ TL4?; L4?3@ TL4?; L4?@ TL4?; L4?@ TL4?; L4?)@ TL4?; E70"1@ TE70"; E70"-@ TE70"; E70"3@ TE70"; E70"@ TE70"; E70"@ TE70"; %0"%"/1@ T%0"%"/; %0"%"/-@ T%0"%"/; T021@ TT02; L4?*@ TL4?; <257.2 %0"%"/1C05(S/72@ TO?5"!; <257.2 T021T02(S/72@ T021T02(S/72@ TO?5"!; <204" P204" 75424"0/6 <.?05 P.?05 75424"0/6 /7; 42 F21@ TF21; 0</"4"0/ R J7 <257.2 TF21%0"%"/1C05(S/72@ TO?5"!; ?90/ 0((L82C46(E70"1T" 0((L82C46(E70"1T"!>'4740"'!4/7(L82C46(E70"T !>'4740"'!4/7(L82C46(E70"T"!>'1-'!!"=/ "!>'1-'!!"=/ ?90/ 0((L82C46(E70"-T" 0((L82C46(E70"-T"!>'42.'!4/7(L82C46(E70"T !>'42.'!4/7(L82C46(E70"T"!>'&)'!!"=/ "!>'&)'!!"=/ ?90/ 0((L82C46(E70"3T"!>'4"4/450'!!"=/ ?90/ T021E/4?7@>46; M6649D9('%IEN$ENIDO LOGRO ENTRAR AL SISTEMA',"0/24"0/,?O SISTEMA',"0/24"0/,?O,1!; ,1!; 56
/7 /7 /7 6 0 F21T49 "=/ 6=86649('CONTRASEA INCORRECTA INCORRECTA INTENTE DE NUE$O'!; 0 F21T49> "=/ ?90/ T021E/4?7@>46; L4?*C4<"0/@>''; M6649D9('SE LE TERMINO LAS OPORTUNIDADES', "842/0/9,M?O,1!; 56 /7 6 F21T49@>F21T49+1; 70"1SS"42"@>; 70"1SL/9"=@>/9"=(70"1""!; 70"1S"F5.6; /7; <257.2 TF21T021T02(S/72@ TF21T021T02(S/72@ TO?5"!; ?90/ 4?*C4<"0/@>'LE RESTAN@ '+I/"TS"2 (T021T49!+' SEGUNDOS'; T021T49@>T021T491; 0 T021T49> T021T49> "=/ ?90/ T021E/4?7@>46; L4?*C4<"0/@>''; S=86649('SU TIEMPO ACA%O INTENTE DESPUES'!; 56 /7; /7; /7
PRÁCTICA PRÁCTIC A Nº 5 ./0" U/0"1; 0/"245 .66 W0/786, M66496, S:6U"06, S:6U"06, $4204/"6, $4204/"6, C4666, G24<=056, C/"26, F26, F26, D0496, S"7C"26; ":< TF21 > 5466(TF2! 5466(TF2! L4?1@ TL4?; G2.<%1@ TG2.<%; L4?-@ TL4?; L4?3@ TL4?; L4?@ TL4?; L4?@ TL4?; L4?)@ TL4?; E70"1@ TE70"; E70"-@ TE70"; E70"3@ TE70"; E70"@ TE70"; E70"@ TE70"; <257.2 E70"1:P266(S/72@ TO?5"; 42 :@ C=42!; <257.2 E70"-:P266(S/72@ TO?5"; 42 :@ C=42!; <257.2 E70"3:P266(S/72@ TO?5"; 42 :@ C=42!; <257.2 E70":P266(S/72@ TO?5"; 42 :@ C=42!; <257.2 E70":P266(S/72@ TO?5"; 42 :@ C=42!; <204" P204" 75424"0/6 <.?05 P.?05 75424"0/6 /7; 42 F21@ TF21; 0</"4"0/ R J7 <257.2 TF21E70"1:P266(S/72@ TO?5"; 42 :@ C=42!; $AR $A R 9_C-,T_-,0<_P0-,L?_P.9-,0<_P.9-@DOU%LE; ?90/ IF (EY>#13! THEN %EGIN 9_C-@>STRTOFLOAT(EDIT1TEKT!; T_-@>9_C-J1; 0<_P0-@>9_C-J-&; L?_P.9-@>9_C-J1--; 0<_P.9-@>9_C-J1-;
EDIT-T"@>FLOATTOSTR(T_-!; EDIT3T"@>FLOATTOSTR(0<_P0-!; EDITT"@>FLOATTOSTR(L?_P.9-!; EDITT"@>FLOATTOSTR(0<_P.9-!; END; /7; <257.2 TF21E70"-:P266(S/72@ TO?5"; 42 :@ C=42!; $AR $A R 9_C-,T_-,0<_P0-,L?_P.9-,0<_P.9-@DOU%LE; ?90/ IF (EY>#13! THEN %EGIN T_-@>STRTOFLOAT(EDIT-TEKT!; 9_C-@>T_-J1; 0<_P0-@>T_-J- ; L?_P.9-@>T_-J1-; 0<_P.9-@>T_-J1- ; EDIT1T"@>FLOATTOSTR(9_C-!; EDIT3T"@>FLOATTOSTR(0<_P0-!; EDITT"@>FLOATTOSTR(L?_P.9-!; EDITT"@>FLOATTOSTR(0<_P.9-!; END; /7; <257.2 TF21E70"3:P266(S/72@ TO?5"; 42 :@ C=42!; $AR $A R 9_C-,T_-,0<_P0-,L?_P.9-,0<_P.9-@DOU%LE; ?90/ IF (EY>#13! THEN %EGIN 0<_P0-@>STRTOFLOAT(EDIT3TEKT!; 9_C-@>0<_P0-JBB; T_-@>0<_P0-JBB; L?_P.9-@>0<_P0-J)&; 0<_P.9-@>0<_P0-J)&; EDIT1T"@>FLOATTOSTR(9_C-!; EDIT-T"@>FLOATTOSTR(T_-!; EDITT"@>FLOATTOSTR(L?_P.9-!; EDITT"@>FLOATTOSTR(0<_P.9-!; END; /7; <257.2 TF21E70":P266(S/72@ TO?5"; 42 :@ C=42!; $AR $A R 9_C-,T_-,0<_P0-,L?_P.9-,0<_P.9-@DOU%LE; ?90/ IF (EY>#13! THEN %EGIN L?_P.9-@>STRTOFLOAT(EDITTEKT!; 9_C-@>L?_P.9-J*3;
T_-@>L?_P.9-J*3; 0<_P0-@>L?_P.9-J1; 0<_P.9-@>L?_P.9-J1; EDIT1T"@>FLOATTOSTR(9_C-!; EDIT-T"@>FLOATTOSTR(T_-!; EDIT3T"@>FLOATTOSTR(0<_P0-!; EDITT"@>FLOATTOSTR(0<_P.9-!; END; /7; <257.2 TF21E70":P266(S/72@ TO?5"; 42 :@ C=42!; $AR $A R 9_C-,T_-,0<_P0-,L?_P.9-,0<_P.9-@DOU%LE; ?90/ IF (EY>#13! THEN %EGIN 0<_P.9-@>STRTOFLOAT(EDITTEKT!; 9_C-@>0<_P.9-J*-&; T_-@>0<_P.9-J*-&; 0<_P0-@>0<_P.9-J1; L?_P.9-@>0<_P.9-J1; EDIT1T"@>FLOATTOSTR(9_C-!; EDIT-T"@>FLOATTOSTR(T_-!; EDIT3T"@>FLOATTOSTR(0<_P0-!; EDITT"@>FLOATTOSTR(L?_P.9-!; END; /7; /7
PRÁCTICA PRÁCTIC A Nº 6 ./0" U/0"1; 0/"245 .66 W0/786, M66496, S:6U"06, S:6U"06, $4204/"6, $4204/"6, C4666, G24<=056, C/"26, F26, F26, D0496, S"7C"26; ":< TF21 > 5466(TF2! 5466(TF2! L4?1@ TL4?; E70"1@ TE70"; G2.<%1@ TG2.<%; L4?-@ TL4?; L4?3@ TL4?; <257.2 E70"1:P266(S/72@ TO?5"; 42 :@ C=42!; <204" P204" 75424"0/6 <.?05 P.?05 75424"0/6 /7; 42 F21@ TF21; 0</"4"0/ R J7 <257.2 TF21E70"1:P266(S/72@ TO?5"; 42 :@ C=42!; $AR $A R K,R,ANT,DIF@REAL; ?90/ IF (EY>#13! THEN %EGIN K@>STRTOFLOAT(EDIT1T"!; R@>K11; REPEAT ANT@>R; R@>(ANT+K(ANTJANTJANTJANTJANTJANTJANTJANTJANTJANT!!11; DIF@>A%S(KRJRJRJRJRJRJRJRJRJRJR! UNTIL (DIF1E)!; LA%EL-C4<"0/@>'R> '+FLOATTOSTR(R!; '+FLOATTOSTR(R!; END; /7; /7
PRÁCTICA PRÁCTIC A Nº 7 ./0" U/0"1; 0/"245 .66 W0/786, M66496, S:6U"06, S:6U"06, $4204/"6, $4204/"6, C4666, G24<=056, C/"26, F26, F26, D0496, S"7C"26, %.""/6; ":< TF21 > 5466(TF2! 5466(TF2! L4?1@ TL4?; L4?-@ TL4?; L4?3@ TL4?; L4?@ TL4?; G2.<%1@ TG2.<%; L4?@ TL4?; E70"@ TE70"; E70"1@ TE70"; E70"-@ TE70"; E70"3@ TE70"; %0"%"/1@ T%0"%"/; %0"%"/-@ T%0"%"/; <257.2 E70"1:P266(S/72@ TO?5"; 42 :@ C=42!; <257.2 E70"-:P266(S/72@ TO?5"; 42 :@ C=42!; <257.2 E70"3:P266(S/72@ TO?5"; 42 :@ C=42!; <257.2 %0"%"/1C05(S/72@ TO?5"!; <204" P204" 75424"0/6 <.?05 P.?05 75424"0/6 /7; 42 F21@ TF21; 0</"4"0/ R J7 <257.2 TF21E70"1:P266(S/72@ TO?5"; 42 :@ C=42!; ?90/ IF EY>#13 THEN EDIT-S"F5.6; IF NOT ( EY IN'''&',',',#B! THEN THEN EY@># /7; <257.2 TF21E70"-:P266(S/72@ TO?5"; 42 :@ C=42!; ?90/
IF EY>#13 THEN EDIT3S"F5.6; IF NOT ( EY IN'''&',',',#B! THEN THEN EY@># /7; <257.2 TF21E70"3:P266(S/72@ TO?5"; 42 :@ C=42!; ?90/ IF EY>#13 THEN EDITS"F5.6; IF NOT ( EY IN'''&',',',#B! THEN THEN EY@># /7; <257.2 TF21%0"%"/1C05(S/72@ TO?5"!; $AR $A R $,T0,Y,Y@REAL; ?90/ $@>STRTOFLOAT(EDIT1TEKT!; T0@>STRTOFLOAT(EDIT-TEKT!; Y@>STRTOFLOAT(EDIT3TEKT!; YF@>$JT0+Y(J&B!JSQR(T0!; EDITT"@>FLOATTOSTR(Y!; /7; /7
PRÁCTICA PRÁCTIC A Nº 8 ./0" U/0"1; 0/"245 .66 W0/786, M66496, S:6U"06, S:6U"06, $4204/"6, $4204/"6, C4666, G24<=056, C/"26, F26, F26, D0496, G2076, S"7C"26; ":< TF21 > 5466(TF2! 5466(TF2! L4?1@ TL4?; E70"1@ TE70"; S"20/9G2071@ TS"20/9G207; <257.2 F2C24"(S/72@ TO?5"!; <257.2 F2A5"04"(S/72@ TO?5"!; <257.2 F2R60(S/72@ TO?5"!; <257.2 E70"1:P266(S/72@ TO?5"; 42 :@ C=42!; <204" P204" 75424"0/6 <.?05 P.?05 75424"0/6 /7; 42 F21@ TF21; 0</"4"0/ R J7 TYPE MATRIK>ARRAY11,11 MATRIK>ARRAY11,11OF OF INTEGER; PROCEDURE LIMPIARCELDAS(REILLA@TS LIMPIARCELDAS(REILLA@TSTRINGGRID!; TRINGGRID!; $AR $A R F,C@INTEGER; %EGIN FOR F@>1 TO REILLAROWCOUNT REILLAROWCOUNT DO FOR C@>1 TO REILLACOLCOUNT DO REILLACELLSC,F@>'' END; PROCEDURE GENERARCUADRADOLATINO(N@INTEGER; $AR M@MATRIK!; $AR $A R F,C,,SW,TEMP@INTEGER; %EGIN SW@>; FOR F@>1 TO N DO IF SW> THEN %EGIN FOR C@>1 TO N DO MF,C@>C; MF,C@>C; SW@>1 END ELSE %EGIN
TEMP@>MF1,N; FOR @>N DOWNTO - DO MF,@>MF MF,@>MF1,1; 1,1; MF,1@>TEMP END
END; PROCEDURE MOSTRARCUADRADOLA MOSTRARCUADRADOLATINO(REILLA TINO(REILLA@TSTRINGGRID; @TSTRINGGRID; N@INTEGER; M@MATRIK!; $AR $A R F,C@INTEGER; %EGIN FOR F@>1 TO N DO FOR C@>1 TO N DO REILLACELLSC+1,F+1@>INTTOSTR(MF,C! END; <257.2 TF21F2C24"(S/72@ TO?5"!; $AR $A R F,C@INTEGER; ?90/ MAKIMIZA EL TAMAO DEL FORMULARIO FORM1W0/78S"4"@>WSMAKIMIZED; ENUMERA LAS FILAS FOR F@>1 TO STRINGGRID1ROWCOUNT STRINGGRID1ROWCOUNT DO STRINGGRID1CELLS,F@>INTTOSTR(F!; ASIGNA CARACTERES ALAS COLUMNAS FOR C@>1 TO STRINGGRID1COLCOUNT DO STRINGGRID1CELLSC,@>CHR()+C!; /7; <257.2 TF21F2A5"04"(S/72@ TO?5"!; ?90/ STRINGGRID1C@>-; STRINGGRID1R8@>-; /7; <257.2 TF21F2R60(S/72@ TO?5"!; ?90/ EDIT1W07"=@>FORM1W07"=11; STRINGGRID1H09="@>FORM1H09="3; STRINGGRID1WIDTH@>FORM1WIDTH11; /7; <257.2 TF21E70"1:P266(S/72@ TO?5"; 42 :@ C=42!; $AR $A R M@MATRIK; N@INTEGER; ?90/ IF EY>#13 THEN %EGIN N@>STRTOINT(EDIT1TEKT!; IF (N1!THEN SHOWMESSAGE('INGRESE UN NUMERO MENOR O IGUAL QUE 1'! ELSE %EGIN
LIMPIARCELDAS(STRINGGRID1!; GENERARCUADRADOLATINO(N,M!; MOSTRARCUADRADOLATINO(STRINGGRID1,N,M!; END END; IF NOT (EY IN'''&'!THEN EY@># /7; /7
PRÁCTICA PRÁCTIC A Nº 9 ./0" U/0"1; 0/"245 .66 W0/786, M66496, S:6U"06, S:6U"06, $4204/"6, $4204/"6, C4666, G24<=056, C/"26, F26, F26, D0496; ":< TF21 > 5466(TF2! 5466(TF2! <257.2 F2P40/"(S/72@ TO?5"!; <204" P204" 75424"0/6 <.?05 P.?05 75424"0/6 /7; 42 F21@ TF21; 0</"4"0/ R J7 <257.2 TF21F2P40/"(S/72@ TO?5"!; ?90/ WITH CAN$AS DO %EGIN PENC2@>CL%LAC;COLOR DE TRAZO PENW07"=@>B; GROSOR DE TRAZO LETRA A POLYLINE(POINT(,-!,POIN POLYLINE(POINT(,-!,POINT(,!,POINT(1,!,POINT(1,1!, T(,!,POINT(1,!,POINT(1,1!, POINT(,1!,POINT(1,1!,POINT(1,-!!; LETRA D POLYLINE(POINT(-,-!,POIN POLYLINE(POINT(-,-!,POINT(-,-!,POINT(-,!,POINT(-,!!; T(-,-!,POINT(-,!,POINT(-,!!; ARC(-,,3,1,3,1,-,!; POLYLINE(POINT(3,1!,POINT(3,-!!; ARC(3,1,-,-,-,-,3,-!; LETRA A POLYLINE(POINT(3,-!,POIN POLYLINE(POINT(3,-!,POINT(3,!,POINT(,!,POINT(,1!, T(3,!,POINT(,!,POINT(,1!, POINT(3,1!,POINT(,1!,POINT(,-!!; LETRA L POLYLINE(POINT(),-!,POINT(,-!,POINT(,!!; LETRA I POLYLINE(POINT(*,-!,POIN POLYLINE(POINT(*,-!,POINT(),-!,POINT(*,-!,POINT(*,!, T(),-!,POINT(*,-!,POINT(*,!, POINT(),!,POINT(*,!!; LETRA T POLYLINE(POINT(B,-!,POIN POLYLINE(POINT(B,-!,POINT(B,!,POINT(B,!,POINT(&,!!; T(B,!,POINT(B,!,POINT(&,!!; INICIAL DE MI APELLIDO PATERNO PATERNO (M! POLYLINE(POINT(,!,POIN POLYLINE(POINT(,!,POINT(,3!,POINT(1,!,POINT(1,3!, T(,3!,POINT(1,!,POINT(1,3!, POINT(1,!!; POLYLINE(POINT(-,!,POINT(-,!,POINT(-,!,POINT(-,!,
POINT(-,!!; INICIAL DE MI APELLIDO MATERNO (A! POLYLINE(POINT(3,!,POINT(3,3!,POINT(,3!,POINT(,!, POINT(3,!,POINT(,!,POINT(,!!; POLYLINE(POINT(,!,POINT(,!,POINT(,!,POINT(,!, POINT(,!!; END; /7; /7
PRÁCTICA PRÁCTIC A Nº 10 ./0" U/0"1; 0/"245 .66 W0/786, M66496, S:6U"06, S:6U"06, $4204/"6, $4204/"6, C4666, G24<=056, C/"26, F26, F26, D0496, E"C"26; ":< TF21 > 5466(TF2! 5466(TF2! I491@ TI49; <257.2 F2P40/"(S/72@ TO?5"!; <204" P204" 75424"0/6 <.?05 P.?05 75424"0/6 /7; 42 F21@ TF21; 0</"4"0/ R J7 <257.2 TF21F2P40/"(S/72@ TO?5"!; ?90/ GRAFICA SIN IMAGE WITH CAN$AS DO %EGIN PENC2@>CL%LUE; COLOR DE TRAZO PENWIDTH@>; GROSOR DE TRAZO %RUSHC2@>CL%LAC; COLOR DE FONDO FONDO %RUSHSTYLE@>%SDIAGCROSS; ESTILO DE FONDO FONDO RECTANGLE(,,1,1!; RECTANGLE(-,,3,1!; RECTANGLE(3,,,1!; RECTANGLE(,,),1!; RECTANGLE(),,*,1!; END; GRAFICA CON IMAGE WITH IMAGE1 DO %EGIN CAN$ASPENC2@>CLRED; CAN$ASP/W07"=@>; CAN$AS%RUSHC2@>CL%LAC; CAN$AS%RUSHSTYLE@>%SDIAGCROSS; CAN$ASE0<6(,,-,1!; CAN$ASE0<6(-,,,1!; CAN$ASE0<6(,,),1!; END; /7; /7
