├── Project1.cbproj ├── Project1.cbproj.local ├── Project1.cpp ├── Project1.res ├── Project1PCH1.h ├── README.md ├── Unit1.cpp ├── Unit1.dfm ├── Unit1.h ├── Win32 └── Debug │ ├── Project1.exe │ ├── Project1.ilc │ ├── Project1.ild │ ├── Project1.ilf │ ├── Project1.ils │ ├── Project1.map │ ├── Project1.obj │ ├── Project1.pdi │ ├── Project1.tds │ ├── Project1PCH1.pch │ └── Unit1.obj └── __history ├── Unit1.cpp.~176~ ├── Unit1.cpp.~177~ ├── Unit1.cpp.~178~ ├── Unit1.cpp.~179~ ├── Unit1.cpp.~180~ ├── Unit1.cpp.~181~ ├── Unit1.cpp.~182~ ├── Unit1.cpp.~183~ ├── Unit1.cpp.~184~ ├── Unit1.cpp.~185~ ├── Unit1.dfm.~48~ ├── Unit1.dfm.~49~ ├── Unit1.dfm.~50~ ├── Unit1.dfm.~51~ ├── Unit1.dfm.~52~ ├── Unit1.dfm.~53~ ├── Unit1.dfm.~54~ ├── Unit1.dfm.~55~ ├── Unit1.dfm.~56~ ├── Unit1.dfm.~57~ ├── Unit1.h.~30~ ├── Unit1.h.~31~ ├── Unit1.h.~32~ ├── Unit1.h.~33~ ├── Unit1.h.~34~ ├── Unit1.h.~35~ ├── Unit1.h.~36~ ├── Unit1.h.~37~ ├── Unit1.h.~38~ └── Unit1.h.~39~ /Project1.cbproj.local: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 2020/08/06 16:01:00.000.418,=C:\Users\USUARIO\OneDrive\Documentos\Embarcadero\Studio\Projects\Unit1.cpp 5 | 2020/08/06 16:01:00.000.078,=C:\Users\USUARIO\OneDrive\Documentos\Embarcadero\Studio\Projects\Project1PCH1.h 6 | 2020/08/06 18:03:26.000.117,D:\Embarcadero\program2\Unit1.dfm=C:\Users\USUARIO\OneDrive\Documentos\Embarcadero\Studio\Projects\Unit1.dfm 7 | 2020/08/06 18:03:26.000.117,D:\Embarcadero\program2\Unit1.cpp=C:\Users\USUARIO\OneDrive\Documentos\Embarcadero\Studio\Projects\Unit1.cpp 8 | 2020/08/06 18:03:26.000.117,D:\Embarcadero\program2\Unit1.h=C:\Users\USUARIO\OneDrive\Documentos\Embarcadero\Studio\Projects\Unit1.h 9 | 2020/08/06 18:03:28.000.988,D:\Embarcadero\program2\Project1PCH1.h=C:\Users\USUARIO\OneDrive\Documentos\Embarcadero\Studio\Projects\Project1PCH1.h 10 | 2020/08/06 18:03:31.000.849,D:\Embarcadero\program2\Project1.cbproj=C:\Users\USUARIO\OneDrive\Documentos\Embarcadero\Studio\Projects\Project1.cbproj 11 | 12 | 13 | -------------------------------------------------------------------------------- /Project1.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | #include 6 | //--------------------------------------------------------------------------- 7 | USEFORM("Unit1.cpp", Form1); 8 | //--------------------------------------------------------------------------- 9 | int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int) 10 | { 11 | try 12 | { 13 | Application->Initialize(); 14 | Application->MainFormOnTaskBar = true; 15 | Application->CreateForm(__classid(TForm1), &Form1); 16 | Application->Run(); 17 | } 18 | catch (Exception &exception) 19 | { 20 | Application->ShowException(&exception); 21 | } 22 | catch (...) 23 | { 24 | try 25 | { 26 | throw Exception(""); 27 | } 28 | catch (Exception &exception) 29 | { 30 | Application->ShowException(&exception); 31 | } 32 | } 33 | return 0; 34 | } 35 | //--------------------------------------------------------------------------- 36 | -------------------------------------------------------------------------------- /Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cartory/program2/65c5e9db962f51c2a1cff9d581dc41eb247a8a92/Project1.res -------------------------------------------------------------------------------- /Project1PCH1.h: -------------------------------------------------------------------------------- 1 | #include 2 | #include 3 | 4 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # Programación 2 2 | 3 | Repositorio con los ejercicios resueltos de programación 4 | ## Canal de Youtube 5 | * **Pedro cartory** - *programación 2* - [cartory](https://www.youtube.com/channel/UCQu3fZWiFFybOE4T9AJXC7A?view_as=subscriber) 6 | ## Modelos de exámen 7 | * **FICCT UAGRM** - *programación 2* - [Modelos de Exámen](https://github.com/ficct/Apuntes/blob/master/Materias/INF210%20-%20Programacion%20II/Programacion_II_Modelo_de_Examen.pdf) 8 | * **DRIVE FICCT** - *programación 2* - [Drive con más modelos de exámen](https://drive.google.com/folderview?id=1wXCSpHoY2cy_JaCQFnPVjxZHB4QZNnoT) 9 | ## Empezando 10 | 11 | Las siguientes instrucciones serán sobre como clonar el 12 | repositorio en sus computadoras y compilarlo al 100% 13 | ### Requisitos 14 | - ##### C++ Builder Community >= 10.3 - [Descargar C++ Builder](https://www.embarcadero.com/products/cbuilder/starter/free-download) 15 | - ##### Tener instalado GIT - [Descargar GIT](https://git-scm.com/downloads) 16 | 17 | ### Descargar el repositorio 18 | 19 | Una vez que tenga GIT y C++ Builder 20 | 21 | En el directorio que prefieras, abra la terminal y escriba el siguiente comando 22 | 23 | ``` 24 | git clone https://github.com/cartory/program2.git 25 | ``` 26 | 27 | Luego abra el proyecto y deberia moscorrer perfectamente 28 | 29 | ![c++_image](https://cdn.discordapp.com/attachments/637038014203166773/742031032424988832/README.png) 30 | 31 | 32 | ## Actualizar el repositorio 33 | 34 | Una vez clonado el repo, si es que quisiera actualizarlo debe abrir una terminal en el directorio principal del proyecto y escribir el siguiente comando 35 | 36 | ``` 37 | git pull origin master 38 | ``` 39 | 40 | 41 | ## Autores 42 | 43 | * **cartory** - *programación 2* - [cartory](https://github.com/cartory) 44 | * **Manuel** - Ing. Saavedra Manuel 45 | 46 | ## License 47 | 48 | This project is licensed under the MIT License - see the [LICENSE.md](LICENSE.md) file for details 49 | -------------------------------------------------------------------------------- /Unit1.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 0 3 | Top = 0 4 | Caption = 'Form1' 5 | ClientHeight = 324 6 | ClientWidth = 566 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | Menu = MainMenu1 14 | OldCreateOrder = False 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object StringGrid1: TStringGrid 18 | Left = 80 19 | Top = 56 20 | Width = 409 21 | Height = 49 22 | ColCount = 10 23 | DefaultColWidth = 60 24 | FixedCols = 0 25 | RowCount = 1 26 | FixedRows = 0 27 | Font.Charset = DEFAULT_CHARSET 28 | Font.Color = clWindowText 29 | Font.Height = -13 30 | Font.Name = 'Tahoma' 31 | Font.Style = [fsBold] 32 | Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing] 33 | ParentFont = False 34 | TabOrder = 0 35 | end 36 | object StringGrid2: TStringGrid 37 | Left = 176 38 | Top = 128 39 | Width = 177 40 | Height = 137 41 | DefaultColWidth = 32 42 | TabOrder = 1 43 | end 44 | object MainMenu1: TMainMenu 45 | Left = 520 46 | Top = 272 47 | object ENTEROS1: TMenuItem 48 | Caption = 'ENTEROS' 49 | object factorialn1: TMenuItem 50 | Caption = 'factorial(n)' 51 | OnClick = factorialn1Click 52 | end 53 | object potencian1: TMenuItem 54 | Caption = 'potencia(n)' 55 | OnClick = potencian1Click 56 | end 57 | object mayorMenorn1: TMenuItem 58 | Caption = 'mayorMenor(n)' 59 | OnClick = mayorMenorn1Click 60 | end 61 | object invertirn1: TMenuItem 62 | Caption = 'invertir(&n)' 63 | OnClick = invertirn1Click 64 | end 65 | object moverMayorFinal1: TMenuItem 66 | Caption = 'moverMayorFinal' 67 | OnClick = moverMayorFinal1Click 68 | end 69 | object sumaBinariaab1: TMenuItem 70 | Caption = 'sumaBinaria(a,b)' 71 | OnClick = sumaBinariaab1Click 72 | end 73 | object toBinn1: TMenuItem 74 | Caption = 'DecimalABinario(n)' 75 | OnClick = toBinn1Click 76 | end 77 | object ordenarn1: TMenuItem 78 | Caption = 'ordenar(n)' 79 | OnClick = ordenarn1Click 80 | end 81 | object estaOrdenadon1: TMenuItem 82 | Caption = 'estaOrdenado(n)' 83 | OnClick = estaOrdenadon1Click 84 | end 85 | object DigitosParesn1: TMenuItem 86 | Caption = 'DigitosPares(n)' 87 | OnClick = DigitosParesn1Click 88 | end 89 | object SumaDigitosParesn1: TMenuItem 90 | Caption = 'SumaPares(n)' 91 | OnClick = SumaDigitosParesn1Click 92 | end 93 | object parAntesImparn1: TMenuItem 94 | Caption = 'parAntesImpar(n)' 95 | OnClick = parAntesImparn1Click 96 | end 97 | end 98 | object CADENAS1: TMenuItem 99 | Caption = 'CADENAS' 100 | object invertirn2: TMenuItem 101 | Caption = 'invertir(x)' 102 | OnClick = invertirn2Click 103 | end 104 | object cantidadPalabrasx1: TMenuItem 105 | Caption = 'cantidadPalabras(x)' 106 | OnClick = cantidadPalabrasx1Click 107 | end 108 | object eliminarVocalesx1: TMenuItem 109 | Caption = 'eliminarVocales(&x)' 110 | OnClick = eliminarVocalesx1Click 111 | end 112 | object palabraMasLargax1: TMenuItem 113 | Caption = 'palabraMasLarga(x)' 114 | OnClick = palabraMasLargax1Click 115 | end 116 | object eliminarPrimerLetrax1: TMenuItem 117 | Caption = 'eliminarPrimerLetra(x)' 118 | OnClick = eliminarPrimerLetrax1Click 119 | end 120 | object invertirPalabras1: TMenuItem 121 | Caption = 'invertirPalabras(x)' 122 | OnClick = invertirPalabras1Click 123 | end 124 | end 125 | object SERIES1: TMenuItem 126 | Caption = 'SERIES' 127 | object fibonaccit1: TMenuItem 128 | Caption = 'fibonacci(t)' 129 | OnClick = fibonaccit1Click 130 | end 131 | object serie1t1: TMenuItem 132 | Caption = 'serie1(t)' 133 | OnClick = serie1t1Click 134 | end 135 | object sumaSerien1: TMenuItem 136 | Caption = 'sumaSerie(n)' 137 | OnClick = sumaSerien1Click 138 | end 139 | object serie2n1: TMenuItem 140 | Caption = 'serie2(n)' 141 | OnClick = serie2n1Click 142 | end 143 | object sumaSerie2n1: TMenuItem 144 | Caption = 'sumaSerie2(n)' 145 | OnClick = sumaSerie2n1Click 146 | end 147 | object sumaSerie3n1: TMenuItem 148 | Caption = 'sumaSerie3(n)' 149 | OnClick = sumaSerie3n1Click 150 | end 151 | end 152 | object VECTORES1: TMenuItem 153 | Caption = 'VECTORES' 154 | object cargarn1: TMenuItem 155 | Caption = 'cargar(n)' 156 | OnClick = cargarn1Click 157 | end 158 | object sumaPares1: TMenuItem 159 | Caption = 'sumaPares' 160 | OnClick = sumaPares1Click 161 | end 162 | object invertir1: TMenuItem 163 | Caption = 'invertir' 164 | OnClick = invertir1Click 165 | end 166 | object cargarPalabrasx1: TMenuItem 167 | Caption = 'cargarPalabras(x)' 168 | OnClick = cargarPalabrasx1Click 169 | end 170 | object cargarVector1001: TMenuItem 171 | Caption = 'cargarVector100(n)' 172 | OnClick = cargarVector1001Click 173 | end 174 | object cadenaNroInv1: TMenuItem 175 | Caption = 'cadenaNroInv()' 176 | OnClick = cadenaNroInv1Click 177 | end 178 | object cargarSerie1: TMenuItem 179 | Caption = 'cargarSerie(n)' 180 | OnClick = cargarSerie1Click 181 | end 182 | object suman1: TMenuItem 183 | Caption = 'suma(n)' 184 | OnClick = suman1Click 185 | end 186 | end 187 | object MATRICES1: TMenuItem 188 | Caption = 'MATRICES' 189 | object serpiente1: TMenuItem 190 | Caption = 'serpiente(m,n)' 191 | OnClick = serpiente1Click 192 | end 193 | object triangular1n1: TMenuItem 194 | Caption = 'triangular1(n)' 195 | OnClick = triangular1n1Click 196 | end 197 | object triangular2n1: TMenuItem 198 | Caption = 'triangular2(n)' 199 | OnClick = triangular2n1Click 200 | end 201 | object cuadrado1n1: TMenuItem 202 | Caption = 'cuadrado1(n)' 203 | OnClick = cuadrado1n1Click 204 | end 205 | object re1: TMenuItem 206 | Caption = 'cargarDiagonal(m, n)' 207 | OnClick = re1Click 208 | end 209 | object caracoln1: TMenuItem 210 | Caption = 'caracol(n)' 211 | OnClick = caracoln1Click 212 | end 213 | object triangular3n1: TMenuItem 214 | Caption = 'triangular3(n)' 215 | OnClick = triangular3n1Click 216 | end 217 | object serpiente2mn1: TMenuItem 218 | Caption = 'serpiente2(m, n)' 219 | OnClick = serpiente2mn1Click 220 | end 221 | object cargarcadena1mn1: TMenuItem 222 | Caption = 'cargarcadena1(m, n)' 223 | OnClick = cargarcadena1mn1Click 224 | end 225 | object cargarCadena2mn1: TMenuItem 226 | Caption = 'cargarCadena2(m, n)' 227 | OnClick = cargarCadena2mn1Click 228 | end 229 | end 230 | object xtra1: TMenuItem 231 | Caption = 'xtra' 232 | object triangular11: TMenuItem 233 | Caption = 'triangular1(n)' 234 | OnClick = triangular11Click 235 | end 236 | object cargarCadenaVectorMatrizx1: TMenuItem 237 | Caption = 'cargarCadenaVectorMatriz(x)' 238 | OnClick = cargarCadenaVectorMatrizx1Click 239 | end 240 | end 241 | end 242 | end 243 | -------------------------------------------------------------------------------- /Unit1.h: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #ifndef Unit1H 4 | #define Unit1H 5 | //--------------------------------------------------------------------------- 6 | #include 7 | #include 8 | #include 9 | #include 10 | #include 11 | #include 12 | //--------------------------------------------------------------------------- 13 | class TForm1 : public TForm 14 | { 15 | __published: // IDE-managed Components 16 | TMainMenu *MainMenu1; 17 | TMenuItem *ENTEROS1; 18 | TMenuItem *CADENAS1; 19 | TMenuItem *SERIES1; 20 | TMenuItem *VECTORES1; 21 | TMenuItem *MATRICES1; 22 | TMenuItem *factorialn1; 23 | TMenuItem *potencian1; 24 | TMenuItem *mayorMenorn1; 25 | TMenuItem *invertirn1; 26 | TMenuItem *moverMayorFinal1; 27 | TMenuItem *sumaBinariaab1; 28 | TMenuItem *toBinn1; 29 | TMenuItem *ordenarn1; 30 | TMenuItem *invertirn2; 31 | TMenuItem *cantidadPalabrasx1; 32 | TMenuItem *eliminarVocalesx1; 33 | TMenuItem *palabraMasLargax1; 34 | TMenuItem *estaOrdenadon1; 35 | TMenuItem *eliminarPrimerLetrax1; 36 | TMenuItem *invertirPalabras1; 37 | TMenuItem *fibonaccit1; 38 | TMenuItem *serie1t1; 39 | TMenuItem *sumaSerien1; 40 | TMenuItem *serie2n1; 41 | TMenuItem *sumaSerie2n1; 42 | TMenuItem *DigitosParesn1; 43 | TMenuItem *SumaDigitosParesn1; 44 | TMenuItem *parAntesImparn1; 45 | TMenuItem *sumaSerie3n1; 46 | TStringGrid *StringGrid1; 47 | TMenuItem *cargarn1; 48 | TMenuItem *sumaPares1; 49 | TMenuItem *invertir1; 50 | TMenuItem *cargarPalabrasx1; 51 | TMenuItem *cargarVector1001; 52 | TMenuItem *cadenaNroInv1; 53 | TMenuItem *cargarSerie1; 54 | TMenuItem *suman1; 55 | TStringGrid *StringGrid2; 56 | TMenuItem *serpiente1; 57 | TMenuItem *triangular1n1; 58 | TMenuItem *triangular2n1; 59 | TMenuItem *cuadrado1n1; 60 | TMenuItem *re1; 61 | TMenuItem *caracoln1; 62 | TMenuItem *triangular3n1; 63 | TMenuItem *serpiente2mn1; 64 | TMenuItem *cargarcadena1mn1; 65 | TMenuItem *cargarCadena2mn1; 66 | TMenuItem *xtra1; 67 | TMenuItem *triangular11; 68 | TMenuItem *cargarCadenaVectorMatrizx1; 69 | void __fastcall factorialn1Click(TObject *Sender); 70 | void __fastcall potencian1Click(TObject *Sender); 71 | void __fastcall mayorMenorn1Click(TObject *Sender); 72 | void __fastcall invertirn1Click(TObject *Sender); 73 | void __fastcall moverMayorFinal1Click(TObject *Sender); 74 | void __fastcall sumaBinariaab1Click(TObject *Sender); 75 | void __fastcall toBinn1Click(TObject *Sender); 76 | void __fastcall ordenarn1Click(TObject *Sender); 77 | void __fastcall invertirn2Click(TObject *Sender); 78 | void __fastcall cantidadPalabrasx1Click(TObject *Sender); 79 | void __fastcall eliminarVocalesx1Click(TObject *Sender); 80 | void __fastcall palabraMasLargax1Click(TObject *Sender); 81 | void __fastcall estaOrdenadon1Click(TObject *Sender); 82 | void __fastcall eliminarPrimerLetrax1Click(TObject *Sender); 83 | void __fastcall invertirPalabras1Click(TObject *Sender); 84 | void __fastcall fibonaccit1Click(TObject *Sender); 85 | void __fastcall serie1t1Click(TObject *Sender); 86 | void __fastcall sumaSerien1Click(TObject *Sender); 87 | void __fastcall serie2n1Click(TObject *Sender); 88 | void __fastcall sumaSerie2n1Click(TObject *Sender); 89 | void __fastcall DigitosParesn1Click(TObject *Sender); 90 | void __fastcall SumaDigitosParesn1Click(TObject *Sender); 91 | void __fastcall parAntesImparn1Click(TObject *Sender); 92 | void __fastcall sumaSerie3n1Click(TObject *Sender); 93 | void __fastcall cargarn1Click(TObject *Sender); 94 | void __fastcall sumaPares1Click(TObject *Sender); 95 | void __fastcall invertir1Click(TObject *Sender); 96 | void __fastcall cargarPalabrasx1Click(TObject *Sender); 97 | void __fastcall cargarVector1001Click(TObject *Sender); 98 | void __fastcall cadenaNroInv1Click(TObject *Sender); 99 | void __fastcall cargarSerie1Click(TObject *Sender); 100 | void __fastcall suman1Click(TObject *Sender); 101 | void __fastcall serpiente1Click(TObject *Sender); 102 | void __fastcall triangular1n1Click(TObject *Sender); 103 | void __fastcall triangular2n1Click(TObject *Sender); 104 | void __fastcall cuadrado1n1Click(TObject *Sender); 105 | void __fastcall re1Click(TObject *Sender); 106 | void __fastcall caracoln1Click(TObject *Sender); 107 | void __fastcall triangular3n1Click(TObject *Sender); 108 | void __fastcall serpiente2mn1Click(TObject *Sender); 109 | void __fastcall cargarcadena1mn1Click(TObject *Sender); 110 | void __fastcall cargarCadena2mn1Click(TObject *Sender); 111 | void __fastcall triangular11Click(TObject *Sender); 112 | void __fastcall cargarCadenaVectorMatrizx1Click(TObject *Sender); 113 | private: // User declarations 114 | public: // User declarations 115 | __fastcall TForm1(TComponent* Owner); 116 | }; 117 | //--------------------------------------------------------------------------- 118 | extern PACKAGE TForm1 *Form1; 119 | //--------------------------------------------------------------------------- 120 | #endif 121 | -------------------------------------------------------------------------------- /Win32/Debug/Project1.exe: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cartory/program2/65c5e9db962f51c2a1cff9d581dc41eb247a8a92/Win32/Debug/Project1.exe -------------------------------------------------------------------------------- /Win32/Debug/Project1.ilc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cartory/program2/65c5e9db962f51c2a1cff9d581dc41eb247a8a92/Win32/Debug/Project1.ilc -------------------------------------------------------------------------------- /Win32/Debug/Project1.ild: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cartory/program2/65c5e9db962f51c2a1cff9d581dc41eb247a8a92/Win32/Debug/Project1.ild -------------------------------------------------------------------------------- /Win32/Debug/Project1.ilf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cartory/program2/65c5e9db962f51c2a1cff9d581dc41eb247a8a92/Win32/Debug/Project1.ilf -------------------------------------------------------------------------------- /Win32/Debug/Project1.ils: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cartory/program2/65c5e9db962f51c2a1cff9d581dc41eb247a8a92/Win32/Debug/Project1.ils -------------------------------------------------------------------------------- /Win32/Debug/Project1.map: -------------------------------------------------------------------------------- 1 | 2 | Start Length Name Class 3 | 0001:00401000 000017850H _TEXT CODE 4 | 0002:00419000 000000E34H _DATA DATA 5 | 0003:00419E34 000000268H _BSS BSS 6 | 0004:00000000 000000000H _TLS TLS 7 | -------------------------------------------------------------------------------- /Win32/Debug/Project1.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cartory/program2/65c5e9db962f51c2a1cff9d581dc41eb247a8a92/Win32/Debug/Project1.obj -------------------------------------------------------------------------------- /Win32/Debug/Project1.pdi: -------------------------------------------------------------------------------- 1 | vcl260.bpl 2 | rtl260.bpl 3 | -------------------------------------------------------------------------------- /Win32/Debug/Project1.tds: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cartory/program2/65c5e9db962f51c2a1cff9d581dc41eb247a8a92/Win32/Debug/Project1.tds -------------------------------------------------------------------------------- /Win32/Debug/Project1PCH1.pch: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cartory/program2/65c5e9db962f51c2a1cff9d581dc41eb247a8a92/Win32/Debug/Project1PCH1.pch -------------------------------------------------------------------------------- /Win32/Debug/Unit1.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cartory/program2/65c5e9db962f51c2a1cff9d581dc41eb247a8a92/Win32/Debug/Unit1.obj -------------------------------------------------------------------------------- /__history/Unit1.cpp.~176~: -------------------------------------------------------------------------------- 1 | // --------------------------------------------------------------------------- 2 | 3 | #include 4 | #include 5 | 6 | #pragma hdrstop 7 | 8 | #include "Unit1.h" 9 | // --------------------------------------------------------------------------- 10 | #pragma package(smart_init) 11 | #pragma resource "*.dfm" 12 | TForm1 *Form1; 13 | 14 | // --------------------------------------------------------------------------- 15 | __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { 16 | } 17 | 18 | Cardinal factorial(byte n) { 19 | Cardinal f; 20 | if (n == 0) { 21 | f = 1; 22 | } 23 | else { 24 | f = n * factorial(n - 1); 25 | } 26 | return f; 27 | } 28 | 29 | // --------------------------------------------------------------------------- 30 | void __fastcall TForm1::factorialn1Click(TObject *Sender) { 31 | byte n = StrToInt(InputBox("Factorial", "nro", "")); 32 | Cardinal f = factorial(n); 33 | ShowMessage(f); 34 | } 35 | 36 | // --------------------------------------------------------------------------- 37 | 38 | /* 39 | 0 < n < 10 40 | auxPotencia(2) => 22 41 | auxPotencia(3) => 333 42 | auxPotencia(4) => 4444 43 | */ 44 | Cardinal auxPotencia(byte n) { 45 | return (int)(pow(10, n) - 1) / 9 * n; 46 | } 47 | 48 | Cardinal potencia(Cardinal n) { 49 | Cardinal p; 50 | if (n < 10) { 51 | p = auxPotencia(n); 52 | } 53 | else { 54 | p = potencia(n / 10); 55 | Cardinal d = auxPotencia(n % 10); 56 | p = p * (int)pow(10, n % 10) + d; 57 | } 58 | return p; 59 | } 60 | 61 | void __fastcall TForm1::potencian1Click(TObject *Sender) { 62 | Cardinal n = StrToInt(InputBox("Potencia", "nro", "")); 63 | Cardinal f = potencia(n); 64 | ShowMessage(f); 65 | } 66 | 67 | byte digitoMayorMenor(Cardinal n) { 68 | byte m; 69 | if (n < 10) { 70 | m = n * 11; 71 | } 72 | else { 73 | m = digitoMayorMenor(n / 10); 74 | byte d = n % 10; 75 | if (d < m % 10) { 76 | m = (m / 10) * 10 + d; 77 | } 78 | if (d > m / 10) { 79 | m = d * 10 + m % 10; 80 | } 81 | } 82 | return m; 83 | } 84 | 85 | // --------------------------------------------------------------------------- 86 | void __fastcall TForm1::mayorMenorn1Click(TObject *Sender) { 87 | Cardinal n = StrToInt(InputBox("DigitoMayorMenor", "nro", "")); 88 | byte m = digitoMayorMenor(n); 89 | ShowMessage(m); 90 | } 91 | 92 | // --------------------------------------------------------------------------- 93 | 94 | byte cantidadDigitos(Cardinal n) { 95 | byte c; 96 | if (n == 0) { 97 | c = 1; 98 | } 99 | else { 100 | c = (int)log10(10 * n); 101 | } 102 | return c; 103 | } 104 | 105 | void invertir(Cardinal &n) { 106 | if (n > 9) { 107 | Cardinal d = n % 10; 108 | n /= 10; 109 | invertir(n); 110 | n = d * (int)pow(10, cantidadDigitos(n)) + n; 111 | } 112 | } 113 | 114 | void __fastcall TForm1::invertirn1Click(TObject *Sender) { 115 | Cardinal n = StrToInt(InputBox("invertir", "nro", "")); 116 | invertir(n); 117 | ShowMessage(n); 118 | } 119 | 120 | // --------------------------------------------------------------------------- 121 | void moverMayorFinal(Cardinal &n) { 122 | if (n > 9) { 123 | byte d = n % 10; 124 | n /= 10; 125 | moverMayorFinal(n); 126 | if (n % 10 > d) { 127 | n = (n / 10) * 100 + d * 10 + n % 10; 128 | } 129 | else { 130 | n = n * 10 + d; 131 | } 132 | } 133 | } 134 | 135 | byte digitoMayor(Cardinal n) { 136 | byte d; 137 | if (n < 10) { 138 | d = n; 139 | } 140 | else { 141 | d = digitoMayor(n / 10); 142 | if (n % 10 > d) { 143 | d = n % 10; 144 | } 145 | } 146 | return d; 147 | } 148 | 149 | void eliminarDigito(Cardinal &n, byte d, bool &elimino) { 150 | if (n > 0) { 151 | byte p = n % 10; 152 | n /= 10; 153 | eliminarDigito(n, d, elimino); 154 | if (elimino) { 155 | n = n * 10 + p; 156 | } 157 | else { 158 | if (p == d) { 159 | elimino = true; 160 | } 161 | else { 162 | n = n * 10 + p; 163 | } 164 | } 165 | } 166 | } 167 | 168 | byte sumaDigitosBinarios(byte a, byte b) { 169 | return (a + b) / 2 * 10 + (a + b) % 2; 170 | } 171 | 172 | Cardinal sumaBinaria(Cardinal a, Cardinal b, byte c = 0) { 173 | Cardinal s; 174 | byte d = sumaDigitosBinarios(a % 10, b % 10); 175 | d = (d / 10) * 10 + sumaDigitosBinarios(d % 10, c); 176 | if (a < 2 && b < 2) { 177 | s = d; 178 | } 179 | else { 180 | s = sumaBinaria(a / 10, b / 10, d / 10); 181 | s = s * 10 + d % 10; 182 | } 183 | return s; 184 | } 185 | 186 | void __fastcall TForm1::moverMayorFinal1Click(TObject * Sender) { 187 | Cardinal n = StrToInt(InputBox("invertir", "nro", "")); 188 | byte d = digitoMayor(n); 189 | bool elimino = false; 190 | eliminarDigito(n, d, elimino); 191 | n = n * 10 + d; 192 | // moverMayorFinal(n); 193 | ShowMessage(n); 194 | } 195 | 196 | // --------------------------------------------------------------------------- 197 | void __fastcall TForm1::sumaBinariaab1Click(TObject *Sender) { 198 | Cardinal a = StrToInt(InputBox("Suma Binario", "A :", "")); 199 | Cardinal b = StrToInt(InputBox("Suma Binario", "B :", "")); 200 | Cardinal s = sumaBinaria(a, b); 201 | ShowMessage(s); 202 | } 203 | // --------------------------------------------------------------------------- 204 | 205 | String w = "0123456789ABCDEF"; 206 | 207 | String DecimalBaseK(Cardinal n, byte k) { 208 | String s; 209 | if (n < k) { 210 | s = String(w[n + 1]); 211 | } 212 | else { 213 | s = DecimalBaseK(n / k, k) + w[n % k + 1]; 214 | } 215 | return s; 216 | } 217 | 218 | void __fastcall TForm1::toBinn1Click(TObject *Sender) { 219 | Cardinal n = StrToInt(InputBox("Decimal", "nro :", "")); 220 | byte k = StrToInt(InputBox("Base", "nro :", "")); 221 | String s = DecimalBaseK(n, k); 222 | ShowMessage(s); 223 | } 224 | 225 | // --------------------------------------------------------------------------- 226 | void moverMenorFinal(Cardinal &n) { 227 | if (n > 9) { 228 | byte d = n % 10; 229 | n /= 10; 230 | moverMenorFinal(n); 231 | if (n % 10 < d) { 232 | n = (n / 10) * 100 + d * 10 + n % 10; 233 | } 234 | else { 235 | n = n * 10 + d; 236 | } 237 | } 238 | } 239 | 240 | void ordenar(Cardinal &n) { 241 | if (n > 9) { 242 | moverMenorFinal(n); 243 | byte d = n % 10; 244 | n /= 10; 245 | ordenar(n); 246 | n = n * 10 + d; 247 | } 248 | } 249 | 250 | void __fastcall TForm1::ordenarn1Click(TObject *Sender) { 251 | Cardinal n = StrToInt(InputBox("Ordenar", "nro :", "")); 252 | ordenar(n); 253 | ShowMessage(n); 254 | } 255 | 256 | // --------------------------------------------------------------------------- 257 | void invertir(String &x) { 258 | int n = x.Length(); 259 | if (x != "") { 260 | if (n > 1) { 261 | wchar_t a = x[1]; 262 | wchar_t b = x[n]; 263 | x.Delete(n, 1); 264 | x.Delete(1, 1); 265 | invertir(x); 266 | x = String(b) + x + a; 267 | } 268 | } 269 | } 270 | 271 | void __fastcall TForm1::invertirn2Click(TObject *Sender) { 272 | /* 273 | "" => "" 274 | a => a 275 | ab => ba 276 | abc => cba 277 | 278 | 279 | x = abcd 280 | a,d 281 | x = cb 282 | => d-cb-a 283 | -------- 284 | x = bc 285 | b,c 286 | => c-""-b 287 | -------- 288 | x = "" 289 | x = "a" 290 | */ 291 | String x = InputBox("Invertir", "cad :", ""); 292 | invertir(x); 293 | ShowMessage(x); 294 | } 295 | 296 | // --------------------------------------------------------------------------- 297 | byte contarPalabras(String x) { 298 | byte c; 299 | if (x == "") { 300 | c = 0; 301 | } 302 | else if (x.Length() == 1) { 303 | c = 0; 304 | if (x[1] != ' ') { 305 | c++; 306 | } 307 | } 308 | else { 309 | c = 0; 310 | if (x[1] != ' ' && x[2] == ' ') { 311 | c++; 312 | } 313 | x.Delete(1, 1); 314 | c += contarPalabras(x); 315 | } 316 | return c; 317 | } 318 | 319 | void __fastcall TForm1::cantidadPalabrasx1Click(TObject *Sender) { 320 | /* 321 | if (x[i] != ' ' y x[i+1] == ' ') 322 | c++ 323 | x = hola_mundo_ ?? => 2 324 | */ 325 | String x = InputBox("ContarPalabras", "cad :", ""); 326 | byte c = contarPalabras(x); 327 | ShowMessage(c); 328 | } 329 | 330 | // --------------------------------------------------------------------------- 331 | bool esVocal(wchar_t z) { 332 | /* 333 | z = m >> w.Pos(z) = 0 334 | z = p >> w.Pos(z) = 0 335 | z = A >> w.Pos(z) = 6 336 | z = a >> w.Pos(z) = 1 337 | */ 338 | String w = "aeiouAEIOU"; 339 | return w.Pos(z) > 0; 340 | } 341 | 342 | void eliminarVocales(String &x) { 343 | if (x != "") { 344 | wchar_t z = x[1]; 345 | x.Delete(1, 1); 346 | eliminarVocales(x); 347 | if (!esVocal(z)) { 348 | x = String(z) + x; 349 | } 350 | } 351 | } 352 | 353 | void __fastcall TForm1::eliminarVocalesx1Click(TObject *Sender) { 354 | /* 355 | "" ==> "" 356 | "a" ==> "" 357 | "hola " => "hl " 358 | 359 | x = ho_ 360 | c = h 361 | c??esVocal 362 | x=h_ 363 | ---------------- 364 | x = o_ 365 | c = o 366 | c??esVocal 367 | => x=_ 368 | ---------------- 369 | x = _ 370 | c = _ 371 | c??esVocal 372 | => x=_ 373 | ---------------- 374 | x = "" 375 | */ 376 | String x = InputBox("EliminarVocales", "cad :", ""); 377 | eliminarVocales(x); 378 | ShowMessage(x); 379 | } 380 | 381 | // --------------------------------------------------------------------------- 382 | String palabraMasLarga(String x) { 383 | int n = x.Length(); 384 | String palMax = ""; 385 | if (n > 0) { 386 | int p = x.LastDelimiter(" "); 387 | String pal = x.SubString(p + 1, n - p); 388 | x.SetLength(p - 1); 389 | palMax = palabraMasLarga(x); 390 | if (pal.Length() > palMax.Length()) { 391 | palMax = pal; 392 | } 393 | } 394 | return palMax; 395 | } 396 | 397 | void __fastcall TForm1::palabraMasLargax1Click(TObject *Sender) { 398 | /* 399 | "" => "" 400 | hola => hola 401 | pedro mundo => mundo 402 | // 403 | n = 10 404 | p = 5 405 | x = hola_mundo 406 | p+1 = 6 407 | n-p = 5 408 | pal = mundo 409 | 410 | x.setLength(4); 411 | => x = hola 412 | n = 4 413 | x = hola mundo 414 | x.setLength(3) => x = hol 415 | x.setLength(2) => x = ho 416 | x.setLength(1) => x = h 417 | x.setLength(0) => x = 418 | */ 419 | String x = InputBox("Palabra+Larga", "cad :", ""); 420 | String p = palabraMasLarga(x); 421 | ShowMessage(p); 422 | } 423 | 424 | // --------------------------------------------------------------------------- 425 | bool estaOrdenadoAsc(Cardinal n) { 426 | bool h; 427 | if (n < 10) { 428 | h = true; 429 | } 430 | else { 431 | byte d = n % 10; 432 | n /= 10; 433 | // h = estaOrdenadoAsc(n) && !(n%10 > d); 434 | h = estaOrdenadoAsc(n); 435 | if (n % 10 > d) { 436 | h = false; 437 | } 438 | } 439 | return h; 440 | } 441 | 442 | bool estaOrdenadoDesc(Cardinal n) { 443 | bool h; 444 | if (n < 10) { 445 | h = true; 446 | } 447 | else { 448 | byte d = n % 10; 449 | n /= 10; 450 | // h = estaOrdenadoAsc(n) && !(n%10 > d); 451 | h = estaOrdenadoDesc(n); 452 | if (n % 10 < d) { 453 | h = false; 454 | } 455 | } 456 | return h; 457 | } 458 | 459 | void __fastcall TForm1::estaOrdenadon1Click(TObject *Sender) { 460 | /* 461 | 1234 462 | 1 => true 463 | 213 => false 464 | 123 => true 465 | 12 => true 466 | 467 | n = 123 468 | --------------- 469 | n = 12 470 | d = 3 471 | h = true 472 | if d >= n %10 473 | h = true 474 | else 475 | false 476 | --------------- 477 | n = 1 => true 478 | 479 | */ 480 | Cardinal n = StrToInt(InputBox("EstaOrdenado", "cad :", "")); 481 | bool ordenado = estaOrdenadoAsc(n) || estaOrdenadoDesc(n); 482 | ShowMessage(ordenado ? "true" : "false"); 483 | } 484 | // --------------------------------------------------------------------------- 485 | 486 | void eliminarPrimerLetra(String &x) { 487 | byte n = x.Length(); 488 | if (x != "") { 489 | byte p = x.LastDelimiter(" "); 490 | String w = x.SubString(p + 1, n - p); 491 | x.SetLength(p - 1); 492 | eliminarPrimerLetra(x); 493 | if (w != "") { 494 | w.Delete(1, 1); 495 | } 496 | x = x + " " + w; 497 | } 498 | } 499 | 500 | void __fastcall TForm1::eliminarPrimerLetrax1Click(TObject *Sender) { 501 | 502 | String x = InputBox("Eliminar1erLetra", "cad :", ""); 503 | eliminarPrimerLetra(x); 504 | ShowMessage(x); 505 | } 506 | // --------------------------------------------------------------------------- 507 | 508 | void invertirPalabras(String &x) { 509 | byte n = x.Length(); 510 | if (n > 0) { 511 | byte p = x.LastDelimiter(" "); 512 | String w = x.SubString(p + 1, n - p); 513 | x.SetLength(p - 1); 514 | invertirPalabras(x); 515 | invertir(w); 516 | x = x + " " + w; 517 | } 518 | } 519 | 520 | void __fastcall TForm1::invertirPalabras1Click(TObject *Sender) { 521 | String x = InputBox("Invertir Palabras", "cad :", ""); 522 | invertirPalabras(x); 523 | ShowMessage(x); 524 | } 525 | 526 | // --------------------------------------------------------------------------- 527 | Cardinal fibonacci(Word n) { 528 | Cardinal t; 529 | if (n < 2) { 530 | t = n; 531 | } 532 | else { 533 | t = fibonacci(n - 1) + fibonacci(n - 2); 534 | } 535 | return t; 536 | } 537 | 538 | void __fastcall TForm1::fibonaccit1Click(TObject *Sender) { 539 | Word t = StrToInt(InputBox("Invertir Palabras", "cad :", "")); 540 | Cardinal fibo = fibonacci(t); 541 | ShowMessage(fibo); 542 | } 543 | // --------------------------------------------------------------------------- 544 | 545 | Cardinal serie1(Word n) { 546 | Cardinal t; 547 | if (n < 2) { 548 | t = n; 549 | } 550 | else { 551 | t = serie1(n - 1); 552 | if (n % 2 == 0) { 553 | t *= 2; 554 | } 555 | else { 556 | t++; 557 | } 558 | } 559 | return t; 560 | } 561 | 562 | void __fastcall TForm1::serie1t1Click(TObject *Sender) { 563 | Word n = StrToInt(InputBox("Serie 1", "term :", "")); 564 | Cardinal t = serie1(n); 565 | ShowMessage(t); 566 | } 567 | 568 | // --------------------------------------------------------------------------- 569 | Cardinal sumaSerie(Word n) { 570 | Cardinal s; 571 | if (n == 1) { 572 | s = 0; 573 | } 574 | else { 575 | s = sumaSerie(n - 1); 576 | s += 2*(n - 1); 577 | } 578 | return s; 579 | } 580 | 581 | void __fastcall TForm1::sumaSerien1Click(TObject *Sender) { 582 | Word n = StrToInt(InputBox("Suma Serie", "term :", "")); 583 | Cardinal s = sumaSerie(n); 584 | ShowMessage(s); 585 | } 586 | 587 | // --------------------------------------------------------------------------- 588 | Cardinal serie2(Word n) { 589 | Cardinal t; 590 | if (n < 2) { 591 | t = n; 592 | } 593 | else { 594 | t = serie2(n - 1) * 2 + 1; 595 | } 596 | return t; 597 | // return (int)pow(2, n)-1; 598 | } 599 | 600 | void __fastcall TForm1::serie2n1Click(TObject *Sender) { 601 | Word n = StrToInt(InputBox("SERIE 2", "term :", "")); 602 | Cardinal s = serie2(n); 603 | ShowMessage(s); 604 | } 605 | 606 | // --------------------------------------------------------------------------- 607 | Cardinal sumaSerie2(Word n, Cardinal &s) { 608 | Cardinal t; 609 | if (n < 2) { 610 | t = n; 611 | } 612 | else { 613 | t = sumaSerie2(n - 1, s); 614 | if (n % 3 == 0) { 615 | t += 2; 616 | } 617 | else if (n % 3 == 1) { 618 | t++; 619 | } 620 | else { 621 | t *= 2; 622 | } 623 | 624 | if (t % 2 == 0) { 625 | s += t; 626 | } 627 | } 628 | return t; 629 | } 630 | 631 | void __fastcall TForm1::sumaSerie2n1Click(TObject *Sender) { 632 | Word n = StrToInt(InputBox("Suma Serie2", "cad :", "")); 633 | Cardinal s = 0; 634 | Cardinal t = sumaSerie2(n, s); 635 | ShowMessage(s); 636 | } 637 | 638 | // --------------------------------------------------------------------------- 639 | byte cantidadPares(Cardinal n) { 640 | byte c; 641 | if (n < 10) { 642 | c = (n % 2 == 0) ? 1 : 0; 643 | } 644 | else { 645 | c = cantidadPares(n / 10) + cantidadPares(n % 10); 646 | } 647 | return c; 648 | } 649 | 650 | void __fastcall TForm1::DigitosParesn1Click(TObject *Sender) { 651 | Cardinal n = StrToInt(InputBox("Cantidad Digitos Pares", "cad :", "")); 652 | byte c = cantidadPares(n); 653 | ShowMessage(c); 654 | } 655 | 656 | // --------------------------------------------------------------------------- 657 | Word sumaPares(Cardinal n) { 658 | Word s; 659 | if (n < 10) { 660 | s = (n % 2 == 0) ? n : 0; 661 | } 662 | else { 663 | s = sumaPares(n / 10) + sumaPares(n % 10); 664 | } 665 | return s; 666 | } 667 | 668 | void __fastcall TForm1::SumaDigitosParesn1Click(TObject *Sender) { 669 | Cardinal n = StrToInt(InputBox("Cantidad Digitos Pares", "cad :", "")); 670 | Word s = sumaPares(n); 671 | ShowMessage(s); 672 | } 673 | 674 | // --------------------------------------------------------------------------- 675 | byte parAntesImpar(Cardinal n) { 676 | byte c; 677 | if (n < 10) { 678 | c = 0; 679 | } 680 | else if (n < 100) { 681 | if ((n / 10) % 2 == 0 && (n % 10) % 2 == 1) { 682 | c = 1; 683 | } 684 | else { 685 | c = 0; 686 | } 687 | } 688 | else { 689 | c = parAntesImpar(n / 10) + parAntesImpar(n % 100); 690 | } 691 | return c; 692 | } 693 | 694 | void __fastcall TForm1::parAntesImparn1Click(TObject *Sender) { 695 | Cardinal n = StrToInt(InputBox("Par antes Impar", "cad :", "")); 696 | byte c = parAntesImpar(n); 697 | ShowMessage(c); 698 | } 699 | 700 | // --------------------------------------------------------------------------- 701 | float sumaSerie3(Word n) { 702 | float s; 703 | if (n < 2) { 704 | s = n; 705 | } 706 | else { 707 | s = sumaSerie3(n - 1); 708 | float p = pow(2, n); 709 | s += p / (p - 1); 710 | } 711 | return s; 712 | } 713 | 714 | void __fastcall TForm1::sumaSerie3n1Click(TObject *Sender) { 715 | Word n = StrToInt(InputBox("SumaSerie3", "term :", "")); 716 | float s = sumaSerie3(n); 717 | ShowMessage(s); 718 | } 719 | 720 | // --------------------------------------------------------------------------- 721 | void cargarVector(TStringGrid *v, byte n) { 722 | if (n > 0) { 723 | v->Cells[n - 1][0] = Random(20); 724 | cargarVector(v, n - 1); 725 | } 726 | } 727 | 728 | void __fastcall TForm1::cargarn1Click(TObject *Sender) { 729 | byte n = StrToInt(InputBox("Longitud", "nro :", "")); 730 | StringGrid1->ColCount = n; 731 | cargarVector(StringGrid1, n); 732 | // cargar vector randomicamente 733 | } 734 | // --------------------------------------------------------------------------- 735 | 736 | Cardinal sumaPares(TStringGrid *v, byte n) { 737 | Cardinal s; 738 | if (n == 1) { 739 | s = StrToInt(v->Cells[0][0]); 740 | if (s % 2 == 1) { 741 | s = 0; 742 | } 743 | } 744 | else { 745 | s = sumaPares(v, n - 1); 746 | byte k = StrToInt(v->Cells[n - 1][0]); 747 | if (k % 2 == 0) { 748 | s += k; 749 | } 750 | } 751 | return s; 752 | } 753 | 754 | void __fastcall TForm1::sumaPares1Click(TObject *Sender) { 755 | // suponemos que el vector esta cargado 756 | Cardinal s = sumaPares(StringGrid1, StringGrid1->ColCount); 757 | ShowMessage(s); 758 | } 759 | 760 | // --------------------------------------------------------------------------- 761 | void invertir(TStringGrid *v, byte a, byte b) { 762 | byte n = b - a + 1; 763 | if (n > 0) { 764 | String va = v->Cells[a][0]; 765 | String vb = v->Cells[b][0]; 766 | v->Cells[a][0] = vb; 767 | v->Cells[b][0] = va; 768 | invertir(v, a + 1, b - 1); 769 | } 770 | } 771 | 772 | void __fastcall TForm1::invertir1Click(TObject *Sender) { 773 | byte n = StringGrid1->ColCount; 774 | invertir(StringGrid1, 0, n - 1); 775 | } 776 | 777 | // --------------------------------------------------------------------------- 778 | void cargarVectorCadena(TStringGrid *v, byte n, String x) { 779 | byte nx = x.Length(); 780 | if (n > 0) { 781 | int p = x.LastDelimiter(" "); 782 | String pal = x.SubString(p + 1, nx - p); 783 | x.SetLength(p - 1); 784 | v->Cells[n - 1][0] = pal; 785 | cargarVectorCadena(v, n - 1, x); 786 | } 787 | } 788 | 789 | void __fastcall TForm1::cargarPalabrasx1Click(TObject *Sender) { 790 | String x = InputBox("cadena", "cad :", ""); 791 | byte n = contarPalabras(x); 792 | StringGrid1->ColCount = n; 793 | cargarVectorCadena(StringGrid1, n, x); 794 | ShowMessage(n); 795 | } 796 | // --------------------------------------------------------------------------- 797 | 798 | void cargarVector100(TStringGrid *v, byte n, Cardinal x) { 799 | if (n > 0) { 800 | v->Cells[n - 1][0] = x % 100; 801 | cargarVector100(v, n - 1, x / 100); 802 | } 803 | } 804 | 805 | void __fastcall TForm1::cargarVector1001Click(TObject *Sender) { 806 | Cardinal nro = StrToInt(InputBox("Nro", "nro :", "")); 807 | byte c = cantidadDigitos(nro); 808 | c = (c - 1) / 2 + 1; 809 | StringGrid1->ColCount = c; 810 | cargarVector100(StringGrid1, c, nro); 811 | } 812 | // --------------------------------------------------------------------------- 813 | 814 | String generarCadenaNroInv(TStringGrid *v, byte a, byte b) { 815 | String x; 816 | byte n = b - a + 1; 817 | if (n < 1) { 818 | x = ""; 819 | } 820 | else { 821 | x = v->Cells[a][0]; 822 | invertir(x); 823 | x = x + generarCadenaNroInv(v, a + 1, b); 824 | } 825 | return x; 826 | } 827 | 828 | void __fastcall TForm1::cadenaNroInv1Click(TObject *Sender) { 829 | byte n = StringGrid1->ColCount; 830 | String x = generarCadenaNroInv(StringGrid1, 0, n - 1); 831 | ShowMessage(x); 832 | } 833 | // --------------------------------------------------------------------------- 834 | 835 | Cardinal CargarSerie(TStringGrid *v, byte n) { 836 | Cardinal t; 837 | if (n < 2) { 838 | t = n * 2; 839 | } 840 | else { 841 | t = CargarSerie(v, n - 1); 842 | if (n % 2 == 0) { 843 | t += (n - 1)*2; 844 | } 845 | else { 846 | t *= (n - 1)*2; 847 | } 848 | } 849 | 850 | if (n > 0) { 851 | v->Cells[n - 1][0] = t; 852 | } 853 | return t; 854 | } 855 | 856 | void __fastcall TForm1::cargarSerie1Click(TObject *Sender) { 857 | byte n = StrToInt(InputBox("Longitud", "nro: ", "")); 858 | StringGrid1->ColCount = n; 859 | Cardinal t = CargarSerie(StringGrid1, n); 860 | ShowMessage(t); 861 | } 862 | // --------------------------------------------------------------------------- 863 | 864 | Cardinal suma(TStringGrid *v, byte n) { 865 | Cardinal s = 0; 866 | if (n > 0) { 867 | s = StrToInt(v->Cells[n - 1][0]); 868 | s += suma(v, n - 1); 869 | } 870 | return s; 871 | } 872 | 873 | void __fastcall TForm1::suman1Click(TObject *Sender) { 874 | byte n = StrToInt(InputBox("SUMA", "nro: ", "")); 875 | Cardinal s = suma(StringGrid1, n); 876 | ShowMessage(s); 877 | } 878 | // --------------------------------------------------------------------------- 879 | 880 | void columnaSerpiente(TStringGrid *v, byte fa, byte fb, byte ca, byte cb, 881 | byte &k) { 882 | byte n = cb - ca + 1; 883 | if (n > 0) { 884 | if (fa % 2 == 1) { 885 | v->Cells[ca][fa] = k++; 886 | columnaSerpiente(v, fa, fb, ca + 1, cb, k); 887 | } 888 | else { 889 | v->Cells[cb][fa] = k++; 890 | columnaSerpiente(v, fa, fb, ca, cb - 1, k); 891 | } 892 | } 893 | } 894 | 895 | void filaSerpiente(TStringGrid *v, byte fa, byte fb, byte ca, byte cb, byte &k) 896 | { 897 | byte m = fb - fa + 1; 898 | if (m > 0) { 899 | columnaSerpiente(v, fa, fb, ca, cb, k); 900 | filaSerpiente(v, fa + 1, fb, ca, cb, k); 901 | } 902 | } 903 | 904 | void __fastcall TForm1::serpiente1Click(TObject *Sender) { 905 | byte m = StrToInt(InputBox("FILS", "nro: ", "")); 906 | byte n = StrToInt(InputBox("COLS", "nro: ", "")); 907 | byte k = 1; 908 | StringGrid2->RowCount = m; 909 | StringGrid2->ColCount = n; 910 | filaSerpiente(StringGrid2, 0, m - 1, 0, n - 1, k); 911 | } 912 | // --------------------------------------------------------------------------- 913 | 914 | void colTriangular1(TStringGrid *v, byte fa, byte fb, byte ca, byte cb) { 915 | byte n = cb - ca + 1; 916 | if (n > 0) { 917 | v->Cells[ca][fa] = fa + 1; 918 | colTriangular1(v, fa, fb, ca + 1, cb); 919 | } 920 | } 921 | 922 | void filaTriangular1(TStringGrid *v, byte fa, byte fb, byte ca, byte cb) { 923 | byte m = fb - fa + 1; 924 | if (m > 0) { 925 | colTriangular1(v, fa, fb, ca, cb); 926 | filaTriangular1(v, fa + 1, fb, ca + 1, cb); 927 | } 928 | } 929 | 930 | void __fastcall TForm1::triangular1n1Click(TObject *Sender) { 931 | byte n = StrToInt(InputBox("ORDEN", "nro: ", "")); 932 | // 933 | StringGrid2->RowCount = 0; 934 | StringGrid2->ColCount = 0; 935 | // 936 | StringGrid2->ColCount = n; 937 | StringGrid2->RowCount = n; 938 | StringGrid2->ColCount = n; 939 | filaTriangular1(StringGrid2, 0, n - 1, 0, n - 1); 940 | } 941 | // --------------------------------------------------------------------------- 942 | 943 | void colTriangular2(TStringGrid *v, byte fa, byte fb, byte ca, byte cb, byte &k) 944 | { 945 | byte n = cb - ca + 1; 946 | if (n > 0) { 947 | v->Cells[ca][fa] = 2 * k++ - 1; 948 | colTriangular2(v, fa, fb, ca + 1, cb, k); 949 | } 950 | } 951 | 952 | void filaTriangular2(TStringGrid *v, byte fa, byte fb, byte ca, byte cb, 953 | byte &k) { 954 | byte m = fb - fa + 1; 955 | if (m > 0) { 956 | colTriangular2(v, fa, fb, ca, cb, k); 957 | filaTriangular2(v, fa + 1, fb, ca - 1, cb, k); 958 | } 959 | } 960 | 961 | void __fastcall TForm1::triangular2n1Click(TObject *Sender) { 962 | byte n = StrToInt(InputBox("ORDEN", "nro: ", "")); 963 | StringGrid2->RowCount = n; 964 | StringGrid2->ColCount = n; 965 | byte k = 1; 966 | filaTriangular2(StringGrid2, 0, n - 1, n - 1, n - 1, k); 967 | } 968 | // --------------------------------------------------------------------------- 969 | 970 | void rellenarFila(TStringGrid *v, byte fa, byte fb, byte ca, byte cb) { 971 | byte n = cb - ca + 1; 972 | if (n > 0) { 973 | v->Cells[ca][fa] = fa + 1; 974 | v->Cells[ca][fb] = fa + 1; 975 | rellenarFila(v, fa, fb, ca + 1, cb); 976 | } 977 | } 978 | 979 | void rellenarCol(TStringGrid *v, byte ca, byte cb, byte fa, byte fb) { 980 | byte m = fb - fa + 1; 981 | if (m > 0) { 982 | v->Cells[ca][fa] = ca + 1; 983 | v->Cells[cb][fa] = ca + 1; 984 | rellenarCol(v, ca, cb, fa + 1, fb); 985 | } 986 | } 987 | 988 | void cargarCuadrado(TStringGrid *v, byte fa, byte fb, byte ca, byte cb) { 989 | byte m = fb - fa + 1; 990 | byte n = cb - ca + 1; 991 | if (m * n != 0) { 992 | if (m * n == 1) { 993 | v->Cells[ca][fa] = ca + 1; 994 | } 995 | else { 996 | rellenarFila(v, fa, fb, ca, cb); 997 | rellenarCol(v, ca, cb, fa, fb); 998 | cargarCuadrado(v, fa + 1, fb - 1, ca + 1, cb - 1); 999 | } 1000 | } 1001 | } 1002 | 1003 | void __fastcall TForm1::cuadrado1n1Click(TObject *Sender) { 1004 | byte n = StrToInt(InputBox("ORDEN", "nro: ", "")); 1005 | StringGrid2->RowCount = n; 1006 | StringGrid2->ColCount = n; 1007 | cargarCuadrado(StringGrid2, 0, n - 1, 0, n - 1); 1008 | } 1009 | // --------------------------------------------------------------------------- 1010 | 1011 | void cargarFilD1(TStringGrid *v, byte f, byte ca, byte cb, byte k) { 1012 | byte n = cb - ca + 1; 1013 | if (n > 0) { 1014 | v->Cells[ca][f] = k; 1015 | cargarFilD1(v, f, ca + 1, cb, k + 1); 1016 | } 1017 | } 1018 | 1019 | void cargarD1(TStringGrid *v, byte fa, byte fb, byte ca, byte cb, byte k) { 1020 | byte m = fb - fa + 1; 1021 | if (m > 0) { 1022 | cargarFilD1(v, fb, ca, cb, k); 1023 | cargarD1(v, fa, fb - 1, ca, cb, k + 1); 1024 | } 1025 | } 1026 | 1027 | void __fastcall TForm1::re1Click(TObject *Sender) { 1028 | byte m = StrToInt(InputBox("FILS", "nro: ", "")); 1029 | byte n = StrToInt(InputBox("COLS", "nro: ", "")); 1030 | StringGrid2->RowCount = m; 1031 | StringGrid2->ColCount = n; 1032 | cargarD1(StringGrid2, 0, m - 1, 0, n - 1, 1); 1033 | } 1034 | // --------------------------------------------------------------------------- 1035 | 1036 | void abajo(TStringGrid *v, byte fa, byte fb, byte c, byte &k) { 1037 | byte m = fb - fa + 1; 1038 | if (m > 0) { 1039 | v->Cells[c][fa] = k++; 1040 | abajo(v, fa + 1, fb, c, k); 1041 | } 1042 | } 1043 | 1044 | void derecha(TStringGrid *v, byte ca, byte cb, byte f, byte &k) { 1045 | byte n = cb - ca + 1; 1046 | if (n > 0) { 1047 | v->Cells[ca][f] = k++; 1048 | derecha(v, ca + 1, cb, f, k); 1049 | } 1050 | } 1051 | 1052 | void arriba(TStringGrid *v, byte fa, byte fb, byte c, byte &k) { 1053 | byte m = fb - fa + 1; 1054 | if (m > 0) { 1055 | v->Cells[c][fb] = k++; 1056 | arriba(v, fa, fb - 1, c, k); 1057 | } 1058 | } 1059 | 1060 | void izquierda(TStringGrid *v, byte ca, byte cb, byte f, byte &k) { 1061 | byte n = cb - ca + 1; 1062 | if (n > 0) { 1063 | v->Cells[cb][f] = k++; 1064 | izquierda(v, ca, cb - 1, f, k); 1065 | } 1066 | } 1067 | 1068 | void cargarCaracol(TStringGrid *v, byte fa, byte fb, byte ca, byte cb, byte &k) 1069 | { 1070 | byte m = fb - fa + 1; 1071 | byte n = cb - ca + 1; 1072 | if (m * n != 0) { 1073 | if (m * n == 1) { 1074 | v->Cells[ca][fa] = k; 1075 | } 1076 | else { 1077 | abajo(v, fa, fb - 1, ca, k); 1078 | derecha(v, ca, cb - 1, fb, k); 1079 | arriba(v, fa + 1, fb, cb, k); 1080 | izquierda(v, ca + 1, cb, fa, k); 1081 | cargarCaracol(v, fa + 1, fb - 1, ca + 1, cb - 1, k); 1082 | } 1083 | } 1084 | } 1085 | 1086 | void __fastcall TForm1::caracoln1Click(TObject *Sender) { 1087 | byte n = StrToInt(InputBox("ORDEN", "nro: ", "")); 1088 | StringGrid2->RowCount = n; 1089 | StringGrid2->ColCount = n; 1090 | byte k = 1; 1091 | cargarCaracol(StringGrid2, 0, n - 1, 0, n - 1, k); 1092 | } 1093 | // --------------------------------------------------------------------------- 1094 | void cargarColTri3(TStringGrid *v, byte f, byte ca, byte cb, byte k) { 1095 | byte n = cb - ca + 1; 1096 | if (n > 0) { 1097 | v->Cells[ca][f] = k; 1098 | if (k == 1) { 1099 | cargarColTri3(v, f, ca+1, cb, k); 1100 | }else { 1101 | cargarColTri3(v, f, ca+1, cb, k-1); 1102 | } 1103 | } 1104 | } 1105 | 1106 | void cargarFilaTri3(TStringGrid *v, byte fa, byte fb, byte ca, byte cb, byte k) 1107 | { 1108 | byte m = fb - fa + 1; 1109 | if (m > 0) { 1110 | cargarColTri3(v, fa, ca, cb, k); 1111 | cargarFilaTri3(v, fa + 1, fb, ca, cb, k - 1); 1112 | } 1113 | } 1114 | 1115 | void __fastcall TForm1::triangular3n1Click(TObject *Sender) { 1116 | byte n = StrToInt(InputBox("ORDEN", "nro: ", "")); 1117 | StringGrid2->RowCount = n; 1118 | StringGrid2->ColCount = n; 1119 | cargarFilaTri3(StringGrid2, 0, n - 1, 0, n - 1, n); 1120 | } 1121 | // --------------------------------------------------------------------------- 1122 | 1123 | void filSerpiente2(TStringGrid *v, byte c, byte fa, byte fb) { 1124 | byte M = v->RowCount; 1125 | byte m = fb -fa +1; 1126 | if (m > 0) { 1127 | if (c % 2 == 0) { 1128 | v->Cells[c][fa] = (c * M + (fa + 1)) * (c * M + (fa + 1)); 1129 | filSerpiente2(v, c, fa+1, fb); 1130 | }else { 1131 | v->Cells[c][fb] = ((c+1) * (M) - (fb))*((c+1) * (M) - (fb)); 1132 | filSerpiente2(v, c, fa, fb-1); 1133 | } 1134 | } 1135 | } 1136 | 1137 | void colSerpiente2( 1138 | TStringGrid *v, 1139 | byte fa, byte fb, byte ca, byte cb 1140 | ){ 1141 | byte n = cb -ca +1; 1142 | if (n > 0) { 1143 | filSerpiente2(v, ca, fa, fb); 1144 | colSerpiente2(v, fa, fb, ca+1, cb); 1145 | } 1146 | } 1147 | 1148 | void __fastcall TForm1::serpiente2mn1Click(TObject *Sender) 1149 | { 1150 | byte m = StrToInt(InputBox("FILS", "nro: ", "")); 1151 | byte n = StrToInt(InputBox("COLS", "nro: ", "")); 1152 | StringGrid2->RowCount = m; 1153 | StringGrid2->ColCount = n; 1154 | colSerpiente2(StringGrid2, 0, m - 1, 0, n - 1); 1155 | } 1156 | //--------------------------------------------------------------------------- 1157 | 1158 | void cargarFilCad1(TStringGrid *v, byte c, byte fa, byte fb, String &x 1159 | ){ 1160 | byte m = fb -fa +1; 1161 | if (m > 0) { 1162 | if (x != "") { 1163 | v->Cells[c][fa] = x.SubString(1,1); 1164 | x.Delete(1, 1); 1165 | }else { 1166 | v->Cells[c][fa] = ""; 1167 | } 1168 | cargarFilCad1(v, c, fa+1, fb, x); 1169 | } 1170 | } 1171 | 1172 | void cargarColCad1( 1173 | TStringGrid *v, 1174 | byte fa, byte fb, byte ca, byte cb, String &x 1175 | ) { 1176 | byte n = cb -ca +1; 1177 | if (n > 0) { 1178 | cargarFilCad1(v, ca, fa, fb, x); 1179 | cargarColCad1(v, fa, fb, ca+1, cb, x); 1180 | } 1181 | } 1182 | 1183 | void __fastcall TForm1::cargarcadena1mn1Click(TObject *Sender) 1184 | { 1185 | byte m = StrToInt(InputBox("FILS", "nro: ", "")); 1186 | byte n = StrToInt(InputBox("COLS", "nro: ", "")); 1187 | StringGrid2->RowCount = m; 1188 | StringGrid2->ColCount = n; 1189 | String x = InputBox("CADENA", "cad:", ""); 1190 | if (x.Length() <= m*n) { 1191 | cargarColCad1(StringGrid2, 0, m-1, 0, n-1, x); 1192 | }else { 1193 | ShowMessage("No carga la cadena"); 1194 | } 1195 | } 1196 | //--------------------------------------------------------------------------- 1197 | void cargarCadena2(TStringGrid *v, byte a, byte b, String x) 1198 | { 1199 | byte N = v->ColCount; 1200 | byte n = b -a +1; 1201 | if (n > 0) { 1202 | if (x != "") { 1203 | v->Cells[a%N][a/N] = String(x[1]); 1204 | cargarCadena2(v, a+1, b, x.Delete(1,1)); 1205 | }else { 1206 | v->Cells[a%N][a/N] = ""; 1207 | cargarCadena2(v, a+1, b, x); 1208 | } 1209 | } 1210 | } 1211 | 1212 | void __fastcall TForm1::cargarCadena2mn1Click(TObject *Sender) 1213 | { 1214 | byte m = StrToInt(InputBox("FILS", "nro: ", "")); 1215 | byte n = StrToInt(InputBox("COLS", "nro: ", "")); 1216 | StringGrid2->RowCount = m; 1217 | StringGrid2->ColCount = n; 1218 | String x = InputBox("CADENA", "cad:", ""); 1219 | if (x.Length() <= m*n) { 1220 | cargarCadena2(StringGrid2, 0, m*n -1, x); 1221 | }else { 1222 | ShowMessage("No carga la cadena"); 1223 | } 1224 | } 1225 | //--------------------------------------------------------------------------- 1226 | 1227 | void triangularFila3(TStringGrid *v, byte c, byte m, byte &k) 1228 | { 1229 | if (m > 0) { 1230 | if (c % 2 == 1) { 1231 | v->Cells[c][m-1] = k++; 1232 | triangularFila3(v, c, m-1, k); 1233 | }else { 1234 | triangularFila3(v, c, m-1, k); 1235 | v->Cells[c][m-1] = k++; 1236 | } 1237 | } 1238 | } 1239 | 1240 | void triangular3(TStringGrid *v, byte m, byte n, byte &k) 1241 | { 1242 | if (n > 0) { 1243 | triangular3(v, m+1, n-1, k); 1244 | triangularFila3(v, n-1, m, k); 1245 | } 1246 | } 1247 | 1248 | void __fastcall TForm1::triangular11Click(TObject *Sender) 1249 | { 1250 | byte n = StrToInt(InputBox("ORDEN", "nro: ", "")); 1251 | byte k = 1; 1252 | StringGrid2->RowCount = n; 1253 | StringGrid2->ColCount = n; 1254 | triangular3(StringGrid2, 1, n, k); 1255 | } 1256 | //--------------------------------------------------------------------------- 1257 | 1258 | void __fastcall TForm1::cargarCadenaVectorMatrizx1Click(TObject *Sender) 1259 | { 1260 | String x = InputBox("Cadena", "String: ", ""); 1261 | if (x != "") { 1262 | byte n = (int)sqrt(x.Length() -1 ) +1; 1263 | StringGrid2->ColCount = n; 1264 | StringGrid2->RowCount = n; 1265 | cargarCadenaMatrizVector( 1266 | StringGrid2, 1267 | 1268 | ); 1269 | }else{ 1270 | ShowMessage("Cadena Vacia -> Matriz []"); 1271 | } 1272 | } 1273 | //--------------------------------------------------------------------------- 1274 | 1275 | -------------------------------------------------------------------------------- /__history/Unit1.cpp.~177~: -------------------------------------------------------------------------------- 1 | // --------------------------------------------------------------------------- 2 | 3 | #include 4 | #include 5 | 6 | #pragma hdrstop 7 | 8 | #include "Unit1.h" 9 | // --------------------------------------------------------------------------- 10 | #pragma package(smart_init) 11 | #pragma resource "*.dfm" 12 | TForm1 *Form1; 13 | 14 | // --------------------------------------------------------------------------- 15 | __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { 16 | } 17 | 18 | Cardinal factorial(byte n) { 19 | Cardinal f; 20 | if (n == 0) { 21 | f = 1; 22 | } 23 | else { 24 | f = n * factorial(n - 1); 25 | } 26 | return f; 27 | } 28 | 29 | // --------------------------------------------------------------------------- 30 | void __fastcall TForm1::factorialn1Click(TObject *Sender) { 31 | byte n = StrToInt(InputBox("Factorial", "nro", "")); 32 | Cardinal f = factorial(n); 33 | ShowMessage(f); 34 | } 35 | 36 | // --------------------------------------------------------------------------- 37 | 38 | /* 39 | 0 < n < 10 40 | auxPotencia(2) => 22 41 | auxPotencia(3) => 333 42 | auxPotencia(4) => 4444 43 | */ 44 | Cardinal auxPotencia(byte n) { 45 | return (int)(pow(10, n) - 1) / 9 * n; 46 | } 47 | 48 | Cardinal potencia(Cardinal n) { 49 | Cardinal p; 50 | if (n < 10) { 51 | p = auxPotencia(n); 52 | } 53 | else { 54 | p = potencia(n / 10); 55 | Cardinal d = auxPotencia(n % 10); 56 | p = p * (int)pow(10, n % 10) + d; 57 | } 58 | return p; 59 | } 60 | 61 | void __fastcall TForm1::potencian1Click(TObject *Sender) { 62 | Cardinal n = StrToInt(InputBox("Potencia", "nro", "")); 63 | Cardinal f = potencia(n); 64 | ShowMessage(f); 65 | } 66 | 67 | byte digitoMayorMenor(Cardinal n) { 68 | byte m; 69 | if (n < 10) { 70 | m = n * 11; 71 | } 72 | else { 73 | m = digitoMayorMenor(n / 10); 74 | byte d = n % 10; 75 | if (d < m % 10) { 76 | m = (m / 10) * 10 + d; 77 | } 78 | if (d > m / 10) { 79 | m = d * 10 + m % 10; 80 | } 81 | } 82 | return m; 83 | } 84 | 85 | // --------------------------------------------------------------------------- 86 | void __fastcall TForm1::mayorMenorn1Click(TObject *Sender) { 87 | Cardinal n = StrToInt(InputBox("DigitoMayorMenor", "nro", "")); 88 | byte m = digitoMayorMenor(n); 89 | ShowMessage(m); 90 | } 91 | 92 | // --------------------------------------------------------------------------- 93 | 94 | byte cantidadDigitos(Cardinal n) { 95 | byte c; 96 | if (n == 0) { 97 | c = 1; 98 | } 99 | else { 100 | c = (int)log10(10 * n); 101 | } 102 | return c; 103 | } 104 | 105 | void invertir(Cardinal &n) { 106 | if (n > 9) { 107 | Cardinal d = n % 10; 108 | n /= 10; 109 | invertir(n); 110 | n = d * (int)pow(10, cantidadDigitos(n)) + n; 111 | } 112 | } 113 | 114 | void __fastcall TForm1::invertirn1Click(TObject *Sender) { 115 | Cardinal n = StrToInt(InputBox("invertir", "nro", "")); 116 | invertir(n); 117 | ShowMessage(n); 118 | } 119 | 120 | // --------------------------------------------------------------------------- 121 | void moverMayorFinal(Cardinal &n) { 122 | if (n > 9) { 123 | byte d = n % 10; 124 | n /= 10; 125 | moverMayorFinal(n); 126 | if (n % 10 > d) { 127 | n = (n / 10) * 100 + d * 10 + n % 10; 128 | } 129 | else { 130 | n = n * 10 + d; 131 | } 132 | } 133 | } 134 | 135 | byte digitoMayor(Cardinal n) { 136 | byte d; 137 | if (n < 10) { 138 | d = n; 139 | } 140 | else { 141 | d = digitoMayor(n / 10); 142 | if (n % 10 > d) { 143 | d = n % 10; 144 | } 145 | } 146 | return d; 147 | } 148 | 149 | void eliminarDigito(Cardinal &n, byte d, bool &elimino) { 150 | if (n > 0) { 151 | byte p = n % 10; 152 | n /= 10; 153 | eliminarDigito(n, d, elimino); 154 | if (elimino) { 155 | n = n * 10 + p; 156 | } 157 | else { 158 | if (p == d) { 159 | elimino = true; 160 | } 161 | else { 162 | n = n * 10 + p; 163 | } 164 | } 165 | } 166 | } 167 | 168 | byte sumaDigitosBinarios(byte a, byte b) { 169 | return (a + b) / 2 * 10 + (a + b) % 2; 170 | } 171 | 172 | Cardinal sumaBinaria(Cardinal a, Cardinal b, byte c = 0) { 173 | Cardinal s; 174 | byte d = sumaDigitosBinarios(a % 10, b % 10); 175 | d = (d / 10) * 10 + sumaDigitosBinarios(d % 10, c); 176 | if (a < 2 && b < 2) { 177 | s = d; 178 | } 179 | else { 180 | s = sumaBinaria(a / 10, b / 10, d / 10); 181 | s = s * 10 + d % 10; 182 | } 183 | return s; 184 | } 185 | 186 | void __fastcall TForm1::moverMayorFinal1Click(TObject * Sender) { 187 | Cardinal n = StrToInt(InputBox("invertir", "nro", "")); 188 | byte d = digitoMayor(n); 189 | bool elimino = false; 190 | eliminarDigito(n, d, elimino); 191 | n = n * 10 + d; 192 | // moverMayorFinal(n); 193 | ShowMessage(n); 194 | } 195 | 196 | // --------------------------------------------------------------------------- 197 | void __fastcall TForm1::sumaBinariaab1Click(TObject *Sender) { 198 | Cardinal a = StrToInt(InputBox("Suma Binario", "A :", "")); 199 | Cardinal b = StrToInt(InputBox("Suma Binario", "B :", "")); 200 | Cardinal s = sumaBinaria(a, b); 201 | ShowMessage(s); 202 | } 203 | // --------------------------------------------------------------------------- 204 | 205 | String w = "0123456789ABCDEF"; 206 | 207 | String DecimalBaseK(Cardinal n, byte k) { 208 | String s; 209 | if (n < k) { 210 | s = String(w[n + 1]); 211 | } 212 | else { 213 | s = DecimalBaseK(n / k, k) + w[n % k + 1]; 214 | } 215 | return s; 216 | } 217 | 218 | void __fastcall TForm1::toBinn1Click(TObject *Sender) { 219 | Cardinal n = StrToInt(InputBox("Decimal", "nro :", "")); 220 | byte k = StrToInt(InputBox("Base", "nro :", "")); 221 | String s = DecimalBaseK(n, k); 222 | ShowMessage(s); 223 | } 224 | 225 | // --------------------------------------------------------------------------- 226 | void moverMenorFinal(Cardinal &n) { 227 | if (n > 9) { 228 | byte d = n % 10; 229 | n /= 10; 230 | moverMenorFinal(n); 231 | if (n % 10 < d) { 232 | n = (n / 10) * 100 + d * 10 + n % 10; 233 | } 234 | else { 235 | n = n * 10 + d; 236 | } 237 | } 238 | } 239 | 240 | void ordenar(Cardinal &n) { 241 | if (n > 9) { 242 | moverMenorFinal(n); 243 | byte d = n % 10; 244 | n /= 10; 245 | ordenar(n); 246 | n = n * 10 + d; 247 | } 248 | } 249 | 250 | void __fastcall TForm1::ordenarn1Click(TObject *Sender) { 251 | Cardinal n = StrToInt(InputBox("Ordenar", "nro :", "")); 252 | ordenar(n); 253 | ShowMessage(n); 254 | } 255 | 256 | // --------------------------------------------------------------------------- 257 | void invertir(String &x) { 258 | int n = x.Length(); 259 | if (x != "") { 260 | if (n > 1) { 261 | wchar_t a = x[1]; 262 | wchar_t b = x[n]; 263 | x.Delete(n, 1); 264 | x.Delete(1, 1); 265 | invertir(x); 266 | x = String(b) + x + a; 267 | } 268 | } 269 | } 270 | 271 | void __fastcall TForm1::invertirn2Click(TObject *Sender) { 272 | /* 273 | "" => "" 274 | a => a 275 | ab => ba 276 | abc => cba 277 | 278 | 279 | x = abcd 280 | a,d 281 | x = cb 282 | => d-cb-a 283 | -------- 284 | x = bc 285 | b,c 286 | => c-""-b 287 | -------- 288 | x = "" 289 | x = "a" 290 | */ 291 | String x = InputBox("Invertir", "cad :", ""); 292 | invertir(x); 293 | ShowMessage(x); 294 | } 295 | 296 | // --------------------------------------------------------------------------- 297 | byte contarPalabras(String x) { 298 | byte c; 299 | if (x == "") { 300 | c = 0; 301 | } 302 | else if (x.Length() == 1) { 303 | c = 0; 304 | if (x[1] != ' ') { 305 | c++; 306 | } 307 | } 308 | else { 309 | c = 0; 310 | if (x[1] != ' ' && x[2] == ' ') { 311 | c++; 312 | } 313 | x.Delete(1, 1); 314 | c += contarPalabras(x); 315 | } 316 | return c; 317 | } 318 | 319 | void __fastcall TForm1::cantidadPalabrasx1Click(TObject *Sender) { 320 | /* 321 | if (x[i] != ' ' y x[i+1] == ' ') 322 | c++ 323 | x = hola_mundo_ ?? => 2 324 | */ 325 | String x = InputBox("ContarPalabras", "cad :", ""); 326 | byte c = contarPalabras(x); 327 | ShowMessage(c); 328 | } 329 | 330 | // --------------------------------------------------------------------------- 331 | bool esVocal(wchar_t z) { 332 | /* 333 | z = m >> w.Pos(z) = 0 334 | z = p >> w.Pos(z) = 0 335 | z = A >> w.Pos(z) = 6 336 | z = a >> w.Pos(z) = 1 337 | */ 338 | String w = "aeiouAEIOU"; 339 | return w.Pos(z) > 0; 340 | } 341 | 342 | void eliminarVocales(String &x) { 343 | if (x != "") { 344 | wchar_t z = x[1]; 345 | x.Delete(1, 1); 346 | eliminarVocales(x); 347 | if (!esVocal(z)) { 348 | x = String(z) + x; 349 | } 350 | } 351 | } 352 | 353 | void __fastcall TForm1::eliminarVocalesx1Click(TObject *Sender) { 354 | /* 355 | "" ==> "" 356 | "a" ==> "" 357 | "hola " => "hl " 358 | 359 | x = ho_ 360 | c = h 361 | c??esVocal 362 | x=h_ 363 | ---------------- 364 | x = o_ 365 | c = o 366 | c??esVocal 367 | => x=_ 368 | ---------------- 369 | x = _ 370 | c = _ 371 | c??esVocal 372 | => x=_ 373 | ---------------- 374 | x = "" 375 | */ 376 | String x = InputBox("EliminarVocales", "cad :", ""); 377 | eliminarVocales(x); 378 | ShowMessage(x); 379 | } 380 | 381 | // --------------------------------------------------------------------------- 382 | String palabraMasLarga(String x) { 383 | int n = x.Length(); 384 | String palMax = ""; 385 | if (n > 0) { 386 | int p = x.LastDelimiter(" "); 387 | String pal = x.SubString(p + 1, n - p); 388 | x.SetLength(p - 1); 389 | palMax = palabraMasLarga(x); 390 | if (pal.Length() > palMax.Length()) { 391 | palMax = pal; 392 | } 393 | } 394 | return palMax; 395 | } 396 | 397 | void __fastcall TForm1::palabraMasLargax1Click(TObject *Sender) { 398 | /* 399 | "" => "" 400 | hola => hola 401 | pedro mundo => mundo 402 | // 403 | n = 10 404 | p = 5 405 | x = hola_mundo 406 | p+1 = 6 407 | n-p = 5 408 | pal = mundo 409 | 410 | x.setLength(4); 411 | => x = hola 412 | n = 4 413 | x = hola mundo 414 | x.setLength(3) => x = hol 415 | x.setLength(2) => x = ho 416 | x.setLength(1) => x = h 417 | x.setLength(0) => x = 418 | */ 419 | String x = InputBox("Palabra+Larga", "cad :", ""); 420 | String p = palabraMasLarga(x); 421 | ShowMessage(p); 422 | } 423 | 424 | // --------------------------------------------------------------------------- 425 | bool estaOrdenadoAsc(Cardinal n) { 426 | bool h; 427 | if (n < 10) { 428 | h = true; 429 | } 430 | else { 431 | byte d = n % 10; 432 | n /= 10; 433 | // h = estaOrdenadoAsc(n) && !(n%10 > d); 434 | h = estaOrdenadoAsc(n); 435 | if (n % 10 > d) { 436 | h = false; 437 | } 438 | } 439 | return h; 440 | } 441 | 442 | bool estaOrdenadoDesc(Cardinal n) { 443 | bool h; 444 | if (n < 10) { 445 | h = true; 446 | } 447 | else { 448 | byte d = n % 10; 449 | n /= 10; 450 | // h = estaOrdenadoAsc(n) && !(n%10 > d); 451 | h = estaOrdenadoDesc(n); 452 | if (n % 10 < d) { 453 | h = false; 454 | } 455 | } 456 | return h; 457 | } 458 | 459 | void __fastcall TForm1::estaOrdenadon1Click(TObject *Sender) { 460 | /* 461 | 1234 462 | 1 => true 463 | 213 => false 464 | 123 => true 465 | 12 => true 466 | 467 | n = 123 468 | --------------- 469 | n = 12 470 | d = 3 471 | h = true 472 | if d >= n %10 473 | h = true 474 | else 475 | false 476 | --------------- 477 | n = 1 => true 478 | 479 | */ 480 | Cardinal n = StrToInt(InputBox("EstaOrdenado", "cad :", "")); 481 | bool ordenado = estaOrdenadoAsc(n) || estaOrdenadoDesc(n); 482 | ShowMessage(ordenado ? "true" : "false"); 483 | } 484 | // --------------------------------------------------------------------------- 485 | 486 | void eliminarPrimerLetra(String &x) { 487 | byte n = x.Length(); 488 | if (x != "") { 489 | byte p = x.LastDelimiter(" "); 490 | String w = x.SubString(p + 1, n - p); 491 | x.SetLength(p - 1); 492 | eliminarPrimerLetra(x); 493 | if (w != "") { 494 | w.Delete(1, 1); 495 | } 496 | x = x + " " + w; 497 | } 498 | } 499 | 500 | void __fastcall TForm1::eliminarPrimerLetrax1Click(TObject *Sender) { 501 | 502 | String x = InputBox("Eliminar1erLetra", "cad :", ""); 503 | eliminarPrimerLetra(x); 504 | ShowMessage(x); 505 | } 506 | // --------------------------------------------------------------------------- 507 | 508 | void invertirPalabras(String &x) { 509 | byte n = x.Length(); 510 | if (n > 0) { 511 | byte p = x.LastDelimiter(" "); 512 | String w = x.SubString(p + 1, n - p); 513 | x.SetLength(p - 1); 514 | invertirPalabras(x); 515 | invertir(w); 516 | x = x + " " + w; 517 | } 518 | } 519 | 520 | void __fastcall TForm1::invertirPalabras1Click(TObject *Sender) { 521 | String x = InputBox("Invertir Palabras", "cad :", ""); 522 | invertirPalabras(x); 523 | ShowMessage(x); 524 | } 525 | 526 | // --------------------------------------------------------------------------- 527 | Cardinal fibonacci(Word n) { 528 | Cardinal t; 529 | if (n < 2) { 530 | t = n; 531 | } 532 | else { 533 | t = fibonacci(n - 1) + fibonacci(n - 2); 534 | } 535 | return t; 536 | } 537 | 538 | void __fastcall TForm1::fibonaccit1Click(TObject *Sender) { 539 | Word t = StrToInt(InputBox("Invertir Palabras", "cad :", "")); 540 | Cardinal fibo = fibonacci(t); 541 | ShowMessage(fibo); 542 | } 543 | // --------------------------------------------------------------------------- 544 | 545 | Cardinal serie1(Word n) { 546 | Cardinal t; 547 | if (n < 2) { 548 | t = n; 549 | } 550 | else { 551 | t = serie1(n - 1); 552 | if (n % 2 == 0) { 553 | t *= 2; 554 | } 555 | else { 556 | t++; 557 | } 558 | } 559 | return t; 560 | } 561 | 562 | void __fastcall TForm1::serie1t1Click(TObject *Sender) { 563 | Word n = StrToInt(InputBox("Serie 1", "term :", "")); 564 | Cardinal t = serie1(n); 565 | ShowMessage(t); 566 | } 567 | 568 | // --------------------------------------------------------------------------- 569 | Cardinal sumaSerie(Word n) { 570 | Cardinal s; 571 | if (n == 1) { 572 | s = 0; 573 | } 574 | else { 575 | s = sumaSerie(n - 1); 576 | s += 2*(n - 1); 577 | } 578 | return s; 579 | } 580 | 581 | void __fastcall TForm1::sumaSerien1Click(TObject *Sender) { 582 | Word n = StrToInt(InputBox("Suma Serie", "term :", "")); 583 | Cardinal s = sumaSerie(n); 584 | ShowMessage(s); 585 | } 586 | 587 | // --------------------------------------------------------------------------- 588 | Cardinal serie2(Word n) { 589 | Cardinal t; 590 | if (n < 2) { 591 | t = n; 592 | } 593 | else { 594 | t = serie2(n - 1) * 2 + 1; 595 | } 596 | return t; 597 | // return (int)pow(2, n)-1; 598 | } 599 | 600 | void __fastcall TForm1::serie2n1Click(TObject *Sender) { 601 | Word n = StrToInt(InputBox("SERIE 2", "term :", "")); 602 | Cardinal s = serie2(n); 603 | ShowMessage(s); 604 | } 605 | 606 | // --------------------------------------------------------------------------- 607 | Cardinal sumaSerie2(Word n, Cardinal &s) { 608 | Cardinal t; 609 | if (n < 2) { 610 | t = n; 611 | } 612 | else { 613 | t = sumaSerie2(n - 1, s); 614 | if (n % 3 == 0) { 615 | t += 2; 616 | } 617 | else if (n % 3 == 1) { 618 | t++; 619 | } 620 | else { 621 | t *= 2; 622 | } 623 | 624 | if (t % 2 == 0) { 625 | s += t; 626 | } 627 | } 628 | return t; 629 | } 630 | 631 | void __fastcall TForm1::sumaSerie2n1Click(TObject *Sender) { 632 | Word n = StrToInt(InputBox("Suma Serie2", "cad :", "")); 633 | Cardinal s = 0; 634 | Cardinal t = sumaSerie2(n, s); 635 | ShowMessage(s); 636 | } 637 | 638 | // --------------------------------------------------------------------------- 639 | byte cantidadPares(Cardinal n) { 640 | byte c; 641 | if (n < 10) { 642 | c = (n % 2 == 0) ? 1 : 0; 643 | } 644 | else { 645 | c = cantidadPares(n / 10) + cantidadPares(n % 10); 646 | } 647 | return c; 648 | } 649 | 650 | void __fastcall TForm1::DigitosParesn1Click(TObject *Sender) { 651 | Cardinal n = StrToInt(InputBox("Cantidad Digitos Pares", "cad :", "")); 652 | byte c = cantidadPares(n); 653 | ShowMessage(c); 654 | } 655 | 656 | // --------------------------------------------------------------------------- 657 | Word sumaPares(Cardinal n) { 658 | Word s; 659 | if (n < 10) { 660 | s = (n % 2 == 0) ? n : 0; 661 | } 662 | else { 663 | s = sumaPares(n / 10) + sumaPares(n % 10); 664 | } 665 | return s; 666 | } 667 | 668 | void __fastcall TForm1::SumaDigitosParesn1Click(TObject *Sender) { 669 | Cardinal n = StrToInt(InputBox("Cantidad Digitos Pares", "cad :", "")); 670 | Word s = sumaPares(n); 671 | ShowMessage(s); 672 | } 673 | 674 | // --------------------------------------------------------------------------- 675 | byte parAntesImpar(Cardinal n) { 676 | byte c; 677 | if (n < 10) { 678 | c = 0; 679 | } 680 | else if (n < 100) { 681 | if ((n / 10) % 2 == 0 && (n % 10) % 2 == 1) { 682 | c = 1; 683 | } 684 | else { 685 | c = 0; 686 | } 687 | } 688 | else { 689 | c = parAntesImpar(n / 10) + parAntesImpar(n % 100); 690 | } 691 | return c; 692 | } 693 | 694 | void __fastcall TForm1::parAntesImparn1Click(TObject *Sender) { 695 | Cardinal n = StrToInt(InputBox("Par antes Impar", "cad :", "")); 696 | byte c = parAntesImpar(n); 697 | ShowMessage(c); 698 | } 699 | 700 | // --------------------------------------------------------------------------- 701 | float sumaSerie3(Word n) { 702 | float s; 703 | if (n < 2) { 704 | s = n; 705 | } 706 | else { 707 | s = sumaSerie3(n - 1); 708 | float p = pow(2, n); 709 | s += p / (p - 1); 710 | } 711 | return s; 712 | } 713 | 714 | void __fastcall TForm1::sumaSerie3n1Click(TObject *Sender) { 715 | Word n = StrToInt(InputBox("SumaSerie3", "term :", "")); 716 | float s = sumaSerie3(n); 717 | ShowMessage(s); 718 | } 719 | 720 | // --------------------------------------------------------------------------- 721 | void cargarVector(TStringGrid *v, byte n) { 722 | if (n > 0) { 723 | v->Cells[n - 1][0] = Random(20); 724 | cargarVector(v, n - 1); 725 | } 726 | } 727 | 728 | void __fastcall TForm1::cargarn1Click(TObject *Sender) { 729 | byte n = StrToInt(InputBox("Longitud", "nro :", "")); 730 | StringGrid1->ColCount = n; 731 | cargarVector(StringGrid1, n); 732 | // cargar vector randomicamente 733 | } 734 | // --------------------------------------------------------------------------- 735 | 736 | Cardinal sumaPares(TStringGrid *v, byte n) { 737 | Cardinal s; 738 | if (n == 1) { 739 | s = StrToInt(v->Cells[0][0]); 740 | if (s % 2 == 1) { 741 | s = 0; 742 | } 743 | } 744 | else { 745 | s = sumaPares(v, n - 1); 746 | byte k = StrToInt(v->Cells[n - 1][0]); 747 | if (k % 2 == 0) { 748 | s += k; 749 | } 750 | } 751 | return s; 752 | } 753 | 754 | void __fastcall TForm1::sumaPares1Click(TObject *Sender) { 755 | // suponemos que el vector esta cargado 756 | Cardinal s = sumaPares(StringGrid1, StringGrid1->ColCount); 757 | ShowMessage(s); 758 | } 759 | 760 | // --------------------------------------------------------------------------- 761 | void invertir(TStringGrid *v, byte a, byte b) { 762 | byte n = b - a + 1; 763 | if (n > 0) { 764 | String va = v->Cells[a][0]; 765 | String vb = v->Cells[b][0]; 766 | v->Cells[a][0] = vb; 767 | v->Cells[b][0] = va; 768 | invertir(v, a + 1, b - 1); 769 | } 770 | } 771 | 772 | void __fastcall TForm1::invertir1Click(TObject *Sender) { 773 | byte n = StringGrid1->ColCount; 774 | invertir(StringGrid1, 0, n - 1); 775 | } 776 | 777 | // --------------------------------------------------------------------------- 778 | void cargarVectorCadena(TStringGrid *v, byte n, String x) { 779 | byte nx = x.Length(); 780 | if (n > 0) { 781 | int p = x.LastDelimiter(" "); 782 | String pal = x.SubString(p + 1, nx - p); 783 | x.SetLength(p - 1); 784 | v->Cells[n - 1][0] = pal; 785 | cargarVectorCadena(v, n - 1, x); 786 | } 787 | } 788 | 789 | void __fastcall TForm1::cargarPalabrasx1Click(TObject *Sender) { 790 | String x = InputBox("cadena", "cad :", ""); 791 | byte n = contarPalabras(x); 792 | StringGrid1->ColCount = n; 793 | cargarVectorCadena(StringGrid1, n, x); 794 | ShowMessage(n); 795 | } 796 | // --------------------------------------------------------------------------- 797 | 798 | void cargarVector100(TStringGrid *v, byte n, Cardinal x) { 799 | if (n > 0) { 800 | v->Cells[n - 1][0] = x % 100; 801 | cargarVector100(v, n - 1, x / 100); 802 | } 803 | } 804 | 805 | void __fastcall TForm1::cargarVector1001Click(TObject *Sender) { 806 | Cardinal nro = StrToInt(InputBox("Nro", "nro :", "")); 807 | byte c = cantidadDigitos(nro); 808 | c = (c - 1) / 2 + 1; 809 | StringGrid1->ColCount = c; 810 | cargarVector100(StringGrid1, c, nro); 811 | } 812 | // --------------------------------------------------------------------------- 813 | 814 | String generarCadenaNroInv(TStringGrid *v, byte a, byte b) { 815 | String x; 816 | byte n = b - a + 1; 817 | if (n < 1) { 818 | x = ""; 819 | } 820 | else { 821 | x = v->Cells[a][0]; 822 | invertir(x); 823 | x = x + generarCadenaNroInv(v, a + 1, b); 824 | } 825 | return x; 826 | } 827 | 828 | void __fastcall TForm1::cadenaNroInv1Click(TObject *Sender) { 829 | byte n = StringGrid1->ColCount; 830 | String x = generarCadenaNroInv(StringGrid1, 0, n - 1); 831 | ShowMessage(x); 832 | } 833 | // --------------------------------------------------------------------------- 834 | 835 | Cardinal CargarSerie(TStringGrid *v, byte n) { 836 | Cardinal t; 837 | if (n < 2) { 838 | t = n * 2; 839 | } 840 | else { 841 | t = CargarSerie(v, n - 1); 842 | if (n % 2 == 0) { 843 | t += (n - 1)*2; 844 | } 845 | else { 846 | t *= (n - 1)*2; 847 | } 848 | } 849 | 850 | if (n > 0) { 851 | v->Cells[n - 1][0] = t; 852 | } 853 | return t; 854 | } 855 | 856 | void __fastcall TForm1::cargarSerie1Click(TObject *Sender) { 857 | byte n = StrToInt(InputBox("Longitud", "nro: ", "")); 858 | StringGrid1->ColCount = n; 859 | Cardinal t = CargarSerie(StringGrid1, n); 860 | ShowMessage(t); 861 | } 862 | // --------------------------------------------------------------------------- 863 | 864 | Cardinal suma(TStringGrid *v, byte n) { 865 | Cardinal s = 0; 866 | if (n > 0) { 867 | s = StrToInt(v->Cells[n - 1][0]); 868 | s += suma(v, n - 1); 869 | } 870 | return s; 871 | } 872 | 873 | void __fastcall TForm1::suman1Click(TObject *Sender) { 874 | byte n = StrToInt(InputBox("SUMA", "nro: ", "")); 875 | Cardinal s = suma(StringGrid1, n); 876 | ShowMessage(s); 877 | } 878 | // --------------------------------------------------------------------------- 879 | 880 | void columnaSerpiente(TStringGrid *v, byte fa, byte fb, byte ca, byte cb, 881 | byte &k) { 882 | byte n = cb - ca + 1; 883 | if (n > 0) { 884 | if (fa % 2 == 1) { 885 | v->Cells[ca][fa] = k++; 886 | columnaSerpiente(v, fa, fb, ca + 1, cb, k); 887 | } 888 | else { 889 | v->Cells[cb][fa] = k++; 890 | columnaSerpiente(v, fa, fb, ca, cb - 1, k); 891 | } 892 | } 893 | } 894 | 895 | void filaSerpiente(TStringGrid *v, byte fa, byte fb, byte ca, byte cb, byte &k) 896 | { 897 | byte m = fb - fa + 1; 898 | if (m > 0) { 899 | columnaSerpiente(v, fa, fb, ca, cb, k); 900 | filaSerpiente(v, fa + 1, fb, ca, cb, k); 901 | } 902 | } 903 | 904 | void __fastcall TForm1::serpiente1Click(TObject *Sender) { 905 | byte m = StrToInt(InputBox("FILS", "nro: ", "")); 906 | byte n = StrToInt(InputBox("COLS", "nro: ", "")); 907 | byte k = 1; 908 | StringGrid2->RowCount = m; 909 | StringGrid2->ColCount = n; 910 | filaSerpiente(StringGrid2, 0, m - 1, 0, n - 1, k); 911 | } 912 | // --------------------------------------------------------------------------- 913 | 914 | void colTriangular1(TStringGrid *v, byte fa, byte fb, byte ca, byte cb) { 915 | byte n = cb - ca + 1; 916 | if (n > 0) { 917 | v->Cells[ca][fa] = fa + 1; 918 | colTriangular1(v, fa, fb, ca + 1, cb); 919 | } 920 | } 921 | 922 | void filaTriangular1(TStringGrid *v, byte fa, byte fb, byte ca, byte cb) { 923 | byte m = fb - fa + 1; 924 | if (m > 0) { 925 | colTriangular1(v, fa, fb, ca, cb); 926 | filaTriangular1(v, fa + 1, fb, ca + 1, cb); 927 | } 928 | } 929 | 930 | void __fastcall TForm1::triangular1n1Click(TObject *Sender) { 931 | byte n = StrToInt(InputBox("ORDEN", "nro: ", "")); 932 | // 933 | StringGrid2->RowCount = 0; 934 | StringGrid2->ColCount = 0; 935 | // 936 | StringGrid2->ColCount = n; 937 | StringGrid2->RowCount = n; 938 | StringGrid2->ColCount = n; 939 | filaTriangular1(StringGrid2, 0, n - 1, 0, n - 1); 940 | } 941 | // --------------------------------------------------------------------------- 942 | 943 | void colTriangular2(TStringGrid *v, byte fa, byte fb, byte ca, byte cb, byte &k) 944 | { 945 | byte n = cb - ca + 1; 946 | if (n > 0) { 947 | v->Cells[ca][fa] = 2 * k++ - 1; 948 | colTriangular2(v, fa, fb, ca + 1, cb, k); 949 | } 950 | } 951 | 952 | void filaTriangular2(TStringGrid *v, byte fa, byte fb, byte ca, byte cb, 953 | byte &k) { 954 | byte m = fb - fa + 1; 955 | if (m > 0) { 956 | colTriangular2(v, fa, fb, ca, cb, k); 957 | filaTriangular2(v, fa + 1, fb, ca - 1, cb, k); 958 | } 959 | } 960 | 961 | void __fastcall TForm1::triangular2n1Click(TObject *Sender) { 962 | byte n = StrToInt(InputBox("ORDEN", "nro: ", "")); 963 | StringGrid2->RowCount = n; 964 | StringGrid2->ColCount = n; 965 | byte k = 1; 966 | filaTriangular2(StringGrid2, 0, n - 1, n - 1, n - 1, k); 967 | } 968 | // --------------------------------------------------------------------------- 969 | 970 | void rellenarFila(TStringGrid *v, byte fa, byte fb, byte ca, byte cb) { 971 | byte n = cb - ca + 1; 972 | if (n > 0) { 973 | v->Cells[ca][fa] = fa + 1; 974 | v->Cells[ca][fb] = fa + 1; 975 | rellenarFila(v, fa, fb, ca + 1, cb); 976 | } 977 | } 978 | 979 | void rellenarCol(TStringGrid *v, byte ca, byte cb, byte fa, byte fb) { 980 | byte m = fb - fa + 1; 981 | if (m > 0) { 982 | v->Cells[ca][fa] = ca + 1; 983 | v->Cells[cb][fa] = ca + 1; 984 | rellenarCol(v, ca, cb, fa + 1, fb); 985 | } 986 | } 987 | 988 | void cargarCuadrado(TStringGrid *v, byte fa, byte fb, byte ca, byte cb) { 989 | byte m = fb - fa + 1; 990 | byte n = cb - ca + 1; 991 | if (m * n != 0) { 992 | if (m * n == 1) { 993 | v->Cells[ca][fa] = ca + 1; 994 | } 995 | else { 996 | rellenarFila(v, fa, fb, ca, cb); 997 | rellenarCol(v, ca, cb, fa, fb); 998 | cargarCuadrado(v, fa + 1, fb - 1, ca + 1, cb - 1); 999 | } 1000 | } 1001 | } 1002 | 1003 | void __fastcall TForm1::cuadrado1n1Click(TObject *Sender) { 1004 | byte n = StrToInt(InputBox("ORDEN", "nro: ", "")); 1005 | StringGrid2->RowCount = n; 1006 | StringGrid2->ColCount = n; 1007 | cargarCuadrado(StringGrid2, 0, n - 1, 0, n - 1); 1008 | } 1009 | // --------------------------------------------------------------------------- 1010 | 1011 | void cargarFilD1(TStringGrid *v, byte f, byte ca, byte cb, byte k) { 1012 | byte n = cb - ca + 1; 1013 | if (n > 0) { 1014 | v->Cells[ca][f] = k; 1015 | cargarFilD1(v, f, ca + 1, cb, k + 1); 1016 | } 1017 | } 1018 | 1019 | void cargarD1(TStringGrid *v, byte fa, byte fb, byte ca, byte cb, byte k) { 1020 | byte m = fb - fa + 1; 1021 | if (m > 0) { 1022 | cargarFilD1(v, fb, ca, cb, k); 1023 | cargarD1(v, fa, fb - 1, ca, cb, k + 1); 1024 | } 1025 | } 1026 | 1027 | void __fastcall TForm1::re1Click(TObject *Sender) { 1028 | byte m = StrToInt(InputBox("FILS", "nro: ", "")); 1029 | byte n = StrToInt(InputBox("COLS", "nro: ", "")); 1030 | StringGrid2->RowCount = m; 1031 | StringGrid2->ColCount = n; 1032 | cargarD1(StringGrid2, 0, m - 1, 0, n - 1, 1); 1033 | } 1034 | // --------------------------------------------------------------------------- 1035 | 1036 | void abajo(TStringGrid *v, byte fa, byte fb, byte c, byte &k) { 1037 | byte m = fb - fa + 1; 1038 | if (m > 0) { 1039 | v->Cells[c][fa] = k++; 1040 | abajo(v, fa + 1, fb, c, k); 1041 | } 1042 | } 1043 | 1044 | void derecha(TStringGrid *v, byte ca, byte cb, byte f, byte &k) { 1045 | byte n = cb - ca + 1; 1046 | if (n > 0) { 1047 | v->Cells[ca][f] = k++; 1048 | derecha(v, ca + 1, cb, f, k); 1049 | } 1050 | } 1051 | 1052 | void arriba(TStringGrid *v, byte fa, byte fb, byte c, byte &k) { 1053 | byte m = fb - fa + 1; 1054 | if (m > 0) { 1055 | v->Cells[c][fb] = k++; 1056 | arriba(v, fa, fb - 1, c, k); 1057 | } 1058 | } 1059 | 1060 | void izquierda(TStringGrid *v, byte ca, byte cb, byte f, byte &k) { 1061 | byte n = cb - ca + 1; 1062 | if (n > 0) { 1063 | v->Cells[cb][f] = k++; 1064 | izquierda(v, ca, cb - 1, f, k); 1065 | } 1066 | } 1067 | 1068 | void cargarCaracol(TStringGrid *v, byte fa, byte fb, byte ca, byte cb, byte &k) 1069 | { 1070 | byte m = fb - fa + 1; 1071 | byte n = cb - ca + 1; 1072 | if (m * n != 0) { 1073 | if (m * n == 1) { 1074 | v->Cells[ca][fa] = k; 1075 | } 1076 | else { 1077 | abajo(v, fa, fb - 1, ca, k); 1078 | derecha(v, ca, cb - 1, fb, k); 1079 | arriba(v, fa + 1, fb, cb, k); 1080 | izquierda(v, ca + 1, cb, fa, k); 1081 | cargarCaracol(v, fa + 1, fb - 1, ca + 1, cb - 1, k); 1082 | } 1083 | } 1084 | } 1085 | 1086 | void __fastcall TForm1::caracoln1Click(TObject *Sender) { 1087 | byte n = StrToInt(InputBox("ORDEN", "nro: ", "")); 1088 | StringGrid2->RowCount = n; 1089 | StringGrid2->ColCount = n; 1090 | byte k = 1; 1091 | cargarCaracol(StringGrid2, 0, n - 1, 0, n - 1, k); 1092 | } 1093 | // --------------------------------------------------------------------------- 1094 | void cargarColTri3(TStringGrid *v, byte f, byte ca, byte cb, byte k) { 1095 | byte n = cb - ca + 1; 1096 | if (n > 0) { 1097 | v->Cells[ca][f] = k; 1098 | if (k == 1) { 1099 | cargarColTri3(v, f, ca+1, cb, k); 1100 | }else { 1101 | cargarColTri3(v, f, ca+1, cb, k-1); 1102 | } 1103 | } 1104 | } 1105 | 1106 | void cargarFilaTri3(TStringGrid *v, byte fa, byte fb, byte ca, byte cb, byte k) 1107 | { 1108 | byte m = fb - fa + 1; 1109 | if (m > 0) { 1110 | cargarColTri3(v, fa, ca, cb, k); 1111 | cargarFilaTri3(v, fa + 1, fb, ca, cb, k - 1); 1112 | } 1113 | } 1114 | 1115 | void __fastcall TForm1::triangular3n1Click(TObject *Sender) { 1116 | byte n = StrToInt(InputBox("ORDEN", "nro: ", "")); 1117 | StringGrid2->RowCount = n; 1118 | StringGrid2->ColCount = n; 1119 | cargarFilaTri3(StringGrid2, 0, n - 1, 0, n - 1, n); 1120 | } 1121 | // --------------------------------------------------------------------------- 1122 | 1123 | void filSerpiente2(TStringGrid *v, byte c, byte fa, byte fb) { 1124 | byte M = v->RowCount; 1125 | byte m = fb -fa +1; 1126 | if (m > 0) { 1127 | if (c % 2 == 0) { 1128 | v->Cells[c][fa] = (c * M + (fa + 1)) * (c * M + (fa + 1)); 1129 | filSerpiente2(v, c, fa+1, fb); 1130 | }else { 1131 | v->Cells[c][fb] = ((c+1) * (M) - (fb))*((c+1) * (M) - (fb)); 1132 | filSerpiente2(v, c, fa, fb-1); 1133 | } 1134 | } 1135 | } 1136 | 1137 | void colSerpiente2( 1138 | TStringGrid *v, 1139 | byte fa, byte fb, byte ca, byte cb 1140 | ){ 1141 | byte n = cb -ca +1; 1142 | if (n > 0) { 1143 | filSerpiente2(v, ca, fa, fb); 1144 | colSerpiente2(v, fa, fb, ca+1, cb); 1145 | } 1146 | } 1147 | 1148 | void __fastcall TForm1::serpiente2mn1Click(TObject *Sender) 1149 | { 1150 | byte m = StrToInt(InputBox("FILS", "nro: ", "")); 1151 | byte n = StrToInt(InputBox("COLS", "nro: ", "")); 1152 | StringGrid2->RowCount = m; 1153 | StringGrid2->ColCount = n; 1154 | colSerpiente2(StringGrid2, 0, m - 1, 0, n - 1); 1155 | } 1156 | //--------------------------------------------------------------------------- 1157 | 1158 | void cargarFilCad1(TStringGrid *v, byte c, byte fa, byte fb, String &x 1159 | ){ 1160 | byte m = fb -fa +1; 1161 | if (m > 0) { 1162 | if (x != "") { 1163 | v->Cells[c][fa] = x.SubString(1,1); 1164 | x.Delete(1, 1); 1165 | }else { 1166 | v->Cells[c][fa] = ""; 1167 | } 1168 | cargarFilCad1(v, c, fa+1, fb, x); 1169 | } 1170 | } 1171 | 1172 | void cargarColCad1( 1173 | TStringGrid *v, 1174 | byte fa, byte fb, byte ca, byte cb, String &x 1175 | ) { 1176 | byte n = cb -ca +1; 1177 | if (n > 0) { 1178 | cargarFilCad1(v, ca, fa, fb, x); 1179 | cargarColCad1(v, fa, fb, ca+1, cb, x); 1180 | } 1181 | } 1182 | 1183 | void __fastcall TForm1::cargarcadena1mn1Click(TObject *Sender) 1184 | { 1185 | byte m = StrToInt(InputBox("FILS", "nro: ", "")); 1186 | byte n = StrToInt(InputBox("COLS", "nro: ", "")); 1187 | StringGrid2->RowCount = m; 1188 | StringGrid2->ColCount = n; 1189 | String x = InputBox("CADENA", "cad:", ""); 1190 | if (x.Length() <= m*n) { 1191 | cargarColCad1(StringGrid2, 0, m-1, 0, n-1, x); 1192 | }else { 1193 | ShowMessage("No carga la cadena"); 1194 | } 1195 | } 1196 | //--------------------------------------------------------------------------- 1197 | void cargarCadena2(TStringGrid *v, byte a, byte b, String x) 1198 | { 1199 | byte N = v->ColCount; 1200 | byte n = b -a +1; 1201 | if (n > 0) { 1202 | if (x != "") { 1203 | v->Cells[a%N][a/N] = String(x[1]); 1204 | cargarCadena2(v, a+1, b, x.Delete(1,1)); 1205 | }else { 1206 | v->Cells[a%N][a/N] = ""; 1207 | cargarCadena2(v, a+1, b, x); 1208 | } 1209 | } 1210 | } 1211 | 1212 | void __fastcall TForm1::cargarCadena2mn1Click(TObject *Sender) 1213 | { 1214 | byte m = StrToInt(InputBox("FILS", "nro: ", "")); 1215 | byte n = StrToInt(InputBox("COLS", "nro: ", "")); 1216 | StringGrid2->RowCount = m; 1217 | StringGrid2->ColCount = n; 1218 | String x = InputBox("CADENA", "cad:", ""); 1219 | if (x.Length() <= m*n) { 1220 | cargarCadena2(StringGrid2, 0, m*n -1, x); 1221 | }else { 1222 | ShowMessage("No carga la cadena"); 1223 | } 1224 | } 1225 | //--------------------------------------------------------------------------- 1226 | 1227 | void triangularFila3(TStringGrid *v, byte c, byte m, byte &k) 1228 | { 1229 | if (m > 0) { 1230 | if (c % 2 == 1) { 1231 | v->Cells[c][m-1] = k++; 1232 | triangularFila3(v, c, m-1, k); 1233 | }else { 1234 | triangularFila3(v, c, m-1, k); 1235 | v->Cells[c][m-1] = k++; 1236 | } 1237 | } 1238 | } 1239 | 1240 | void triangular3(TStringGrid *v, byte m, byte n, byte &k) 1241 | { 1242 | if (n > 0) { 1243 | triangular3(v, m+1, n-1, k); 1244 | triangularFila3(v, n-1, m, k); 1245 | } 1246 | } 1247 | 1248 | void __fastcall TForm1::triangular11Click(TObject *Sender) 1249 | { 1250 | byte n = StrToInt(InputBox("ORDEN", "nro: ", "")); 1251 | byte k = 1; 1252 | StringGrid2->RowCount = n; 1253 | StringGrid2->ColCount = n; 1254 | triangular3(StringGrid2, 1, n, k); 1255 | } 1256 | //--------------------------------------------------------------------------- 1257 | 1258 | void __fastcall TForm1::cargarCadenaVectorMatrizx1Click(TObject *Sender) 1259 | { 1260 | String x = InputBox("Cadena", "String: ", ""); 1261 | if (x != "") { 1262 | byte n = (int)sqrt(x.Length() -1 ) +1; 1263 | StringGrid2->ColCount = n; 1264 | StringGrid2->RowCount = n; 1265 | cargarCadenaMatrizVector( 1266 | StringGrid2, 1267 | 0, m*n -1, x 1268 | ); 1269 | }else{ 1270 | ShowMessage("Cadena Vacia -> Matriz []"); 1271 | } 1272 | } 1273 | //--------------------------------------------------------------------------- 1274 | 1275 | -------------------------------------------------------------------------------- /__history/Unit1.dfm.~48~: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 0 3 | Top = 0 4 | Caption = 'Form1' 5 | ClientHeight = 324 6 | ClientWidth = 566 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | Menu = MainMenu1 14 | OldCreateOrder = False 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object StringGrid1: TStringGrid 18 | Left = 80 19 | Top = 56 20 | Width = 409 21 | Height = 49 22 | ColCount = 10 23 | DefaultColWidth = 60 24 | FixedCols = 0 25 | RowCount = 1 26 | FixedRows = 0 27 | Font.Charset = DEFAULT_CHARSET 28 | Font.Color = clWindowText 29 | Font.Height = -13 30 | Font.Name = 'Tahoma' 31 | Font.Style = [fsBold] 32 | Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing] 33 | ParentFont = False 34 | TabOrder = 0 35 | end 36 | object StringGrid2: TStringGrid 37 | Left = 176 38 | Top = 128 39 | Width = 177 40 | Height = 137 41 | DefaultColWidth = 32 42 | TabOrder = 1 43 | end 44 | object MainMenu1: TMainMenu 45 | Left = 520 46 | Top = 272 47 | object ENTEROS1: TMenuItem 48 | Caption = 'ENTEROS' 49 | object factorialn1: TMenuItem 50 | Caption = 'factorial(n)' 51 | OnClick = factorialn1Click 52 | end 53 | object potencian1: TMenuItem 54 | Caption = 'potencia(n)' 55 | OnClick = potencian1Click 56 | end 57 | object mayorMenorn1: TMenuItem 58 | Caption = 'mayorMenor(n)' 59 | OnClick = mayorMenorn1Click 60 | end 61 | object invertirn1: TMenuItem 62 | Caption = 'invertir(&n)' 63 | OnClick = invertirn1Click 64 | end 65 | object moverMayorFinal1: TMenuItem 66 | Caption = 'moverMayorFinal' 67 | OnClick = moverMayorFinal1Click 68 | end 69 | object sumaBinariaab1: TMenuItem 70 | Caption = 'sumaBinaria(a,b)' 71 | OnClick = sumaBinariaab1Click 72 | end 73 | object toBinn1: TMenuItem 74 | Caption = 'DecimalABinario(n)' 75 | OnClick = toBinn1Click 76 | end 77 | object ordenarn1: TMenuItem 78 | Caption = 'ordenar(n)' 79 | OnClick = ordenarn1Click 80 | end 81 | object estaOrdenadon1: TMenuItem 82 | Caption = 'estaOrdenado(n)' 83 | OnClick = estaOrdenadon1Click 84 | end 85 | object DigitosParesn1: TMenuItem 86 | Caption = 'DigitosPares(n)' 87 | OnClick = DigitosParesn1Click 88 | end 89 | object SumaDigitosParesn1: TMenuItem 90 | Caption = 'SumaPares(n)' 91 | OnClick = SumaDigitosParesn1Click 92 | end 93 | object parAntesImparn1: TMenuItem 94 | Caption = 'parAntesImpar(n)' 95 | OnClick = parAntesImparn1Click 96 | end 97 | end 98 | object CADENAS1: TMenuItem 99 | Caption = 'CADENAS' 100 | object invertirn2: TMenuItem 101 | Caption = 'invertir(x)' 102 | OnClick = invertirn2Click 103 | end 104 | object cantidadPalabrasx1: TMenuItem 105 | Caption = 'cantidadPalabras(x)' 106 | OnClick = cantidadPalabrasx1Click 107 | end 108 | object eliminarVocalesx1: TMenuItem 109 | Caption = 'eliminarVocales(&x)' 110 | OnClick = eliminarVocalesx1Click 111 | end 112 | object palabraMasLargax1: TMenuItem 113 | Caption = 'palabraMasLarga(x)' 114 | OnClick = palabraMasLargax1Click 115 | end 116 | object eliminarPrimerLetrax1: TMenuItem 117 | Caption = 'eliminarPrimerLetra(x)' 118 | OnClick = eliminarPrimerLetrax1Click 119 | end 120 | object invertirPalabras1: TMenuItem 121 | Caption = 'invertirPalabras(x)' 122 | OnClick = invertirPalabras1Click 123 | end 124 | end 125 | object SERIES1: TMenuItem 126 | Caption = 'SERIES' 127 | object fibonaccit1: TMenuItem 128 | Caption = 'fibonacci(t)' 129 | OnClick = fibonaccit1Click 130 | end 131 | object serie1t1: TMenuItem 132 | Caption = 'serie1(t)' 133 | OnClick = serie1t1Click 134 | end 135 | object sumaSerien1: TMenuItem 136 | Caption = 'sumaSerie(n)' 137 | OnClick = sumaSerien1Click 138 | end 139 | object serie2n1: TMenuItem 140 | Caption = 'serie2(n)' 141 | OnClick = serie2n1Click 142 | end 143 | object sumaSerie2n1: TMenuItem 144 | Caption = 'sumaSerie2(n)' 145 | OnClick = sumaSerie2n1Click 146 | end 147 | object sumaSerie3n1: TMenuItem 148 | Caption = 'sumaSerie3(n)' 149 | OnClick = sumaSerie3n1Click 150 | end 151 | end 152 | object VECTORES1: TMenuItem 153 | Caption = 'VECTORES' 154 | object cargarn1: TMenuItem 155 | Caption = 'cargar(n)' 156 | OnClick = cargarn1Click 157 | end 158 | object sumaPares1: TMenuItem 159 | Caption = 'sumaPares' 160 | OnClick = sumaPares1Click 161 | end 162 | object invertir1: TMenuItem 163 | Caption = 'invertir' 164 | OnClick = invertir1Click 165 | end 166 | object cargarPalabrasx1: TMenuItem 167 | Caption = 'cargarPalabras(x)' 168 | OnClick = cargarPalabrasx1Click 169 | end 170 | object cargarVector1001: TMenuItem 171 | Caption = 'cargarVector100(n)' 172 | OnClick = cargarVector1001Click 173 | end 174 | object cadenaNroInv1: TMenuItem 175 | Caption = 'cadenaNroInv()' 176 | OnClick = cadenaNroInv1Click 177 | end 178 | object cargarSerie1: TMenuItem 179 | Caption = 'cargarSerie(n)' 180 | OnClick = cargarSerie1Click 181 | end 182 | object suman1: TMenuItem 183 | Caption = 'suma(n)' 184 | OnClick = suman1Click 185 | end 186 | end 187 | object MATRICES1: TMenuItem 188 | Caption = 'MATRICES' 189 | object serpiente1: TMenuItem 190 | Caption = 'serpiente(m,n)' 191 | OnClick = serpiente1Click 192 | end 193 | object triangular1n1: TMenuItem 194 | Caption = 'triangular1(n)' 195 | OnClick = triangular1n1Click 196 | end 197 | object triangular2n1: TMenuItem 198 | Caption = 'triangular2(n)' 199 | OnClick = triangular2n1Click 200 | end 201 | object cuadrado1n1: TMenuItem 202 | Caption = 'cuadrado1(n)' 203 | OnClick = cuadrado1n1Click 204 | end 205 | object re1: TMenuItem 206 | Caption = 'cargarDiagonal(m, n)' 207 | OnClick = re1Click 208 | end 209 | object caracoln1: TMenuItem 210 | Caption = 'caracol(n)' 211 | OnClick = caracoln1Click 212 | end 213 | end 214 | end 215 | end 216 | -------------------------------------------------------------------------------- /__history/Unit1.dfm.~49~: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 0 3 | Top = 0 4 | Caption = 'Form1' 5 | ClientHeight = 324 6 | ClientWidth = 566 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | Menu = MainMenu1 14 | OldCreateOrder = False 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object StringGrid1: TStringGrid 18 | Left = 80 19 | Top = 56 20 | Width = 409 21 | Height = 49 22 | ColCount = 10 23 | DefaultColWidth = 60 24 | FixedCols = 0 25 | RowCount = 1 26 | FixedRows = 0 27 | Font.Charset = DEFAULT_CHARSET 28 | Font.Color = clWindowText 29 | Font.Height = -13 30 | Font.Name = 'Tahoma' 31 | Font.Style = [fsBold] 32 | Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing] 33 | ParentFont = False 34 | TabOrder = 0 35 | end 36 | object StringGrid2: TStringGrid 37 | Left = 176 38 | Top = 128 39 | Width = 177 40 | Height = 137 41 | DefaultColWidth = 32 42 | TabOrder = 1 43 | end 44 | object MainMenu1: TMainMenu 45 | Left = 520 46 | Top = 272 47 | object ENTEROS1: TMenuItem 48 | Caption = 'ENTEROS' 49 | object factorialn1: TMenuItem 50 | Caption = 'factorial(n)' 51 | OnClick = factorialn1Click 52 | end 53 | object potencian1: TMenuItem 54 | Caption = 'potencia(n)' 55 | OnClick = potencian1Click 56 | end 57 | object mayorMenorn1: TMenuItem 58 | Caption = 'mayorMenor(n)' 59 | OnClick = mayorMenorn1Click 60 | end 61 | object invertirn1: TMenuItem 62 | Caption = 'invertir(&n)' 63 | OnClick = invertirn1Click 64 | end 65 | object moverMayorFinal1: TMenuItem 66 | Caption = 'moverMayorFinal' 67 | OnClick = moverMayorFinal1Click 68 | end 69 | object sumaBinariaab1: TMenuItem 70 | Caption = 'sumaBinaria(a,b)' 71 | OnClick = sumaBinariaab1Click 72 | end 73 | object toBinn1: TMenuItem 74 | Caption = 'DecimalABinario(n)' 75 | OnClick = toBinn1Click 76 | end 77 | object ordenarn1: TMenuItem 78 | Caption = 'ordenar(n)' 79 | OnClick = ordenarn1Click 80 | end 81 | object estaOrdenadon1: TMenuItem 82 | Caption = 'estaOrdenado(n)' 83 | OnClick = estaOrdenadon1Click 84 | end 85 | object DigitosParesn1: TMenuItem 86 | Caption = 'DigitosPares(n)' 87 | OnClick = DigitosParesn1Click 88 | end 89 | object SumaDigitosParesn1: TMenuItem 90 | Caption = 'SumaPares(n)' 91 | OnClick = SumaDigitosParesn1Click 92 | end 93 | object parAntesImparn1: TMenuItem 94 | Caption = 'parAntesImpar(n)' 95 | OnClick = parAntesImparn1Click 96 | end 97 | end 98 | object CADENAS1: TMenuItem 99 | Caption = 'CADENAS' 100 | object invertirn2: TMenuItem 101 | Caption = 'invertir(x)' 102 | OnClick = invertirn2Click 103 | end 104 | object cantidadPalabrasx1: TMenuItem 105 | Caption = 'cantidadPalabras(x)' 106 | OnClick = cantidadPalabrasx1Click 107 | end 108 | object eliminarVocalesx1: TMenuItem 109 | Caption = 'eliminarVocales(&x)' 110 | OnClick = eliminarVocalesx1Click 111 | end 112 | object palabraMasLargax1: TMenuItem 113 | Caption = 'palabraMasLarga(x)' 114 | OnClick = palabraMasLargax1Click 115 | end 116 | object eliminarPrimerLetrax1: TMenuItem 117 | Caption = 'eliminarPrimerLetra(x)' 118 | OnClick = eliminarPrimerLetrax1Click 119 | end 120 | object invertirPalabras1: TMenuItem 121 | Caption = 'invertirPalabras(x)' 122 | OnClick = invertirPalabras1Click 123 | end 124 | end 125 | object SERIES1: TMenuItem 126 | Caption = 'SERIES' 127 | object fibonaccit1: TMenuItem 128 | Caption = 'fibonacci(t)' 129 | OnClick = fibonaccit1Click 130 | end 131 | object serie1t1: TMenuItem 132 | Caption = 'serie1(t)' 133 | OnClick = serie1t1Click 134 | end 135 | object sumaSerien1: TMenuItem 136 | Caption = 'sumaSerie(n)' 137 | OnClick = sumaSerien1Click 138 | end 139 | object serie2n1: TMenuItem 140 | Caption = 'serie2(n)' 141 | OnClick = serie2n1Click 142 | end 143 | object sumaSerie2n1: TMenuItem 144 | Caption = 'sumaSerie2(n)' 145 | OnClick = sumaSerie2n1Click 146 | end 147 | object sumaSerie3n1: TMenuItem 148 | Caption = 'sumaSerie3(n)' 149 | OnClick = sumaSerie3n1Click 150 | end 151 | end 152 | object VECTORES1: TMenuItem 153 | Caption = 'VECTORES' 154 | object cargarn1: TMenuItem 155 | Caption = 'cargar(n)' 156 | OnClick = cargarn1Click 157 | end 158 | object sumaPares1: TMenuItem 159 | Caption = 'sumaPares' 160 | OnClick = sumaPares1Click 161 | end 162 | object invertir1: TMenuItem 163 | Caption = 'invertir' 164 | OnClick = invertir1Click 165 | end 166 | object cargarPalabrasx1: TMenuItem 167 | Caption = 'cargarPalabras(x)' 168 | OnClick = cargarPalabrasx1Click 169 | end 170 | object cargarVector1001: TMenuItem 171 | Caption = 'cargarVector100(n)' 172 | OnClick = cargarVector1001Click 173 | end 174 | object cadenaNroInv1: TMenuItem 175 | Caption = 'cadenaNroInv()' 176 | OnClick = cadenaNroInv1Click 177 | end 178 | object cargarSerie1: TMenuItem 179 | Caption = 'cargarSerie(n)' 180 | OnClick = cargarSerie1Click 181 | end 182 | object suman1: TMenuItem 183 | Caption = 'suma(n)' 184 | OnClick = suman1Click 185 | end 186 | end 187 | object MATRICES1: TMenuItem 188 | Caption = 'MATRICES' 189 | object serpiente1: TMenuItem 190 | Caption = 'serpiente(m,n)' 191 | OnClick = serpiente1Click 192 | end 193 | object triangular1n1: TMenuItem 194 | Caption = 'triangular1(n)' 195 | OnClick = triangular1n1Click 196 | end 197 | object triangular2n1: TMenuItem 198 | Caption = 'triangular2(n)' 199 | OnClick = triangular2n1Click 200 | end 201 | object cuadrado1n1: TMenuItem 202 | Caption = 'cuadrado1(n)' 203 | OnClick = cuadrado1n1Click 204 | end 205 | object re1: TMenuItem 206 | Caption = 'cargarDiagonal(m, n)' 207 | OnClick = re1Click 208 | end 209 | object caracoln1: TMenuItem 210 | Caption = 'caracol(n)' 211 | OnClick = caracoln1Click 212 | end 213 | object triangular3n1: TMenuItem 214 | Caption = 'triangular3(n)' 215 | OnClick = triangular3n1Click 216 | end 217 | end 218 | end 219 | end 220 | -------------------------------------------------------------------------------- /__history/Unit1.dfm.~50~: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 0 3 | Top = 0 4 | Caption = 'Form1' 5 | ClientHeight = 324 6 | ClientWidth = 566 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | Menu = MainMenu1 14 | OldCreateOrder = False 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object StringGrid1: TStringGrid 18 | Left = 80 19 | Top = 56 20 | Width = 409 21 | Height = 49 22 | ColCount = 10 23 | DefaultColWidth = 60 24 | FixedCols = 0 25 | RowCount = 1 26 | FixedRows = 0 27 | Font.Charset = DEFAULT_CHARSET 28 | Font.Color = clWindowText 29 | Font.Height = -13 30 | Font.Name = 'Tahoma' 31 | Font.Style = [fsBold] 32 | Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing] 33 | ParentFont = False 34 | TabOrder = 0 35 | end 36 | object StringGrid2: TStringGrid 37 | Left = 176 38 | Top = 128 39 | Width = 177 40 | Height = 137 41 | DefaultColWidth = 32 42 | TabOrder = 1 43 | end 44 | object MainMenu1: TMainMenu 45 | Left = 520 46 | Top = 272 47 | object ENTEROS1: TMenuItem 48 | Caption = 'ENTEROS' 49 | object factorialn1: TMenuItem 50 | Caption = 'factorial(n)' 51 | OnClick = factorialn1Click 52 | end 53 | object potencian1: TMenuItem 54 | Caption = 'potencia(n)' 55 | OnClick = potencian1Click 56 | end 57 | object mayorMenorn1: TMenuItem 58 | Caption = 'mayorMenor(n)' 59 | OnClick = mayorMenorn1Click 60 | end 61 | object invertirn1: TMenuItem 62 | Caption = 'invertir(&n)' 63 | OnClick = invertirn1Click 64 | end 65 | object moverMayorFinal1: TMenuItem 66 | Caption = 'moverMayorFinal' 67 | OnClick = moverMayorFinal1Click 68 | end 69 | object sumaBinariaab1: TMenuItem 70 | Caption = 'sumaBinaria(a,b)' 71 | OnClick = sumaBinariaab1Click 72 | end 73 | object toBinn1: TMenuItem 74 | Caption = 'DecimalABinario(n)' 75 | OnClick = toBinn1Click 76 | end 77 | object ordenarn1: TMenuItem 78 | Caption = 'ordenar(n)' 79 | OnClick = ordenarn1Click 80 | end 81 | object estaOrdenadon1: TMenuItem 82 | Caption = 'estaOrdenado(n)' 83 | OnClick = estaOrdenadon1Click 84 | end 85 | object DigitosParesn1: TMenuItem 86 | Caption = 'DigitosPares(n)' 87 | OnClick = DigitosParesn1Click 88 | end 89 | object SumaDigitosParesn1: TMenuItem 90 | Caption = 'SumaPares(n)' 91 | OnClick = SumaDigitosParesn1Click 92 | end 93 | object parAntesImparn1: TMenuItem 94 | Caption = 'parAntesImpar(n)' 95 | OnClick = parAntesImparn1Click 96 | end 97 | end 98 | object CADENAS1: TMenuItem 99 | Caption = 'CADENAS' 100 | object invertirn2: TMenuItem 101 | Caption = 'invertir(x)' 102 | OnClick = invertirn2Click 103 | end 104 | object cantidadPalabrasx1: TMenuItem 105 | Caption = 'cantidadPalabras(x)' 106 | OnClick = cantidadPalabrasx1Click 107 | end 108 | object eliminarVocalesx1: TMenuItem 109 | Caption = 'eliminarVocales(&x)' 110 | OnClick = eliminarVocalesx1Click 111 | end 112 | object palabraMasLargax1: TMenuItem 113 | Caption = 'palabraMasLarga(x)' 114 | OnClick = palabraMasLargax1Click 115 | end 116 | object eliminarPrimerLetrax1: TMenuItem 117 | Caption = 'eliminarPrimerLetra(x)' 118 | OnClick = eliminarPrimerLetrax1Click 119 | end 120 | object invertirPalabras1: TMenuItem 121 | Caption = 'invertirPalabras(x)' 122 | OnClick = invertirPalabras1Click 123 | end 124 | end 125 | object SERIES1: TMenuItem 126 | Caption = 'SERIES' 127 | object fibonaccit1: TMenuItem 128 | Caption = 'fibonacci(t)' 129 | OnClick = fibonaccit1Click 130 | end 131 | object serie1t1: TMenuItem 132 | Caption = 'serie1(t)' 133 | OnClick = serie1t1Click 134 | end 135 | object sumaSerien1: TMenuItem 136 | Caption = 'sumaSerie(n)' 137 | OnClick = sumaSerien1Click 138 | end 139 | object serie2n1: TMenuItem 140 | Caption = 'serie2(n)' 141 | OnClick = serie2n1Click 142 | end 143 | object sumaSerie2n1: TMenuItem 144 | Caption = 'sumaSerie2(n)' 145 | OnClick = sumaSerie2n1Click 146 | end 147 | object sumaSerie3n1: TMenuItem 148 | Caption = 'sumaSerie3(n)' 149 | OnClick = sumaSerie3n1Click 150 | end 151 | end 152 | object VECTORES1: TMenuItem 153 | Caption = 'VECTORES' 154 | object cargarn1: TMenuItem 155 | Caption = 'cargar(n)' 156 | OnClick = cargarn1Click 157 | end 158 | object sumaPares1: TMenuItem 159 | Caption = 'sumaPares' 160 | OnClick = sumaPares1Click 161 | end 162 | object invertir1: TMenuItem 163 | Caption = 'invertir' 164 | OnClick = invertir1Click 165 | end 166 | object cargarPalabrasx1: TMenuItem 167 | Caption = 'cargarPalabras(x)' 168 | OnClick = cargarPalabrasx1Click 169 | end 170 | object cargarVector1001: TMenuItem 171 | Caption = 'cargarVector100(n)' 172 | OnClick = cargarVector1001Click 173 | end 174 | object cadenaNroInv1: TMenuItem 175 | Caption = 'cadenaNroInv()' 176 | OnClick = cadenaNroInv1Click 177 | end 178 | object cargarSerie1: TMenuItem 179 | Caption = 'cargarSerie(n)' 180 | OnClick = cargarSerie1Click 181 | end 182 | object suman1: TMenuItem 183 | Caption = 'suma(n)' 184 | OnClick = suman1Click 185 | end 186 | end 187 | object MATRICES1: TMenuItem 188 | Caption = 'MATRICES' 189 | object serpiente1: TMenuItem 190 | Caption = 'serpiente(m,n)' 191 | OnClick = serpiente1Click 192 | end 193 | object triangular1n1: TMenuItem 194 | Caption = 'triangular1(n)' 195 | OnClick = triangular1n1Click 196 | end 197 | object triangular2n1: TMenuItem 198 | Caption = 'triangular2(n)' 199 | OnClick = triangular2n1Click 200 | end 201 | object cuadrado1n1: TMenuItem 202 | Caption = 'cuadrado1(n)' 203 | OnClick = cuadrado1n1Click 204 | end 205 | object re1: TMenuItem 206 | Caption = 'cargarDiagonal(m, n)' 207 | OnClick = re1Click 208 | end 209 | object caracoln1: TMenuItem 210 | Caption = 'caracol(n)' 211 | OnClick = caracoln1Click 212 | end 213 | object triangular3n1: TMenuItem 214 | Caption = 'triangular3(n)' 215 | OnClick = triangular3n1Click 216 | end 217 | end 218 | end 219 | end 220 | -------------------------------------------------------------------------------- /__history/Unit1.dfm.~51~: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 0 3 | Top = 0 4 | Caption = 'Form1' 5 | ClientHeight = 324 6 | ClientWidth = 566 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | Menu = MainMenu1 14 | OldCreateOrder = False 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object StringGrid1: TStringGrid 18 | Left = 80 19 | Top = 56 20 | Width = 409 21 | Height = 49 22 | ColCount = 10 23 | DefaultColWidth = 60 24 | FixedCols = 0 25 | RowCount = 1 26 | FixedRows = 0 27 | Font.Charset = DEFAULT_CHARSET 28 | Font.Color = clWindowText 29 | Font.Height = -13 30 | Font.Name = 'Tahoma' 31 | Font.Style = [fsBold] 32 | Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing] 33 | ParentFont = False 34 | TabOrder = 0 35 | end 36 | object StringGrid2: TStringGrid 37 | Left = 176 38 | Top = 128 39 | Width = 177 40 | Height = 137 41 | DefaultColWidth = 32 42 | TabOrder = 1 43 | end 44 | object MainMenu1: TMainMenu 45 | Left = 520 46 | Top = 272 47 | object ENTEROS1: TMenuItem 48 | Caption = 'ENTEROS' 49 | object factorialn1: TMenuItem 50 | Caption = 'factorial(n)' 51 | OnClick = factorialn1Click 52 | end 53 | object potencian1: TMenuItem 54 | Caption = 'potencia(n)' 55 | OnClick = potencian1Click 56 | end 57 | object mayorMenorn1: TMenuItem 58 | Caption = 'mayorMenor(n)' 59 | OnClick = mayorMenorn1Click 60 | end 61 | object invertirn1: TMenuItem 62 | Caption = 'invertir(&n)' 63 | OnClick = invertirn1Click 64 | end 65 | object moverMayorFinal1: TMenuItem 66 | Caption = 'moverMayorFinal' 67 | OnClick = moverMayorFinal1Click 68 | end 69 | object sumaBinariaab1: TMenuItem 70 | Caption = 'sumaBinaria(a,b)' 71 | OnClick = sumaBinariaab1Click 72 | end 73 | object toBinn1: TMenuItem 74 | Caption = 'DecimalABinario(n)' 75 | OnClick = toBinn1Click 76 | end 77 | object ordenarn1: TMenuItem 78 | Caption = 'ordenar(n)' 79 | OnClick = ordenarn1Click 80 | end 81 | object estaOrdenadon1: TMenuItem 82 | Caption = 'estaOrdenado(n)' 83 | OnClick = estaOrdenadon1Click 84 | end 85 | object DigitosParesn1: TMenuItem 86 | Caption = 'DigitosPares(n)' 87 | OnClick = DigitosParesn1Click 88 | end 89 | object SumaDigitosParesn1: TMenuItem 90 | Caption = 'SumaPares(n)' 91 | OnClick = SumaDigitosParesn1Click 92 | end 93 | object parAntesImparn1: TMenuItem 94 | Caption = 'parAntesImpar(n)' 95 | OnClick = parAntesImparn1Click 96 | end 97 | end 98 | object CADENAS1: TMenuItem 99 | Caption = 'CADENAS' 100 | object invertirn2: TMenuItem 101 | Caption = 'invertir(x)' 102 | OnClick = invertirn2Click 103 | end 104 | object cantidadPalabrasx1: TMenuItem 105 | Caption = 'cantidadPalabras(x)' 106 | OnClick = cantidadPalabrasx1Click 107 | end 108 | object eliminarVocalesx1: TMenuItem 109 | Caption = 'eliminarVocales(&x)' 110 | OnClick = eliminarVocalesx1Click 111 | end 112 | object palabraMasLargax1: TMenuItem 113 | Caption = 'palabraMasLarga(x)' 114 | OnClick = palabraMasLargax1Click 115 | end 116 | object eliminarPrimerLetrax1: TMenuItem 117 | Caption = 'eliminarPrimerLetra(x)' 118 | OnClick = eliminarPrimerLetrax1Click 119 | end 120 | object invertirPalabras1: TMenuItem 121 | Caption = 'invertirPalabras(x)' 122 | OnClick = invertirPalabras1Click 123 | end 124 | end 125 | object SERIES1: TMenuItem 126 | Caption = 'SERIES' 127 | object fibonaccit1: TMenuItem 128 | Caption = 'fibonacci(t)' 129 | OnClick = fibonaccit1Click 130 | end 131 | object serie1t1: TMenuItem 132 | Caption = 'serie1(t)' 133 | OnClick = serie1t1Click 134 | end 135 | object sumaSerien1: TMenuItem 136 | Caption = 'sumaSerie(n)' 137 | OnClick = sumaSerien1Click 138 | end 139 | object serie2n1: TMenuItem 140 | Caption = 'serie2(n)' 141 | OnClick = serie2n1Click 142 | end 143 | object sumaSerie2n1: TMenuItem 144 | Caption = 'sumaSerie2(n)' 145 | OnClick = sumaSerie2n1Click 146 | end 147 | object sumaSerie3n1: TMenuItem 148 | Caption = 'sumaSerie3(n)' 149 | OnClick = sumaSerie3n1Click 150 | end 151 | end 152 | object VECTORES1: TMenuItem 153 | Caption = 'VECTORES' 154 | object cargarn1: TMenuItem 155 | Caption = 'cargar(n)' 156 | OnClick = cargarn1Click 157 | end 158 | object sumaPares1: TMenuItem 159 | Caption = 'sumaPares' 160 | OnClick = sumaPares1Click 161 | end 162 | object invertir1: TMenuItem 163 | Caption = 'invertir' 164 | OnClick = invertir1Click 165 | end 166 | object cargarPalabrasx1: TMenuItem 167 | Caption = 'cargarPalabras(x)' 168 | OnClick = cargarPalabrasx1Click 169 | end 170 | object cargarVector1001: TMenuItem 171 | Caption = 'cargarVector100(n)' 172 | OnClick = cargarVector1001Click 173 | end 174 | object cadenaNroInv1: TMenuItem 175 | Caption = 'cadenaNroInv()' 176 | OnClick = cadenaNroInv1Click 177 | end 178 | object cargarSerie1: TMenuItem 179 | Caption = 'cargarSerie(n)' 180 | OnClick = cargarSerie1Click 181 | end 182 | object suman1: TMenuItem 183 | Caption = 'suma(n)' 184 | OnClick = suman1Click 185 | end 186 | end 187 | object MATRICES1: TMenuItem 188 | Caption = 'MATRICES' 189 | object serpiente1: TMenuItem 190 | Caption = 'serpiente(m,n)' 191 | OnClick = serpiente1Click 192 | end 193 | object triangular1n1: TMenuItem 194 | Caption = 'triangular1(n)' 195 | OnClick = triangular1n1Click 196 | end 197 | object triangular2n1: TMenuItem 198 | Caption = 'triangular2(n)' 199 | OnClick = triangular2n1Click 200 | end 201 | object cuadrado1n1: TMenuItem 202 | Caption = 'cuadrado1(n)' 203 | OnClick = cuadrado1n1Click 204 | end 205 | object re1: TMenuItem 206 | Caption = 'cargarDiagonal(m, n)' 207 | OnClick = re1Click 208 | end 209 | object caracoln1: TMenuItem 210 | Caption = 'caracol(n)' 211 | OnClick = caracoln1Click 212 | end 213 | object triangular3n1: TMenuItem 214 | Caption = 'triangular3(n)' 215 | OnClick = triangular3n1Click 216 | end 217 | object serpiente2mn1: TMenuItem 218 | Caption = 'serpiente2(m, n)' 219 | OnClick = serpiente2mn1Click 220 | end 221 | end 222 | end 223 | end 224 | -------------------------------------------------------------------------------- /__history/Unit1.dfm.~52~: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 0 3 | Top = 0 4 | Caption = 'Form1' 5 | ClientHeight = 324 6 | ClientWidth = 566 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | Menu = MainMenu1 14 | OldCreateOrder = False 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object StringGrid1: TStringGrid 18 | Left = 80 19 | Top = 56 20 | Width = 409 21 | Height = 49 22 | ColCount = 10 23 | DefaultColWidth = 60 24 | FixedCols = 0 25 | RowCount = 1 26 | FixedRows = 0 27 | Font.Charset = DEFAULT_CHARSET 28 | Font.Color = clWindowText 29 | Font.Height = -13 30 | Font.Name = 'Tahoma' 31 | Font.Style = [fsBold] 32 | Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing] 33 | ParentFont = False 34 | TabOrder = 0 35 | end 36 | object StringGrid2: TStringGrid 37 | Left = 176 38 | Top = 128 39 | Width = 177 40 | Height = 137 41 | DefaultColWidth = 32 42 | TabOrder = 1 43 | end 44 | object MainMenu1: TMainMenu 45 | Left = 520 46 | Top = 272 47 | object ENTEROS1: TMenuItem 48 | Caption = 'ENTEROS' 49 | object factorialn1: TMenuItem 50 | Caption = 'factorial(n)' 51 | OnClick = factorialn1Click 52 | end 53 | object potencian1: TMenuItem 54 | Caption = 'potencia(n)' 55 | OnClick = potencian1Click 56 | end 57 | object mayorMenorn1: TMenuItem 58 | Caption = 'mayorMenor(n)' 59 | OnClick = mayorMenorn1Click 60 | end 61 | object invertirn1: TMenuItem 62 | Caption = 'invertir(&n)' 63 | OnClick = invertirn1Click 64 | end 65 | object moverMayorFinal1: TMenuItem 66 | Caption = 'moverMayorFinal' 67 | OnClick = moverMayorFinal1Click 68 | end 69 | object sumaBinariaab1: TMenuItem 70 | Caption = 'sumaBinaria(a,b)' 71 | OnClick = sumaBinariaab1Click 72 | end 73 | object toBinn1: TMenuItem 74 | Caption = 'DecimalABinario(n)' 75 | OnClick = toBinn1Click 76 | end 77 | object ordenarn1: TMenuItem 78 | Caption = 'ordenar(n)' 79 | OnClick = ordenarn1Click 80 | end 81 | object estaOrdenadon1: TMenuItem 82 | Caption = 'estaOrdenado(n)' 83 | OnClick = estaOrdenadon1Click 84 | end 85 | object DigitosParesn1: TMenuItem 86 | Caption = 'DigitosPares(n)' 87 | OnClick = DigitosParesn1Click 88 | end 89 | object SumaDigitosParesn1: TMenuItem 90 | Caption = 'SumaPares(n)' 91 | OnClick = SumaDigitosParesn1Click 92 | end 93 | object parAntesImparn1: TMenuItem 94 | Caption = 'parAntesImpar(n)' 95 | OnClick = parAntesImparn1Click 96 | end 97 | end 98 | object CADENAS1: TMenuItem 99 | Caption = 'CADENAS' 100 | object invertirn2: TMenuItem 101 | Caption = 'invertir(x)' 102 | OnClick = invertirn2Click 103 | end 104 | object cantidadPalabrasx1: TMenuItem 105 | Caption = 'cantidadPalabras(x)' 106 | OnClick = cantidadPalabrasx1Click 107 | end 108 | object eliminarVocalesx1: TMenuItem 109 | Caption = 'eliminarVocales(&x)' 110 | OnClick = eliminarVocalesx1Click 111 | end 112 | object palabraMasLargax1: TMenuItem 113 | Caption = 'palabraMasLarga(x)' 114 | OnClick = palabraMasLargax1Click 115 | end 116 | object eliminarPrimerLetrax1: TMenuItem 117 | Caption = 'eliminarPrimerLetra(x)' 118 | OnClick = eliminarPrimerLetrax1Click 119 | end 120 | object invertirPalabras1: TMenuItem 121 | Caption = 'invertirPalabras(x)' 122 | OnClick = invertirPalabras1Click 123 | end 124 | end 125 | object SERIES1: TMenuItem 126 | Caption = 'SERIES' 127 | object fibonaccit1: TMenuItem 128 | Caption = 'fibonacci(t)' 129 | OnClick = fibonaccit1Click 130 | end 131 | object serie1t1: TMenuItem 132 | Caption = 'serie1(t)' 133 | OnClick = serie1t1Click 134 | end 135 | object sumaSerien1: TMenuItem 136 | Caption = 'sumaSerie(n)' 137 | OnClick = sumaSerien1Click 138 | end 139 | object serie2n1: TMenuItem 140 | Caption = 'serie2(n)' 141 | OnClick = serie2n1Click 142 | end 143 | object sumaSerie2n1: TMenuItem 144 | Caption = 'sumaSerie2(n)' 145 | OnClick = sumaSerie2n1Click 146 | end 147 | object sumaSerie3n1: TMenuItem 148 | Caption = 'sumaSerie3(n)' 149 | OnClick = sumaSerie3n1Click 150 | end 151 | end 152 | object VECTORES1: TMenuItem 153 | Caption = 'VECTORES' 154 | object cargarn1: TMenuItem 155 | Caption = 'cargar(n)' 156 | OnClick = cargarn1Click 157 | end 158 | object sumaPares1: TMenuItem 159 | Caption = 'sumaPares' 160 | OnClick = sumaPares1Click 161 | end 162 | object invertir1: TMenuItem 163 | Caption = 'invertir' 164 | OnClick = invertir1Click 165 | end 166 | object cargarPalabrasx1: TMenuItem 167 | Caption = 'cargarPalabras(x)' 168 | OnClick = cargarPalabrasx1Click 169 | end 170 | object cargarVector1001: TMenuItem 171 | Caption = 'cargarVector100(n)' 172 | OnClick = cargarVector1001Click 173 | end 174 | object cadenaNroInv1: TMenuItem 175 | Caption = 'cadenaNroInv()' 176 | OnClick = cadenaNroInv1Click 177 | end 178 | object cargarSerie1: TMenuItem 179 | Caption = 'cargarSerie(n)' 180 | OnClick = cargarSerie1Click 181 | end 182 | object suman1: TMenuItem 183 | Caption = 'suma(n)' 184 | OnClick = suman1Click 185 | end 186 | end 187 | object MATRICES1: TMenuItem 188 | Caption = 'MATRICES' 189 | object serpiente1: TMenuItem 190 | Caption = 'serpiente(m,n)' 191 | OnClick = serpiente1Click 192 | end 193 | object triangular1n1: TMenuItem 194 | Caption = 'triangular1(n)' 195 | OnClick = triangular1n1Click 196 | end 197 | object triangular2n1: TMenuItem 198 | Caption = 'triangular2(n)' 199 | OnClick = triangular2n1Click 200 | end 201 | object cuadrado1n1: TMenuItem 202 | Caption = 'cuadrado1(n)' 203 | OnClick = cuadrado1n1Click 204 | end 205 | object re1: TMenuItem 206 | Caption = 'cargarDiagonal(m, n)' 207 | OnClick = re1Click 208 | end 209 | object caracoln1: TMenuItem 210 | Caption = 'caracol(n)' 211 | OnClick = caracoln1Click 212 | end 213 | object triangular3n1: TMenuItem 214 | Caption = 'triangular3(n)' 215 | OnClick = triangular3n1Click 216 | end 217 | object serpiente2mn1: TMenuItem 218 | Caption = 'serpiente2(m, n)' 219 | OnClick = serpiente2mn1Click 220 | end 221 | object cargarcadena1mn1: TMenuItem 222 | Caption = 'cargarcadena1(m, n)' 223 | OnClick = cargarcadena1mn1Click 224 | end 225 | end 226 | end 227 | end 228 | -------------------------------------------------------------------------------- /__history/Unit1.dfm.~53~: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 0 3 | Top = 0 4 | Caption = 'Form1' 5 | ClientHeight = 324 6 | ClientWidth = 566 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | Menu = MainMenu1 14 | OldCreateOrder = False 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object StringGrid1: TStringGrid 18 | Left = 80 19 | Top = 56 20 | Width = 409 21 | Height = 49 22 | ColCount = 10 23 | DefaultColWidth = 60 24 | FixedCols = 0 25 | RowCount = 1 26 | FixedRows = 0 27 | Font.Charset = DEFAULT_CHARSET 28 | Font.Color = clWindowText 29 | Font.Height = -13 30 | Font.Name = 'Tahoma' 31 | Font.Style = [fsBold] 32 | Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing] 33 | ParentFont = False 34 | TabOrder = 0 35 | end 36 | object StringGrid2: TStringGrid 37 | Left = 176 38 | Top = 128 39 | Width = 177 40 | Height = 137 41 | DefaultColWidth = 32 42 | TabOrder = 1 43 | end 44 | object MainMenu1: TMainMenu 45 | Left = 520 46 | Top = 272 47 | object ENTEROS1: TMenuItem 48 | Caption = 'ENTEROS' 49 | object factorialn1: TMenuItem 50 | Caption = 'factorial(n)' 51 | OnClick = factorialn1Click 52 | end 53 | object potencian1: TMenuItem 54 | Caption = 'potencia(n)' 55 | OnClick = potencian1Click 56 | end 57 | object mayorMenorn1: TMenuItem 58 | Caption = 'mayorMenor(n)' 59 | OnClick = mayorMenorn1Click 60 | end 61 | object invertirn1: TMenuItem 62 | Caption = 'invertir(&n)' 63 | OnClick = invertirn1Click 64 | end 65 | object moverMayorFinal1: TMenuItem 66 | Caption = 'moverMayorFinal' 67 | OnClick = moverMayorFinal1Click 68 | end 69 | object sumaBinariaab1: TMenuItem 70 | Caption = 'sumaBinaria(a,b)' 71 | OnClick = sumaBinariaab1Click 72 | end 73 | object toBinn1: TMenuItem 74 | Caption = 'DecimalABinario(n)' 75 | OnClick = toBinn1Click 76 | end 77 | object ordenarn1: TMenuItem 78 | Caption = 'ordenar(n)' 79 | OnClick = ordenarn1Click 80 | end 81 | object estaOrdenadon1: TMenuItem 82 | Caption = 'estaOrdenado(n)' 83 | OnClick = estaOrdenadon1Click 84 | end 85 | object DigitosParesn1: TMenuItem 86 | Caption = 'DigitosPares(n)' 87 | OnClick = DigitosParesn1Click 88 | end 89 | object SumaDigitosParesn1: TMenuItem 90 | Caption = 'SumaPares(n)' 91 | OnClick = SumaDigitosParesn1Click 92 | end 93 | object parAntesImparn1: TMenuItem 94 | Caption = 'parAntesImpar(n)' 95 | OnClick = parAntesImparn1Click 96 | end 97 | end 98 | object CADENAS1: TMenuItem 99 | Caption = 'CADENAS' 100 | object invertirn2: TMenuItem 101 | Caption = 'invertir(x)' 102 | OnClick = invertirn2Click 103 | end 104 | object cantidadPalabrasx1: TMenuItem 105 | Caption = 'cantidadPalabras(x)' 106 | OnClick = cantidadPalabrasx1Click 107 | end 108 | object eliminarVocalesx1: TMenuItem 109 | Caption = 'eliminarVocales(&x)' 110 | OnClick = eliminarVocalesx1Click 111 | end 112 | object palabraMasLargax1: TMenuItem 113 | Caption = 'palabraMasLarga(x)' 114 | OnClick = palabraMasLargax1Click 115 | end 116 | object eliminarPrimerLetrax1: TMenuItem 117 | Caption = 'eliminarPrimerLetra(x)' 118 | OnClick = eliminarPrimerLetrax1Click 119 | end 120 | object invertirPalabras1: TMenuItem 121 | Caption = 'invertirPalabras(x)' 122 | OnClick = invertirPalabras1Click 123 | end 124 | end 125 | object SERIES1: TMenuItem 126 | Caption = 'SERIES' 127 | object fibonaccit1: TMenuItem 128 | Caption = 'fibonacci(t)' 129 | OnClick = fibonaccit1Click 130 | end 131 | object serie1t1: TMenuItem 132 | Caption = 'serie1(t)' 133 | OnClick = serie1t1Click 134 | end 135 | object sumaSerien1: TMenuItem 136 | Caption = 'sumaSerie(n)' 137 | OnClick = sumaSerien1Click 138 | end 139 | object serie2n1: TMenuItem 140 | Caption = 'serie2(n)' 141 | OnClick = serie2n1Click 142 | end 143 | object sumaSerie2n1: TMenuItem 144 | Caption = 'sumaSerie2(n)' 145 | OnClick = sumaSerie2n1Click 146 | end 147 | object sumaSerie3n1: TMenuItem 148 | Caption = 'sumaSerie3(n)' 149 | OnClick = sumaSerie3n1Click 150 | end 151 | end 152 | object VECTORES1: TMenuItem 153 | Caption = 'VECTORES' 154 | object cargarn1: TMenuItem 155 | Caption = 'cargar(n)' 156 | OnClick = cargarn1Click 157 | end 158 | object sumaPares1: TMenuItem 159 | Caption = 'sumaPares' 160 | OnClick = sumaPares1Click 161 | end 162 | object invertir1: TMenuItem 163 | Caption = 'invertir' 164 | OnClick = invertir1Click 165 | end 166 | object cargarPalabrasx1: TMenuItem 167 | Caption = 'cargarPalabras(x)' 168 | OnClick = cargarPalabrasx1Click 169 | end 170 | object cargarVector1001: TMenuItem 171 | Caption = 'cargarVector100(n)' 172 | OnClick = cargarVector1001Click 173 | end 174 | object cadenaNroInv1: TMenuItem 175 | Caption = 'cadenaNroInv()' 176 | OnClick = cadenaNroInv1Click 177 | end 178 | object cargarSerie1: TMenuItem 179 | Caption = 'cargarSerie(n)' 180 | OnClick = cargarSerie1Click 181 | end 182 | object suman1: TMenuItem 183 | Caption = 'suma(n)' 184 | OnClick = suman1Click 185 | end 186 | end 187 | object MATRICES1: TMenuItem 188 | Caption = 'MATRICES' 189 | object serpiente1: TMenuItem 190 | Caption = 'serpiente(m,n)' 191 | OnClick = serpiente1Click 192 | end 193 | object triangular1n1: TMenuItem 194 | Caption = 'triangular1(n)' 195 | OnClick = triangular1n1Click 196 | end 197 | object triangular2n1: TMenuItem 198 | Caption = 'triangular2(n)' 199 | OnClick = triangular2n1Click 200 | end 201 | object cuadrado1n1: TMenuItem 202 | Caption = 'cuadrado1(n)' 203 | OnClick = cuadrado1n1Click 204 | end 205 | object re1: TMenuItem 206 | Caption = 'cargarDiagonal(m, n)' 207 | OnClick = re1Click 208 | end 209 | object caracoln1: TMenuItem 210 | Caption = 'caracol(n)' 211 | OnClick = caracoln1Click 212 | end 213 | object triangular3n1: TMenuItem 214 | Caption = 'triangular3(n)' 215 | OnClick = triangular3n1Click 216 | end 217 | object serpiente2mn1: TMenuItem 218 | Caption = 'serpiente2(m, n)' 219 | OnClick = serpiente2mn1Click 220 | end 221 | object cargarcadena1mn1: TMenuItem 222 | Caption = 'cargarcadena1(m, n)' 223 | OnClick = cargarcadena1mn1Click 224 | end 225 | object cargarCadena2mn1: TMenuItem 226 | Caption = 'cargarCadena2(m, n)' 227 | end 228 | end 229 | end 230 | end 231 | -------------------------------------------------------------------------------- /__history/Unit1.dfm.~54~: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 0 3 | Top = 0 4 | Caption = 'Form1' 5 | ClientHeight = 324 6 | ClientWidth = 566 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | Menu = MainMenu1 14 | OldCreateOrder = False 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object StringGrid1: TStringGrid 18 | Left = 80 19 | Top = 56 20 | Width = 409 21 | Height = 49 22 | ColCount = 10 23 | DefaultColWidth = 60 24 | FixedCols = 0 25 | RowCount = 1 26 | FixedRows = 0 27 | Font.Charset = DEFAULT_CHARSET 28 | Font.Color = clWindowText 29 | Font.Height = -13 30 | Font.Name = 'Tahoma' 31 | Font.Style = [fsBold] 32 | Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing] 33 | ParentFont = False 34 | TabOrder = 0 35 | end 36 | object StringGrid2: TStringGrid 37 | Left = 176 38 | Top = 128 39 | Width = 177 40 | Height = 137 41 | DefaultColWidth = 32 42 | TabOrder = 1 43 | end 44 | object MainMenu1: TMainMenu 45 | Left = 520 46 | Top = 272 47 | object ENTEROS1: TMenuItem 48 | Caption = 'ENTEROS' 49 | object factorialn1: TMenuItem 50 | Caption = 'factorial(n)' 51 | OnClick = factorialn1Click 52 | end 53 | object potencian1: TMenuItem 54 | Caption = 'potencia(n)' 55 | OnClick = potencian1Click 56 | end 57 | object mayorMenorn1: TMenuItem 58 | Caption = 'mayorMenor(n)' 59 | OnClick = mayorMenorn1Click 60 | end 61 | object invertirn1: TMenuItem 62 | Caption = 'invertir(&n)' 63 | OnClick = invertirn1Click 64 | end 65 | object moverMayorFinal1: TMenuItem 66 | Caption = 'moverMayorFinal' 67 | OnClick = moverMayorFinal1Click 68 | end 69 | object sumaBinariaab1: TMenuItem 70 | Caption = 'sumaBinaria(a,b)' 71 | OnClick = sumaBinariaab1Click 72 | end 73 | object toBinn1: TMenuItem 74 | Caption = 'DecimalABinario(n)' 75 | OnClick = toBinn1Click 76 | end 77 | object ordenarn1: TMenuItem 78 | Caption = 'ordenar(n)' 79 | OnClick = ordenarn1Click 80 | end 81 | object estaOrdenadon1: TMenuItem 82 | Caption = 'estaOrdenado(n)' 83 | OnClick = estaOrdenadon1Click 84 | end 85 | object DigitosParesn1: TMenuItem 86 | Caption = 'DigitosPares(n)' 87 | OnClick = DigitosParesn1Click 88 | end 89 | object SumaDigitosParesn1: TMenuItem 90 | Caption = 'SumaPares(n)' 91 | OnClick = SumaDigitosParesn1Click 92 | end 93 | object parAntesImparn1: TMenuItem 94 | Caption = 'parAntesImpar(n)' 95 | OnClick = parAntesImparn1Click 96 | end 97 | end 98 | object CADENAS1: TMenuItem 99 | Caption = 'CADENAS' 100 | object invertirn2: TMenuItem 101 | Caption = 'invertir(x)' 102 | OnClick = invertirn2Click 103 | end 104 | object cantidadPalabrasx1: TMenuItem 105 | Caption = 'cantidadPalabras(x)' 106 | OnClick = cantidadPalabrasx1Click 107 | end 108 | object eliminarVocalesx1: TMenuItem 109 | Caption = 'eliminarVocales(&x)' 110 | OnClick = eliminarVocalesx1Click 111 | end 112 | object palabraMasLargax1: TMenuItem 113 | Caption = 'palabraMasLarga(x)' 114 | OnClick = palabraMasLargax1Click 115 | end 116 | object eliminarPrimerLetrax1: TMenuItem 117 | Caption = 'eliminarPrimerLetra(x)' 118 | OnClick = eliminarPrimerLetrax1Click 119 | end 120 | object invertirPalabras1: TMenuItem 121 | Caption = 'invertirPalabras(x)' 122 | OnClick = invertirPalabras1Click 123 | end 124 | end 125 | object SERIES1: TMenuItem 126 | Caption = 'SERIES' 127 | object fibonaccit1: TMenuItem 128 | Caption = 'fibonacci(t)' 129 | OnClick = fibonaccit1Click 130 | end 131 | object serie1t1: TMenuItem 132 | Caption = 'serie1(t)' 133 | OnClick = serie1t1Click 134 | end 135 | object sumaSerien1: TMenuItem 136 | Caption = 'sumaSerie(n)' 137 | OnClick = sumaSerien1Click 138 | end 139 | object serie2n1: TMenuItem 140 | Caption = 'serie2(n)' 141 | OnClick = serie2n1Click 142 | end 143 | object sumaSerie2n1: TMenuItem 144 | Caption = 'sumaSerie2(n)' 145 | OnClick = sumaSerie2n1Click 146 | end 147 | object sumaSerie3n1: TMenuItem 148 | Caption = 'sumaSerie3(n)' 149 | OnClick = sumaSerie3n1Click 150 | end 151 | end 152 | object VECTORES1: TMenuItem 153 | Caption = 'VECTORES' 154 | object cargarn1: TMenuItem 155 | Caption = 'cargar(n)' 156 | OnClick = cargarn1Click 157 | end 158 | object sumaPares1: TMenuItem 159 | Caption = 'sumaPares' 160 | OnClick = sumaPares1Click 161 | end 162 | object invertir1: TMenuItem 163 | Caption = 'invertir' 164 | OnClick = invertir1Click 165 | end 166 | object cargarPalabrasx1: TMenuItem 167 | Caption = 'cargarPalabras(x)' 168 | OnClick = cargarPalabrasx1Click 169 | end 170 | object cargarVector1001: TMenuItem 171 | Caption = 'cargarVector100(n)' 172 | OnClick = cargarVector1001Click 173 | end 174 | object cadenaNroInv1: TMenuItem 175 | Caption = 'cadenaNroInv()' 176 | OnClick = cadenaNroInv1Click 177 | end 178 | object cargarSerie1: TMenuItem 179 | Caption = 'cargarSerie(n)' 180 | OnClick = cargarSerie1Click 181 | end 182 | object suman1: TMenuItem 183 | Caption = 'suma(n)' 184 | OnClick = suman1Click 185 | end 186 | end 187 | object MATRICES1: TMenuItem 188 | Caption = 'MATRICES' 189 | object serpiente1: TMenuItem 190 | Caption = 'serpiente(m,n)' 191 | OnClick = serpiente1Click 192 | end 193 | object triangular1n1: TMenuItem 194 | Caption = 'triangular1(n)' 195 | OnClick = triangular1n1Click 196 | end 197 | object triangular2n1: TMenuItem 198 | Caption = 'triangular2(n)' 199 | OnClick = triangular2n1Click 200 | end 201 | object cuadrado1n1: TMenuItem 202 | Caption = 'cuadrado1(n)' 203 | OnClick = cuadrado1n1Click 204 | end 205 | object re1: TMenuItem 206 | Caption = 'cargarDiagonal(m, n)' 207 | OnClick = re1Click 208 | end 209 | object caracoln1: TMenuItem 210 | Caption = 'caracol(n)' 211 | OnClick = caracoln1Click 212 | end 213 | object triangular3n1: TMenuItem 214 | Caption = 'triangular3(n)' 215 | OnClick = triangular3n1Click 216 | end 217 | object serpiente2mn1: TMenuItem 218 | Caption = 'serpiente2(m, n)' 219 | OnClick = serpiente2mn1Click 220 | end 221 | object cargarcadena1mn1: TMenuItem 222 | Caption = 'cargarcadena1(m, n)' 223 | OnClick = cargarcadena1mn1Click 224 | end 225 | object cargarCadena2mn1: TMenuItem 226 | Caption = 'cargarCadena2(m, n)' 227 | OnClick = cargarCadena2mn1Click 228 | end 229 | end 230 | end 231 | end 232 | -------------------------------------------------------------------------------- /__history/Unit1.dfm.~55~: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 0 3 | Top = 0 4 | Caption = 'Form1' 5 | ClientHeight = 324 6 | ClientWidth = 566 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | Menu = MainMenu1 14 | OldCreateOrder = False 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object StringGrid1: TStringGrid 18 | Left = 80 19 | Top = 56 20 | Width = 409 21 | Height = 49 22 | ColCount = 10 23 | DefaultColWidth = 60 24 | FixedCols = 0 25 | RowCount = 1 26 | FixedRows = 0 27 | Font.Charset = DEFAULT_CHARSET 28 | Font.Color = clWindowText 29 | Font.Height = -13 30 | Font.Name = 'Tahoma' 31 | Font.Style = [fsBold] 32 | Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing] 33 | ParentFont = False 34 | TabOrder = 0 35 | end 36 | object StringGrid2: TStringGrid 37 | Left = 176 38 | Top = 128 39 | Width = 177 40 | Height = 137 41 | DefaultColWidth = 32 42 | TabOrder = 1 43 | end 44 | object MainMenu1: TMainMenu 45 | Left = 520 46 | Top = 272 47 | object ENTEROS1: TMenuItem 48 | Caption = 'ENTEROS' 49 | object factorialn1: TMenuItem 50 | Caption = 'factorial(n)' 51 | OnClick = factorialn1Click 52 | end 53 | object potencian1: TMenuItem 54 | Caption = 'potencia(n)' 55 | OnClick = potencian1Click 56 | end 57 | object mayorMenorn1: TMenuItem 58 | Caption = 'mayorMenor(n)' 59 | OnClick = mayorMenorn1Click 60 | end 61 | object invertirn1: TMenuItem 62 | Caption = 'invertir(&n)' 63 | OnClick = invertirn1Click 64 | end 65 | object moverMayorFinal1: TMenuItem 66 | Caption = 'moverMayorFinal' 67 | OnClick = moverMayorFinal1Click 68 | end 69 | object sumaBinariaab1: TMenuItem 70 | Caption = 'sumaBinaria(a,b)' 71 | OnClick = sumaBinariaab1Click 72 | end 73 | object toBinn1: TMenuItem 74 | Caption = 'DecimalABinario(n)' 75 | OnClick = toBinn1Click 76 | end 77 | object ordenarn1: TMenuItem 78 | Caption = 'ordenar(n)' 79 | OnClick = ordenarn1Click 80 | end 81 | object estaOrdenadon1: TMenuItem 82 | Caption = 'estaOrdenado(n)' 83 | OnClick = estaOrdenadon1Click 84 | end 85 | object DigitosParesn1: TMenuItem 86 | Caption = 'DigitosPares(n)' 87 | OnClick = DigitosParesn1Click 88 | end 89 | object SumaDigitosParesn1: TMenuItem 90 | Caption = 'SumaPares(n)' 91 | OnClick = SumaDigitosParesn1Click 92 | end 93 | object parAntesImparn1: TMenuItem 94 | Caption = 'parAntesImpar(n)' 95 | OnClick = parAntesImparn1Click 96 | end 97 | end 98 | object CADENAS1: TMenuItem 99 | Caption = 'CADENAS' 100 | object invertirn2: TMenuItem 101 | Caption = 'invertir(x)' 102 | OnClick = invertirn2Click 103 | end 104 | object cantidadPalabrasx1: TMenuItem 105 | Caption = 'cantidadPalabras(x)' 106 | OnClick = cantidadPalabrasx1Click 107 | end 108 | object eliminarVocalesx1: TMenuItem 109 | Caption = 'eliminarVocales(&x)' 110 | OnClick = eliminarVocalesx1Click 111 | end 112 | object palabraMasLargax1: TMenuItem 113 | Caption = 'palabraMasLarga(x)' 114 | OnClick = palabraMasLargax1Click 115 | end 116 | object eliminarPrimerLetrax1: TMenuItem 117 | Caption = 'eliminarPrimerLetra(x)' 118 | OnClick = eliminarPrimerLetrax1Click 119 | end 120 | object invertirPalabras1: TMenuItem 121 | Caption = 'invertirPalabras(x)' 122 | OnClick = invertirPalabras1Click 123 | end 124 | end 125 | object SERIES1: TMenuItem 126 | Caption = 'SERIES' 127 | object fibonaccit1: TMenuItem 128 | Caption = 'fibonacci(t)' 129 | OnClick = fibonaccit1Click 130 | end 131 | object serie1t1: TMenuItem 132 | Caption = 'serie1(t)' 133 | OnClick = serie1t1Click 134 | end 135 | object sumaSerien1: TMenuItem 136 | Caption = 'sumaSerie(n)' 137 | OnClick = sumaSerien1Click 138 | end 139 | object serie2n1: TMenuItem 140 | Caption = 'serie2(n)' 141 | OnClick = serie2n1Click 142 | end 143 | object sumaSerie2n1: TMenuItem 144 | Caption = 'sumaSerie2(n)' 145 | OnClick = sumaSerie2n1Click 146 | end 147 | object sumaSerie3n1: TMenuItem 148 | Caption = 'sumaSerie3(n)' 149 | OnClick = sumaSerie3n1Click 150 | end 151 | end 152 | object VECTORES1: TMenuItem 153 | Caption = 'VECTORES' 154 | object cargarn1: TMenuItem 155 | Caption = 'cargar(n)' 156 | OnClick = cargarn1Click 157 | end 158 | object sumaPares1: TMenuItem 159 | Caption = 'sumaPares' 160 | OnClick = sumaPares1Click 161 | end 162 | object invertir1: TMenuItem 163 | Caption = 'invertir' 164 | OnClick = invertir1Click 165 | end 166 | object cargarPalabrasx1: TMenuItem 167 | Caption = 'cargarPalabras(x)' 168 | OnClick = cargarPalabrasx1Click 169 | end 170 | object cargarVector1001: TMenuItem 171 | Caption = 'cargarVector100(n)' 172 | OnClick = cargarVector1001Click 173 | end 174 | object cadenaNroInv1: TMenuItem 175 | Caption = 'cadenaNroInv()' 176 | OnClick = cadenaNroInv1Click 177 | end 178 | object cargarSerie1: TMenuItem 179 | Caption = 'cargarSerie(n)' 180 | OnClick = cargarSerie1Click 181 | end 182 | object suman1: TMenuItem 183 | Caption = 'suma(n)' 184 | OnClick = suman1Click 185 | end 186 | end 187 | object MATRICES1: TMenuItem 188 | Caption = 'MATRICES' 189 | object serpiente1: TMenuItem 190 | Caption = 'serpiente(m,n)' 191 | OnClick = serpiente1Click 192 | end 193 | object triangular1n1: TMenuItem 194 | Caption = 'triangular1(n)' 195 | OnClick = triangular1n1Click 196 | end 197 | object triangular2n1: TMenuItem 198 | Caption = 'triangular2(n)' 199 | OnClick = triangular2n1Click 200 | end 201 | object cuadrado1n1: TMenuItem 202 | Caption = 'cuadrado1(n)' 203 | OnClick = cuadrado1n1Click 204 | end 205 | object re1: TMenuItem 206 | Caption = 'cargarDiagonal(m, n)' 207 | OnClick = re1Click 208 | end 209 | object caracoln1: TMenuItem 210 | Caption = 'caracol(n)' 211 | OnClick = caracoln1Click 212 | end 213 | object triangular3n1: TMenuItem 214 | Caption = 'triangular3(n)' 215 | OnClick = triangular3n1Click 216 | end 217 | object serpiente2mn1: TMenuItem 218 | Caption = 'serpiente2(m, n)' 219 | OnClick = serpiente2mn1Click 220 | end 221 | object cargarcadena1mn1: TMenuItem 222 | Caption = 'cargarcadena1(m, n)' 223 | OnClick = cargarcadena1mn1Click 224 | end 225 | object cargarCadena2mn1: TMenuItem 226 | Caption = 'cargarCadena2(m, n)' 227 | OnClick = cargarCadena2mn1Click 228 | end 229 | end 230 | object xtra1: TMenuItem 231 | Caption = 'xtra' 232 | object triangular11: TMenuItem 233 | Caption = 'triangular1' 234 | end 235 | end 236 | end 237 | end 238 | -------------------------------------------------------------------------------- /__history/Unit1.dfm.~56~: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 0 3 | Top = 0 4 | Caption = 'Form1' 5 | ClientHeight = 324 6 | ClientWidth = 566 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | Menu = MainMenu1 14 | OldCreateOrder = False 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object StringGrid1: TStringGrid 18 | Left = 80 19 | Top = 56 20 | Width = 409 21 | Height = 49 22 | ColCount = 10 23 | DefaultColWidth = 60 24 | FixedCols = 0 25 | RowCount = 1 26 | FixedRows = 0 27 | Font.Charset = DEFAULT_CHARSET 28 | Font.Color = clWindowText 29 | Font.Height = -13 30 | Font.Name = 'Tahoma' 31 | Font.Style = [fsBold] 32 | Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing] 33 | ParentFont = False 34 | TabOrder = 0 35 | end 36 | object StringGrid2: TStringGrid 37 | Left = 176 38 | Top = 128 39 | Width = 177 40 | Height = 137 41 | DefaultColWidth = 32 42 | TabOrder = 1 43 | end 44 | object MainMenu1: TMainMenu 45 | Left = 520 46 | Top = 272 47 | object ENTEROS1: TMenuItem 48 | Caption = 'ENTEROS' 49 | object factorialn1: TMenuItem 50 | Caption = 'factorial(n)' 51 | OnClick = factorialn1Click 52 | end 53 | object potencian1: TMenuItem 54 | Caption = 'potencia(n)' 55 | OnClick = potencian1Click 56 | end 57 | object mayorMenorn1: TMenuItem 58 | Caption = 'mayorMenor(n)' 59 | OnClick = mayorMenorn1Click 60 | end 61 | object invertirn1: TMenuItem 62 | Caption = 'invertir(&n)' 63 | OnClick = invertirn1Click 64 | end 65 | object moverMayorFinal1: TMenuItem 66 | Caption = 'moverMayorFinal' 67 | OnClick = moverMayorFinal1Click 68 | end 69 | object sumaBinariaab1: TMenuItem 70 | Caption = 'sumaBinaria(a,b)' 71 | OnClick = sumaBinariaab1Click 72 | end 73 | object toBinn1: TMenuItem 74 | Caption = 'DecimalABinario(n)' 75 | OnClick = toBinn1Click 76 | end 77 | object ordenarn1: TMenuItem 78 | Caption = 'ordenar(n)' 79 | OnClick = ordenarn1Click 80 | end 81 | object estaOrdenadon1: TMenuItem 82 | Caption = 'estaOrdenado(n)' 83 | OnClick = estaOrdenadon1Click 84 | end 85 | object DigitosParesn1: TMenuItem 86 | Caption = 'DigitosPares(n)' 87 | OnClick = DigitosParesn1Click 88 | end 89 | object SumaDigitosParesn1: TMenuItem 90 | Caption = 'SumaPares(n)' 91 | OnClick = SumaDigitosParesn1Click 92 | end 93 | object parAntesImparn1: TMenuItem 94 | Caption = 'parAntesImpar(n)' 95 | OnClick = parAntesImparn1Click 96 | end 97 | end 98 | object CADENAS1: TMenuItem 99 | Caption = 'CADENAS' 100 | object invertirn2: TMenuItem 101 | Caption = 'invertir(x)' 102 | OnClick = invertirn2Click 103 | end 104 | object cantidadPalabrasx1: TMenuItem 105 | Caption = 'cantidadPalabras(x)' 106 | OnClick = cantidadPalabrasx1Click 107 | end 108 | object eliminarVocalesx1: TMenuItem 109 | Caption = 'eliminarVocales(&x)' 110 | OnClick = eliminarVocalesx1Click 111 | end 112 | object palabraMasLargax1: TMenuItem 113 | Caption = 'palabraMasLarga(x)' 114 | OnClick = palabraMasLargax1Click 115 | end 116 | object eliminarPrimerLetrax1: TMenuItem 117 | Caption = 'eliminarPrimerLetra(x)' 118 | OnClick = eliminarPrimerLetrax1Click 119 | end 120 | object invertirPalabras1: TMenuItem 121 | Caption = 'invertirPalabras(x)' 122 | OnClick = invertirPalabras1Click 123 | end 124 | end 125 | object SERIES1: TMenuItem 126 | Caption = 'SERIES' 127 | object fibonaccit1: TMenuItem 128 | Caption = 'fibonacci(t)' 129 | OnClick = fibonaccit1Click 130 | end 131 | object serie1t1: TMenuItem 132 | Caption = 'serie1(t)' 133 | OnClick = serie1t1Click 134 | end 135 | object sumaSerien1: TMenuItem 136 | Caption = 'sumaSerie(n)' 137 | OnClick = sumaSerien1Click 138 | end 139 | object serie2n1: TMenuItem 140 | Caption = 'serie2(n)' 141 | OnClick = serie2n1Click 142 | end 143 | object sumaSerie2n1: TMenuItem 144 | Caption = 'sumaSerie2(n)' 145 | OnClick = sumaSerie2n1Click 146 | end 147 | object sumaSerie3n1: TMenuItem 148 | Caption = 'sumaSerie3(n)' 149 | OnClick = sumaSerie3n1Click 150 | end 151 | end 152 | object VECTORES1: TMenuItem 153 | Caption = 'VECTORES' 154 | object cargarn1: TMenuItem 155 | Caption = 'cargar(n)' 156 | OnClick = cargarn1Click 157 | end 158 | object sumaPares1: TMenuItem 159 | Caption = 'sumaPares' 160 | OnClick = sumaPares1Click 161 | end 162 | object invertir1: TMenuItem 163 | Caption = 'invertir' 164 | OnClick = invertir1Click 165 | end 166 | object cargarPalabrasx1: TMenuItem 167 | Caption = 'cargarPalabras(x)' 168 | OnClick = cargarPalabrasx1Click 169 | end 170 | object cargarVector1001: TMenuItem 171 | Caption = 'cargarVector100(n)' 172 | OnClick = cargarVector1001Click 173 | end 174 | object cadenaNroInv1: TMenuItem 175 | Caption = 'cadenaNroInv()' 176 | OnClick = cadenaNroInv1Click 177 | end 178 | object cargarSerie1: TMenuItem 179 | Caption = 'cargarSerie(n)' 180 | OnClick = cargarSerie1Click 181 | end 182 | object suman1: TMenuItem 183 | Caption = 'suma(n)' 184 | OnClick = suman1Click 185 | end 186 | end 187 | object MATRICES1: TMenuItem 188 | Caption = 'MATRICES' 189 | object serpiente1: TMenuItem 190 | Caption = 'serpiente(m,n)' 191 | OnClick = serpiente1Click 192 | end 193 | object triangular1n1: TMenuItem 194 | Caption = 'triangular1(n)' 195 | OnClick = triangular1n1Click 196 | end 197 | object triangular2n1: TMenuItem 198 | Caption = 'triangular2(n)' 199 | OnClick = triangular2n1Click 200 | end 201 | object cuadrado1n1: TMenuItem 202 | Caption = 'cuadrado1(n)' 203 | OnClick = cuadrado1n1Click 204 | end 205 | object re1: TMenuItem 206 | Caption = 'cargarDiagonal(m, n)' 207 | OnClick = re1Click 208 | end 209 | object caracoln1: TMenuItem 210 | Caption = 'caracol(n)' 211 | OnClick = caracoln1Click 212 | end 213 | object triangular3n1: TMenuItem 214 | Caption = 'triangular3(n)' 215 | OnClick = triangular3n1Click 216 | end 217 | object serpiente2mn1: TMenuItem 218 | Caption = 'serpiente2(m, n)' 219 | OnClick = serpiente2mn1Click 220 | end 221 | object cargarcadena1mn1: TMenuItem 222 | Caption = 'cargarcadena1(m, n)' 223 | OnClick = cargarcadena1mn1Click 224 | end 225 | object cargarCadena2mn1: TMenuItem 226 | Caption = 'cargarCadena2(m, n)' 227 | OnClick = cargarCadena2mn1Click 228 | end 229 | end 230 | object xtra1: TMenuItem 231 | Caption = 'xtra' 232 | object triangular11: TMenuItem 233 | Caption = 'triangular1' 234 | OnClick = triangular11Click 235 | end 236 | end 237 | end 238 | end 239 | -------------------------------------------------------------------------------- /__history/Unit1.dfm.~57~: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 0 3 | Top = 0 4 | Caption = 'Form1' 5 | ClientHeight = 324 6 | ClientWidth = 566 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | Menu = MainMenu1 14 | OldCreateOrder = False 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object StringGrid1: TStringGrid 18 | Left = 80 19 | Top = 56 20 | Width = 409 21 | Height = 49 22 | ColCount = 10 23 | DefaultColWidth = 60 24 | FixedCols = 0 25 | RowCount = 1 26 | FixedRows = 0 27 | Font.Charset = DEFAULT_CHARSET 28 | Font.Color = clWindowText 29 | Font.Height = -13 30 | Font.Name = 'Tahoma' 31 | Font.Style = [fsBold] 32 | Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing] 33 | ParentFont = False 34 | TabOrder = 0 35 | end 36 | object StringGrid2: TStringGrid 37 | Left = 176 38 | Top = 128 39 | Width = 177 40 | Height = 137 41 | DefaultColWidth = 32 42 | TabOrder = 1 43 | end 44 | object MainMenu1: TMainMenu 45 | Left = 520 46 | Top = 272 47 | object ENTEROS1: TMenuItem 48 | Caption = 'ENTEROS' 49 | object factorialn1: TMenuItem 50 | Caption = 'factorial(n)' 51 | OnClick = factorialn1Click 52 | end 53 | object potencian1: TMenuItem 54 | Caption = 'potencia(n)' 55 | OnClick = potencian1Click 56 | end 57 | object mayorMenorn1: TMenuItem 58 | Caption = 'mayorMenor(n)' 59 | OnClick = mayorMenorn1Click 60 | end 61 | object invertirn1: TMenuItem 62 | Caption = 'invertir(&n)' 63 | OnClick = invertirn1Click 64 | end 65 | object moverMayorFinal1: TMenuItem 66 | Caption = 'moverMayorFinal' 67 | OnClick = moverMayorFinal1Click 68 | end 69 | object sumaBinariaab1: TMenuItem 70 | Caption = 'sumaBinaria(a,b)' 71 | OnClick = sumaBinariaab1Click 72 | end 73 | object toBinn1: TMenuItem 74 | Caption = 'DecimalABinario(n)' 75 | OnClick = toBinn1Click 76 | end 77 | object ordenarn1: TMenuItem 78 | Caption = 'ordenar(n)' 79 | OnClick = ordenarn1Click 80 | end 81 | object estaOrdenadon1: TMenuItem 82 | Caption = 'estaOrdenado(n)' 83 | OnClick = estaOrdenadon1Click 84 | end 85 | object DigitosParesn1: TMenuItem 86 | Caption = 'DigitosPares(n)' 87 | OnClick = DigitosParesn1Click 88 | end 89 | object SumaDigitosParesn1: TMenuItem 90 | Caption = 'SumaPares(n)' 91 | OnClick = SumaDigitosParesn1Click 92 | end 93 | object parAntesImparn1: TMenuItem 94 | Caption = 'parAntesImpar(n)' 95 | OnClick = parAntesImparn1Click 96 | end 97 | end 98 | object CADENAS1: TMenuItem 99 | Caption = 'CADENAS' 100 | object invertirn2: TMenuItem 101 | Caption = 'invertir(x)' 102 | OnClick = invertirn2Click 103 | end 104 | object cantidadPalabrasx1: TMenuItem 105 | Caption = 'cantidadPalabras(x)' 106 | OnClick = cantidadPalabrasx1Click 107 | end 108 | object eliminarVocalesx1: TMenuItem 109 | Caption = 'eliminarVocales(&x)' 110 | OnClick = eliminarVocalesx1Click 111 | end 112 | object palabraMasLargax1: TMenuItem 113 | Caption = 'palabraMasLarga(x)' 114 | OnClick = palabraMasLargax1Click 115 | end 116 | object eliminarPrimerLetrax1: TMenuItem 117 | Caption = 'eliminarPrimerLetra(x)' 118 | OnClick = eliminarPrimerLetrax1Click 119 | end 120 | object invertirPalabras1: TMenuItem 121 | Caption = 'invertirPalabras(x)' 122 | OnClick = invertirPalabras1Click 123 | end 124 | end 125 | object SERIES1: TMenuItem 126 | Caption = 'SERIES' 127 | object fibonaccit1: TMenuItem 128 | Caption = 'fibonacci(t)' 129 | OnClick = fibonaccit1Click 130 | end 131 | object serie1t1: TMenuItem 132 | Caption = 'serie1(t)' 133 | OnClick = serie1t1Click 134 | end 135 | object sumaSerien1: TMenuItem 136 | Caption = 'sumaSerie(n)' 137 | OnClick = sumaSerien1Click 138 | end 139 | object serie2n1: TMenuItem 140 | Caption = 'serie2(n)' 141 | OnClick = serie2n1Click 142 | end 143 | object sumaSerie2n1: TMenuItem 144 | Caption = 'sumaSerie2(n)' 145 | OnClick = sumaSerie2n1Click 146 | end 147 | object sumaSerie3n1: TMenuItem 148 | Caption = 'sumaSerie3(n)' 149 | OnClick = sumaSerie3n1Click 150 | end 151 | end 152 | object VECTORES1: TMenuItem 153 | Caption = 'VECTORES' 154 | object cargarn1: TMenuItem 155 | Caption = 'cargar(n)' 156 | OnClick = cargarn1Click 157 | end 158 | object sumaPares1: TMenuItem 159 | Caption = 'sumaPares' 160 | OnClick = sumaPares1Click 161 | end 162 | object invertir1: TMenuItem 163 | Caption = 'invertir' 164 | OnClick = invertir1Click 165 | end 166 | object cargarPalabrasx1: TMenuItem 167 | Caption = 'cargarPalabras(x)' 168 | OnClick = cargarPalabrasx1Click 169 | end 170 | object cargarVector1001: TMenuItem 171 | Caption = 'cargarVector100(n)' 172 | OnClick = cargarVector1001Click 173 | end 174 | object cadenaNroInv1: TMenuItem 175 | Caption = 'cadenaNroInv()' 176 | OnClick = cadenaNroInv1Click 177 | end 178 | object cargarSerie1: TMenuItem 179 | Caption = 'cargarSerie(n)' 180 | OnClick = cargarSerie1Click 181 | end 182 | object suman1: TMenuItem 183 | Caption = 'suma(n)' 184 | OnClick = suman1Click 185 | end 186 | end 187 | object MATRICES1: TMenuItem 188 | Caption = 'MATRICES' 189 | object serpiente1: TMenuItem 190 | Caption = 'serpiente(m,n)' 191 | OnClick = serpiente1Click 192 | end 193 | object triangular1n1: TMenuItem 194 | Caption = 'triangular1(n)' 195 | OnClick = triangular1n1Click 196 | end 197 | object triangular2n1: TMenuItem 198 | Caption = 'triangular2(n)' 199 | OnClick = triangular2n1Click 200 | end 201 | object cuadrado1n1: TMenuItem 202 | Caption = 'cuadrado1(n)' 203 | OnClick = cuadrado1n1Click 204 | end 205 | object re1: TMenuItem 206 | Caption = 'cargarDiagonal(m, n)' 207 | OnClick = re1Click 208 | end 209 | object caracoln1: TMenuItem 210 | Caption = 'caracol(n)' 211 | OnClick = caracoln1Click 212 | end 213 | object triangular3n1: TMenuItem 214 | Caption = 'triangular3(n)' 215 | OnClick = triangular3n1Click 216 | end 217 | object serpiente2mn1: TMenuItem 218 | Caption = 'serpiente2(m, n)' 219 | OnClick = serpiente2mn1Click 220 | end 221 | object cargarcadena1mn1: TMenuItem 222 | Caption = 'cargarcadena1(m, n)' 223 | OnClick = cargarcadena1mn1Click 224 | end 225 | object cargarCadena2mn1: TMenuItem 226 | Caption = 'cargarCadena2(m, n)' 227 | OnClick = cargarCadena2mn1Click 228 | end 229 | end 230 | object xtra1: TMenuItem 231 | Caption = 'xtra' 232 | object triangular11: TMenuItem 233 | Caption = 'triangular1' 234 | OnClick = triangular11Click 235 | end 236 | end 237 | end 238 | end 239 | -------------------------------------------------------------------------------- /__history/Unit1.h.~30~: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #ifndef Unit1H 4 | #define Unit1H 5 | //--------------------------------------------------------------------------- 6 | #include 7 | #include 8 | #include 9 | #include 10 | #include 11 | #include 12 | //--------------------------------------------------------------------------- 13 | class TForm1 : public TForm 14 | { 15 | __published: // IDE-managed Components 16 | TMainMenu *MainMenu1; 17 | TMenuItem *ENTEROS1; 18 | TMenuItem *CADENAS1; 19 | TMenuItem *SERIES1; 20 | TMenuItem *VECTORES1; 21 | TMenuItem *MATRICES1; 22 | TMenuItem *factorialn1; 23 | TMenuItem *potencian1; 24 | TMenuItem *mayorMenorn1; 25 | TMenuItem *invertirn1; 26 | TMenuItem *moverMayorFinal1; 27 | TMenuItem *sumaBinariaab1; 28 | TMenuItem *toBinn1; 29 | TMenuItem *ordenarn1; 30 | TMenuItem *invertirn2; 31 | TMenuItem *cantidadPalabrasx1; 32 | TMenuItem *eliminarVocalesx1; 33 | TMenuItem *palabraMasLargax1; 34 | TMenuItem *estaOrdenadon1; 35 | TMenuItem *eliminarPrimerLetrax1; 36 | TMenuItem *invertirPalabras1; 37 | TMenuItem *fibonaccit1; 38 | TMenuItem *serie1t1; 39 | TMenuItem *sumaSerien1; 40 | TMenuItem *serie2n1; 41 | TMenuItem *sumaSerie2n1; 42 | TMenuItem *DigitosParesn1; 43 | TMenuItem *SumaDigitosParesn1; 44 | TMenuItem *parAntesImparn1; 45 | TMenuItem *sumaSerie3n1; 46 | TStringGrid *StringGrid1; 47 | TMenuItem *cargarn1; 48 | TMenuItem *sumaPares1; 49 | TMenuItem *invertir1; 50 | TMenuItem *cargarPalabrasx1; 51 | TMenuItem *cargarVector1001; 52 | TMenuItem *cadenaNroInv1; 53 | TMenuItem *cargarSerie1; 54 | TMenuItem *suman1; 55 | TStringGrid *StringGrid2; 56 | TMenuItem *serpiente1; 57 | TMenuItem *triangular1n1; 58 | TMenuItem *triangular2n1; 59 | TMenuItem *cuadrado1n1; 60 | void __fastcall factorialn1Click(TObject *Sender); 61 | void __fastcall potencian1Click(TObject *Sender); 62 | void __fastcall mayorMenorn1Click(TObject *Sender); 63 | void __fastcall invertirn1Click(TObject *Sender); 64 | void __fastcall moverMayorFinal1Click(TObject *Sender); 65 | void __fastcall sumaBinariaab1Click(TObject *Sender); 66 | void __fastcall toBinn1Click(TObject *Sender); 67 | void __fastcall ordenarn1Click(TObject *Sender); 68 | void __fastcall invertirn2Click(TObject *Sender); 69 | void __fastcall cantidadPalabrasx1Click(TObject *Sender); 70 | void __fastcall eliminarVocalesx1Click(TObject *Sender); 71 | void __fastcall palabraMasLargax1Click(TObject *Sender); 72 | void __fastcall estaOrdenadon1Click(TObject *Sender); 73 | void __fastcall eliminarPrimerLetrax1Click(TObject *Sender); 74 | void __fastcall invertirPalabras1Click(TObject *Sender); 75 | void __fastcall fibonaccit1Click(TObject *Sender); 76 | void __fastcall serie1t1Click(TObject *Sender); 77 | void __fastcall sumaSerien1Click(TObject *Sender); 78 | void __fastcall serie2n1Click(TObject *Sender); 79 | void __fastcall sumaSerie2n1Click(TObject *Sender); 80 | void __fastcall DigitosParesn1Click(TObject *Sender); 81 | void __fastcall SumaDigitosParesn1Click(TObject *Sender); 82 | void __fastcall parAntesImparn1Click(TObject *Sender); 83 | void __fastcall sumaSerie3n1Click(TObject *Sender); 84 | void __fastcall cargarn1Click(TObject *Sender); 85 | void __fastcall sumaPares1Click(TObject *Sender); 86 | void __fastcall invertir1Click(TObject *Sender); 87 | void __fastcall cargarPalabrasx1Click(TObject *Sender); 88 | void __fastcall cargarVector1001Click(TObject *Sender); 89 | void __fastcall cadenaNroInv1Click(TObject *Sender); 90 | void __fastcall cargarSerie1Click(TObject *Sender); 91 | void __fastcall suman1Click(TObject *Sender); 92 | void __fastcall serpiente1Click(TObject *Sender); 93 | void __fastcall triangular1n1Click(TObject *Sender); 94 | void __fastcall triangular2n1Click(TObject *Sender); 95 | void __fastcall cuadrado1n1Click(TObject *Sender); 96 | private: // User declarations 97 | public: // User declarations 98 | __fastcall TForm1(TComponent* Owner); 99 | }; 100 | //--------------------------------------------------------------------------- 101 | extern PACKAGE TForm1 *Form1; 102 | //--------------------------------------------------------------------------- 103 | #endif 104 | -------------------------------------------------------------------------------- /__history/Unit1.h.~31~: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #ifndef Unit1H 4 | #define Unit1H 5 | //--------------------------------------------------------------------------- 6 | #include 7 | #include 8 | #include 9 | #include 10 | #include 11 | #include 12 | //--------------------------------------------------------------------------- 13 | class TForm1 : public TForm 14 | { 15 | __published: // IDE-managed Components 16 | TMainMenu *MainMenu1; 17 | TMenuItem *ENTEROS1; 18 | TMenuItem *CADENAS1; 19 | TMenuItem *SERIES1; 20 | TMenuItem *VECTORES1; 21 | TMenuItem *MATRICES1; 22 | TMenuItem *factorialn1; 23 | TMenuItem *potencian1; 24 | TMenuItem *mayorMenorn1; 25 | TMenuItem *invertirn1; 26 | TMenuItem *moverMayorFinal1; 27 | TMenuItem *sumaBinariaab1; 28 | TMenuItem *toBinn1; 29 | TMenuItem *ordenarn1; 30 | TMenuItem *invertirn2; 31 | TMenuItem *cantidadPalabrasx1; 32 | TMenuItem *eliminarVocalesx1; 33 | TMenuItem *palabraMasLargax1; 34 | TMenuItem *estaOrdenadon1; 35 | TMenuItem *eliminarPrimerLetrax1; 36 | TMenuItem *invertirPalabras1; 37 | TMenuItem *fibonaccit1; 38 | TMenuItem *serie1t1; 39 | TMenuItem *sumaSerien1; 40 | TMenuItem *serie2n1; 41 | TMenuItem *sumaSerie2n1; 42 | TMenuItem *DigitosParesn1; 43 | TMenuItem *SumaDigitosParesn1; 44 | TMenuItem *parAntesImparn1; 45 | TMenuItem *sumaSerie3n1; 46 | TStringGrid *StringGrid1; 47 | TMenuItem *cargarn1; 48 | TMenuItem *sumaPares1; 49 | TMenuItem *invertir1; 50 | TMenuItem *cargarPalabrasx1; 51 | TMenuItem *cargarVector1001; 52 | TMenuItem *cadenaNroInv1; 53 | TMenuItem *cargarSerie1; 54 | TMenuItem *suman1; 55 | TStringGrid *StringGrid2; 56 | TMenuItem *serpiente1; 57 | TMenuItem *triangular1n1; 58 | TMenuItem *triangular2n1; 59 | TMenuItem *cuadrado1n1; 60 | TMenuItem *re1; 61 | void __fastcall factorialn1Click(TObject *Sender); 62 | void __fastcall potencian1Click(TObject *Sender); 63 | void __fastcall mayorMenorn1Click(TObject *Sender); 64 | void __fastcall invertirn1Click(TObject *Sender); 65 | void __fastcall moverMayorFinal1Click(TObject *Sender); 66 | void __fastcall sumaBinariaab1Click(TObject *Sender); 67 | void __fastcall toBinn1Click(TObject *Sender); 68 | void __fastcall ordenarn1Click(TObject *Sender); 69 | void __fastcall invertirn2Click(TObject *Sender); 70 | void __fastcall cantidadPalabrasx1Click(TObject *Sender); 71 | void __fastcall eliminarVocalesx1Click(TObject *Sender); 72 | void __fastcall palabraMasLargax1Click(TObject *Sender); 73 | void __fastcall estaOrdenadon1Click(TObject *Sender); 74 | void __fastcall eliminarPrimerLetrax1Click(TObject *Sender); 75 | void __fastcall invertirPalabras1Click(TObject *Sender); 76 | void __fastcall fibonaccit1Click(TObject *Sender); 77 | void __fastcall serie1t1Click(TObject *Sender); 78 | void __fastcall sumaSerien1Click(TObject *Sender); 79 | void __fastcall serie2n1Click(TObject *Sender); 80 | void __fastcall sumaSerie2n1Click(TObject *Sender); 81 | void __fastcall DigitosParesn1Click(TObject *Sender); 82 | void __fastcall SumaDigitosParesn1Click(TObject *Sender); 83 | void __fastcall parAntesImparn1Click(TObject *Sender); 84 | void __fastcall sumaSerie3n1Click(TObject *Sender); 85 | void __fastcall cargarn1Click(TObject *Sender); 86 | void __fastcall sumaPares1Click(TObject *Sender); 87 | void __fastcall invertir1Click(TObject *Sender); 88 | void __fastcall cargarPalabrasx1Click(TObject *Sender); 89 | void __fastcall cargarVector1001Click(TObject *Sender); 90 | void __fastcall cadenaNroInv1Click(TObject *Sender); 91 | void __fastcall cargarSerie1Click(TObject *Sender); 92 | void __fastcall suman1Click(TObject *Sender); 93 | void __fastcall serpiente1Click(TObject *Sender); 94 | void __fastcall triangular1n1Click(TObject *Sender); 95 | void __fastcall triangular2n1Click(TObject *Sender); 96 | void __fastcall cuadrado1n1Click(TObject *Sender); 97 | void __fastcall re1Click(TObject *Sender); 98 | private: // User declarations 99 | public: // User declarations 100 | __fastcall TForm1(TComponent* Owner); 101 | }; 102 | //--------------------------------------------------------------------------- 103 | extern PACKAGE TForm1 *Form1; 104 | //--------------------------------------------------------------------------- 105 | #endif 106 | -------------------------------------------------------------------------------- /__history/Unit1.h.~32~: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #ifndef Unit1H 4 | #define Unit1H 5 | //--------------------------------------------------------------------------- 6 | #include 7 | #include 8 | #include 9 | #include 10 | #include 11 | #include 12 | //--------------------------------------------------------------------------- 13 | class TForm1 : public TForm 14 | { 15 | __published: // IDE-managed Components 16 | TMainMenu *MainMenu1; 17 | TMenuItem *ENTEROS1; 18 | TMenuItem *CADENAS1; 19 | TMenuItem *SERIES1; 20 | TMenuItem *VECTORES1; 21 | TMenuItem *MATRICES1; 22 | TMenuItem *factorialn1; 23 | TMenuItem *potencian1; 24 | TMenuItem *mayorMenorn1; 25 | TMenuItem *invertirn1; 26 | TMenuItem *moverMayorFinal1; 27 | TMenuItem *sumaBinariaab1; 28 | TMenuItem *toBinn1; 29 | TMenuItem *ordenarn1; 30 | TMenuItem *invertirn2; 31 | TMenuItem *cantidadPalabrasx1; 32 | TMenuItem *eliminarVocalesx1; 33 | TMenuItem *palabraMasLargax1; 34 | TMenuItem *estaOrdenadon1; 35 | TMenuItem *eliminarPrimerLetrax1; 36 | TMenuItem *invertirPalabras1; 37 | TMenuItem *fibonaccit1; 38 | TMenuItem *serie1t1; 39 | TMenuItem *sumaSerien1; 40 | TMenuItem *serie2n1; 41 | TMenuItem *sumaSerie2n1; 42 | TMenuItem *DigitosParesn1; 43 | TMenuItem *SumaDigitosParesn1; 44 | TMenuItem *parAntesImparn1; 45 | TMenuItem *sumaSerie3n1; 46 | TStringGrid *StringGrid1; 47 | TMenuItem *cargarn1; 48 | TMenuItem *sumaPares1; 49 | TMenuItem *invertir1; 50 | TMenuItem *cargarPalabrasx1; 51 | TMenuItem *cargarVector1001; 52 | TMenuItem *cadenaNroInv1; 53 | TMenuItem *cargarSerie1; 54 | TMenuItem *suman1; 55 | TStringGrid *StringGrid2; 56 | TMenuItem *serpiente1; 57 | TMenuItem *triangular1n1; 58 | TMenuItem *triangular2n1; 59 | TMenuItem *cuadrado1n1; 60 | TMenuItem *re1; 61 | TMenuItem *caracoln1; 62 | void __fastcall factorialn1Click(TObject *Sender); 63 | void __fastcall potencian1Click(TObject *Sender); 64 | void __fastcall mayorMenorn1Click(TObject *Sender); 65 | void __fastcall invertirn1Click(TObject *Sender); 66 | void __fastcall moverMayorFinal1Click(TObject *Sender); 67 | void __fastcall sumaBinariaab1Click(TObject *Sender); 68 | void __fastcall toBinn1Click(TObject *Sender); 69 | void __fastcall ordenarn1Click(TObject *Sender); 70 | void __fastcall invertirn2Click(TObject *Sender); 71 | void __fastcall cantidadPalabrasx1Click(TObject *Sender); 72 | void __fastcall eliminarVocalesx1Click(TObject *Sender); 73 | void __fastcall palabraMasLargax1Click(TObject *Sender); 74 | void __fastcall estaOrdenadon1Click(TObject *Sender); 75 | void __fastcall eliminarPrimerLetrax1Click(TObject *Sender); 76 | void __fastcall invertirPalabras1Click(TObject *Sender); 77 | void __fastcall fibonaccit1Click(TObject *Sender); 78 | void __fastcall serie1t1Click(TObject *Sender); 79 | void __fastcall sumaSerien1Click(TObject *Sender); 80 | void __fastcall serie2n1Click(TObject *Sender); 81 | void __fastcall sumaSerie2n1Click(TObject *Sender); 82 | void __fastcall DigitosParesn1Click(TObject *Sender); 83 | void __fastcall SumaDigitosParesn1Click(TObject *Sender); 84 | void __fastcall parAntesImparn1Click(TObject *Sender); 85 | void __fastcall sumaSerie3n1Click(TObject *Sender); 86 | void __fastcall cargarn1Click(TObject *Sender); 87 | void __fastcall sumaPares1Click(TObject *Sender); 88 | void __fastcall invertir1Click(TObject *Sender); 89 | void __fastcall cargarPalabrasx1Click(TObject *Sender); 90 | void __fastcall cargarVector1001Click(TObject *Sender); 91 | void __fastcall cadenaNroInv1Click(TObject *Sender); 92 | void __fastcall cargarSerie1Click(TObject *Sender); 93 | void __fastcall suman1Click(TObject *Sender); 94 | void __fastcall serpiente1Click(TObject *Sender); 95 | void __fastcall triangular1n1Click(TObject *Sender); 96 | void __fastcall triangular2n1Click(TObject *Sender); 97 | void __fastcall cuadrado1n1Click(TObject *Sender); 98 | void __fastcall re1Click(TObject *Sender); 99 | void __fastcall caracoln1Click(TObject *Sender); 100 | private: // User declarations 101 | public: // User declarations 102 | __fastcall TForm1(TComponent* Owner); 103 | }; 104 | //--------------------------------------------------------------------------- 105 | extern PACKAGE TForm1 *Form1; 106 | //--------------------------------------------------------------------------- 107 | #endif 108 | -------------------------------------------------------------------------------- /__history/Unit1.h.~33~: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #ifndef Unit1H 4 | #define Unit1H 5 | //--------------------------------------------------------------------------- 6 | #include 7 | #include 8 | #include 9 | #include 10 | #include 11 | #include 12 | //--------------------------------------------------------------------------- 13 | class TForm1 : public TForm 14 | { 15 | __published: // IDE-managed Components 16 | TMainMenu *MainMenu1; 17 | TMenuItem *ENTEROS1; 18 | TMenuItem *CADENAS1; 19 | TMenuItem *SERIES1; 20 | TMenuItem *VECTORES1; 21 | TMenuItem *MATRICES1; 22 | TMenuItem *factorialn1; 23 | TMenuItem *potencian1; 24 | TMenuItem *mayorMenorn1; 25 | TMenuItem *invertirn1; 26 | TMenuItem *moverMayorFinal1; 27 | TMenuItem *sumaBinariaab1; 28 | TMenuItem *toBinn1; 29 | TMenuItem *ordenarn1; 30 | TMenuItem *invertirn2; 31 | TMenuItem *cantidadPalabrasx1; 32 | TMenuItem *eliminarVocalesx1; 33 | TMenuItem *palabraMasLargax1; 34 | TMenuItem *estaOrdenadon1; 35 | TMenuItem *eliminarPrimerLetrax1; 36 | TMenuItem *invertirPalabras1; 37 | TMenuItem *fibonaccit1; 38 | TMenuItem *serie1t1; 39 | TMenuItem *sumaSerien1; 40 | TMenuItem *serie2n1; 41 | TMenuItem *sumaSerie2n1; 42 | TMenuItem *DigitosParesn1; 43 | TMenuItem *SumaDigitosParesn1; 44 | TMenuItem *parAntesImparn1; 45 | TMenuItem *sumaSerie3n1; 46 | TStringGrid *StringGrid1; 47 | TMenuItem *cargarn1; 48 | TMenuItem *sumaPares1; 49 | TMenuItem *invertir1; 50 | TMenuItem *cargarPalabrasx1; 51 | TMenuItem *cargarVector1001; 52 | TMenuItem *cadenaNroInv1; 53 | TMenuItem *cargarSerie1; 54 | TMenuItem *suman1; 55 | TStringGrid *StringGrid2; 56 | TMenuItem *serpiente1; 57 | TMenuItem *triangular1n1; 58 | TMenuItem *triangular2n1; 59 | TMenuItem *cuadrado1n1; 60 | TMenuItem *re1; 61 | TMenuItem *caracoln1; 62 | TMenuItem *triangular3n1; 63 | void __fastcall factorialn1Click(TObject *Sender); 64 | void __fastcall potencian1Click(TObject *Sender); 65 | void __fastcall mayorMenorn1Click(TObject *Sender); 66 | void __fastcall invertirn1Click(TObject *Sender); 67 | void __fastcall moverMayorFinal1Click(TObject *Sender); 68 | void __fastcall sumaBinariaab1Click(TObject *Sender); 69 | void __fastcall toBinn1Click(TObject *Sender); 70 | void __fastcall ordenarn1Click(TObject *Sender); 71 | void __fastcall invertirn2Click(TObject *Sender); 72 | void __fastcall cantidadPalabrasx1Click(TObject *Sender); 73 | void __fastcall eliminarVocalesx1Click(TObject *Sender); 74 | void __fastcall palabraMasLargax1Click(TObject *Sender); 75 | void __fastcall estaOrdenadon1Click(TObject *Sender); 76 | void __fastcall eliminarPrimerLetrax1Click(TObject *Sender); 77 | void __fastcall invertirPalabras1Click(TObject *Sender); 78 | void __fastcall fibonaccit1Click(TObject *Sender); 79 | void __fastcall serie1t1Click(TObject *Sender); 80 | void __fastcall sumaSerien1Click(TObject *Sender); 81 | void __fastcall serie2n1Click(TObject *Sender); 82 | void __fastcall sumaSerie2n1Click(TObject *Sender); 83 | void __fastcall DigitosParesn1Click(TObject *Sender); 84 | void __fastcall SumaDigitosParesn1Click(TObject *Sender); 85 | void __fastcall parAntesImparn1Click(TObject *Sender); 86 | void __fastcall sumaSerie3n1Click(TObject *Sender); 87 | void __fastcall cargarn1Click(TObject *Sender); 88 | void __fastcall sumaPares1Click(TObject *Sender); 89 | void __fastcall invertir1Click(TObject *Sender); 90 | void __fastcall cargarPalabrasx1Click(TObject *Sender); 91 | void __fastcall cargarVector1001Click(TObject *Sender); 92 | void __fastcall cadenaNroInv1Click(TObject *Sender); 93 | void __fastcall cargarSerie1Click(TObject *Sender); 94 | void __fastcall suman1Click(TObject *Sender); 95 | void __fastcall serpiente1Click(TObject *Sender); 96 | void __fastcall triangular1n1Click(TObject *Sender); 97 | void __fastcall triangular2n1Click(TObject *Sender); 98 | void __fastcall cuadrado1n1Click(TObject *Sender); 99 | void __fastcall re1Click(TObject *Sender); 100 | void __fastcall caracoln1Click(TObject *Sender); 101 | void __fastcall triangular3n1Click(TObject *Sender); 102 | private: // User declarations 103 | public: // User declarations 104 | __fastcall TForm1(TComponent* Owner); 105 | }; 106 | //--------------------------------------------------------------------------- 107 | extern PACKAGE TForm1 *Form1; 108 | //--------------------------------------------------------------------------- 109 | #endif 110 | -------------------------------------------------------------------------------- /__history/Unit1.h.~34~: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #ifndef Unit1H 4 | #define Unit1H 5 | //--------------------------------------------------------------------------- 6 | #include 7 | #include 8 | #include 9 | #include 10 | #include 11 | #include 12 | //--------------------------------------------------------------------------- 13 | class TForm1 : public TForm 14 | { 15 | __published: // IDE-managed Components 16 | TMainMenu *MainMenu1; 17 | TMenuItem *ENTEROS1; 18 | TMenuItem *CADENAS1; 19 | TMenuItem *SERIES1; 20 | TMenuItem *VECTORES1; 21 | TMenuItem *MATRICES1; 22 | TMenuItem *factorialn1; 23 | TMenuItem *potencian1; 24 | TMenuItem *mayorMenorn1; 25 | TMenuItem *invertirn1; 26 | TMenuItem *moverMayorFinal1; 27 | TMenuItem *sumaBinariaab1; 28 | TMenuItem *toBinn1; 29 | TMenuItem *ordenarn1; 30 | TMenuItem *invertirn2; 31 | TMenuItem *cantidadPalabrasx1; 32 | TMenuItem *eliminarVocalesx1; 33 | TMenuItem *palabraMasLargax1; 34 | TMenuItem *estaOrdenadon1; 35 | TMenuItem *eliminarPrimerLetrax1; 36 | TMenuItem *invertirPalabras1; 37 | TMenuItem *fibonaccit1; 38 | TMenuItem *serie1t1; 39 | TMenuItem *sumaSerien1; 40 | TMenuItem *serie2n1; 41 | TMenuItem *sumaSerie2n1; 42 | TMenuItem *DigitosParesn1; 43 | TMenuItem *SumaDigitosParesn1; 44 | TMenuItem *parAntesImparn1; 45 | TMenuItem *sumaSerie3n1; 46 | TStringGrid *StringGrid1; 47 | TMenuItem *cargarn1; 48 | TMenuItem *sumaPares1; 49 | TMenuItem *invertir1; 50 | TMenuItem *cargarPalabrasx1; 51 | TMenuItem *cargarVector1001; 52 | TMenuItem *cadenaNroInv1; 53 | TMenuItem *cargarSerie1; 54 | TMenuItem *suman1; 55 | TStringGrid *StringGrid2; 56 | TMenuItem *serpiente1; 57 | TMenuItem *triangular1n1; 58 | TMenuItem *triangular2n1; 59 | TMenuItem *cuadrado1n1; 60 | TMenuItem *re1; 61 | TMenuItem *caracoln1; 62 | TMenuItem *triangular3n1; 63 | TMenuItem *serpiente2mn1; 64 | void __fastcall factorialn1Click(TObject *Sender); 65 | void __fastcall potencian1Click(TObject *Sender); 66 | void __fastcall mayorMenorn1Click(TObject *Sender); 67 | void __fastcall invertirn1Click(TObject *Sender); 68 | void __fastcall moverMayorFinal1Click(TObject *Sender); 69 | void __fastcall sumaBinariaab1Click(TObject *Sender); 70 | void __fastcall toBinn1Click(TObject *Sender); 71 | void __fastcall ordenarn1Click(TObject *Sender); 72 | void __fastcall invertirn2Click(TObject *Sender); 73 | void __fastcall cantidadPalabrasx1Click(TObject *Sender); 74 | void __fastcall eliminarVocalesx1Click(TObject *Sender); 75 | void __fastcall palabraMasLargax1Click(TObject *Sender); 76 | void __fastcall estaOrdenadon1Click(TObject *Sender); 77 | void __fastcall eliminarPrimerLetrax1Click(TObject *Sender); 78 | void __fastcall invertirPalabras1Click(TObject *Sender); 79 | void __fastcall fibonaccit1Click(TObject *Sender); 80 | void __fastcall serie1t1Click(TObject *Sender); 81 | void __fastcall sumaSerien1Click(TObject *Sender); 82 | void __fastcall serie2n1Click(TObject *Sender); 83 | void __fastcall sumaSerie2n1Click(TObject *Sender); 84 | void __fastcall DigitosParesn1Click(TObject *Sender); 85 | void __fastcall SumaDigitosParesn1Click(TObject *Sender); 86 | void __fastcall parAntesImparn1Click(TObject *Sender); 87 | void __fastcall sumaSerie3n1Click(TObject *Sender); 88 | void __fastcall cargarn1Click(TObject *Sender); 89 | void __fastcall sumaPares1Click(TObject *Sender); 90 | void __fastcall invertir1Click(TObject *Sender); 91 | void __fastcall cargarPalabrasx1Click(TObject *Sender); 92 | void __fastcall cargarVector1001Click(TObject *Sender); 93 | void __fastcall cadenaNroInv1Click(TObject *Sender); 94 | void __fastcall cargarSerie1Click(TObject *Sender); 95 | void __fastcall suman1Click(TObject *Sender); 96 | void __fastcall serpiente1Click(TObject *Sender); 97 | void __fastcall triangular1n1Click(TObject *Sender); 98 | void __fastcall triangular2n1Click(TObject *Sender); 99 | void __fastcall cuadrado1n1Click(TObject *Sender); 100 | void __fastcall re1Click(TObject *Sender); 101 | void __fastcall caracoln1Click(TObject *Sender); 102 | void __fastcall triangular3n1Click(TObject *Sender); 103 | void __fastcall serpiente2mn1Click(TObject *Sender); 104 | private: // User declarations 105 | public: // User declarations 106 | __fastcall TForm1(TComponent* Owner); 107 | }; 108 | //--------------------------------------------------------------------------- 109 | extern PACKAGE TForm1 *Form1; 110 | //--------------------------------------------------------------------------- 111 | #endif 112 | -------------------------------------------------------------------------------- /__history/Unit1.h.~35~: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #ifndef Unit1H 4 | #define Unit1H 5 | //--------------------------------------------------------------------------- 6 | #include 7 | #include 8 | #include 9 | #include 10 | #include 11 | #include 12 | //--------------------------------------------------------------------------- 13 | class TForm1 : public TForm 14 | { 15 | __published: // IDE-managed Components 16 | TMainMenu *MainMenu1; 17 | TMenuItem *ENTEROS1; 18 | TMenuItem *CADENAS1; 19 | TMenuItem *SERIES1; 20 | TMenuItem *VECTORES1; 21 | TMenuItem *MATRICES1; 22 | TMenuItem *factorialn1; 23 | TMenuItem *potencian1; 24 | TMenuItem *mayorMenorn1; 25 | TMenuItem *invertirn1; 26 | TMenuItem *moverMayorFinal1; 27 | TMenuItem *sumaBinariaab1; 28 | TMenuItem *toBinn1; 29 | TMenuItem *ordenarn1; 30 | TMenuItem *invertirn2; 31 | TMenuItem *cantidadPalabrasx1; 32 | TMenuItem *eliminarVocalesx1; 33 | TMenuItem *palabraMasLargax1; 34 | TMenuItem *estaOrdenadon1; 35 | TMenuItem *eliminarPrimerLetrax1; 36 | TMenuItem *invertirPalabras1; 37 | TMenuItem *fibonaccit1; 38 | TMenuItem *serie1t1; 39 | TMenuItem *sumaSerien1; 40 | TMenuItem *serie2n1; 41 | TMenuItem *sumaSerie2n1; 42 | TMenuItem *DigitosParesn1; 43 | TMenuItem *SumaDigitosParesn1; 44 | TMenuItem *parAntesImparn1; 45 | TMenuItem *sumaSerie3n1; 46 | TStringGrid *StringGrid1; 47 | TMenuItem *cargarn1; 48 | TMenuItem *sumaPares1; 49 | TMenuItem *invertir1; 50 | TMenuItem *cargarPalabrasx1; 51 | TMenuItem *cargarVector1001; 52 | TMenuItem *cadenaNroInv1; 53 | TMenuItem *cargarSerie1; 54 | TMenuItem *suman1; 55 | TStringGrid *StringGrid2; 56 | TMenuItem *serpiente1; 57 | TMenuItem *triangular1n1; 58 | TMenuItem *triangular2n1; 59 | TMenuItem *cuadrado1n1; 60 | TMenuItem *re1; 61 | TMenuItem *caracoln1; 62 | TMenuItem *triangular3n1; 63 | TMenuItem *serpiente2mn1; 64 | TMenuItem *cargarcadena1mn1; 65 | void __fastcall factorialn1Click(TObject *Sender); 66 | void __fastcall potencian1Click(TObject *Sender); 67 | void __fastcall mayorMenorn1Click(TObject *Sender); 68 | void __fastcall invertirn1Click(TObject *Sender); 69 | void __fastcall moverMayorFinal1Click(TObject *Sender); 70 | void __fastcall sumaBinariaab1Click(TObject *Sender); 71 | void __fastcall toBinn1Click(TObject *Sender); 72 | void __fastcall ordenarn1Click(TObject *Sender); 73 | void __fastcall invertirn2Click(TObject *Sender); 74 | void __fastcall cantidadPalabrasx1Click(TObject *Sender); 75 | void __fastcall eliminarVocalesx1Click(TObject *Sender); 76 | void __fastcall palabraMasLargax1Click(TObject *Sender); 77 | void __fastcall estaOrdenadon1Click(TObject *Sender); 78 | void __fastcall eliminarPrimerLetrax1Click(TObject *Sender); 79 | void __fastcall invertirPalabras1Click(TObject *Sender); 80 | void __fastcall fibonaccit1Click(TObject *Sender); 81 | void __fastcall serie1t1Click(TObject *Sender); 82 | void __fastcall sumaSerien1Click(TObject *Sender); 83 | void __fastcall serie2n1Click(TObject *Sender); 84 | void __fastcall sumaSerie2n1Click(TObject *Sender); 85 | void __fastcall DigitosParesn1Click(TObject *Sender); 86 | void __fastcall SumaDigitosParesn1Click(TObject *Sender); 87 | void __fastcall parAntesImparn1Click(TObject *Sender); 88 | void __fastcall sumaSerie3n1Click(TObject *Sender); 89 | void __fastcall cargarn1Click(TObject *Sender); 90 | void __fastcall sumaPares1Click(TObject *Sender); 91 | void __fastcall invertir1Click(TObject *Sender); 92 | void __fastcall cargarPalabrasx1Click(TObject *Sender); 93 | void __fastcall cargarVector1001Click(TObject *Sender); 94 | void __fastcall cadenaNroInv1Click(TObject *Sender); 95 | void __fastcall cargarSerie1Click(TObject *Sender); 96 | void __fastcall suman1Click(TObject *Sender); 97 | void __fastcall serpiente1Click(TObject *Sender); 98 | void __fastcall triangular1n1Click(TObject *Sender); 99 | void __fastcall triangular2n1Click(TObject *Sender); 100 | void __fastcall cuadrado1n1Click(TObject *Sender); 101 | void __fastcall re1Click(TObject *Sender); 102 | void __fastcall caracoln1Click(TObject *Sender); 103 | void __fastcall triangular3n1Click(TObject *Sender); 104 | void __fastcall serpiente2mn1Click(TObject *Sender); 105 | void __fastcall cargarcadena1mn1Click(TObject *Sender); 106 | private: // User declarations 107 | public: // User declarations 108 | __fastcall TForm1(TComponent* Owner); 109 | }; 110 | //--------------------------------------------------------------------------- 111 | extern PACKAGE TForm1 *Form1; 112 | //--------------------------------------------------------------------------- 113 | #endif 114 | -------------------------------------------------------------------------------- /__history/Unit1.h.~36~: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #ifndef Unit1H 4 | #define Unit1H 5 | //--------------------------------------------------------------------------- 6 | #include 7 | #include 8 | #include 9 | #include 10 | #include 11 | #include 12 | //--------------------------------------------------------------------------- 13 | class TForm1 : public TForm 14 | { 15 | __published: // IDE-managed Components 16 | TMainMenu *MainMenu1; 17 | TMenuItem *ENTEROS1; 18 | TMenuItem *CADENAS1; 19 | TMenuItem *SERIES1; 20 | TMenuItem *VECTORES1; 21 | TMenuItem *MATRICES1; 22 | TMenuItem *factorialn1; 23 | TMenuItem *potencian1; 24 | TMenuItem *mayorMenorn1; 25 | TMenuItem *invertirn1; 26 | TMenuItem *moverMayorFinal1; 27 | TMenuItem *sumaBinariaab1; 28 | TMenuItem *toBinn1; 29 | TMenuItem *ordenarn1; 30 | TMenuItem *invertirn2; 31 | TMenuItem *cantidadPalabrasx1; 32 | TMenuItem *eliminarVocalesx1; 33 | TMenuItem *palabraMasLargax1; 34 | TMenuItem *estaOrdenadon1; 35 | TMenuItem *eliminarPrimerLetrax1; 36 | TMenuItem *invertirPalabras1; 37 | TMenuItem *fibonaccit1; 38 | TMenuItem *serie1t1; 39 | TMenuItem *sumaSerien1; 40 | TMenuItem *serie2n1; 41 | TMenuItem *sumaSerie2n1; 42 | TMenuItem *DigitosParesn1; 43 | TMenuItem *SumaDigitosParesn1; 44 | TMenuItem *parAntesImparn1; 45 | TMenuItem *sumaSerie3n1; 46 | TStringGrid *StringGrid1; 47 | TMenuItem *cargarn1; 48 | TMenuItem *sumaPares1; 49 | TMenuItem *invertir1; 50 | TMenuItem *cargarPalabrasx1; 51 | TMenuItem *cargarVector1001; 52 | TMenuItem *cadenaNroInv1; 53 | TMenuItem *cargarSerie1; 54 | TMenuItem *suman1; 55 | TStringGrid *StringGrid2; 56 | TMenuItem *serpiente1; 57 | TMenuItem *triangular1n1; 58 | TMenuItem *triangular2n1; 59 | TMenuItem *cuadrado1n1; 60 | TMenuItem *re1; 61 | TMenuItem *caracoln1; 62 | TMenuItem *triangular3n1; 63 | TMenuItem *serpiente2mn1; 64 | TMenuItem *cargarcadena1mn1; 65 | TMenuItem *cargarCadena2mn1; 66 | void __fastcall factorialn1Click(TObject *Sender); 67 | void __fastcall potencian1Click(TObject *Sender); 68 | void __fastcall mayorMenorn1Click(TObject *Sender); 69 | void __fastcall invertirn1Click(TObject *Sender); 70 | void __fastcall moverMayorFinal1Click(TObject *Sender); 71 | void __fastcall sumaBinariaab1Click(TObject *Sender); 72 | void __fastcall toBinn1Click(TObject *Sender); 73 | void __fastcall ordenarn1Click(TObject *Sender); 74 | void __fastcall invertirn2Click(TObject *Sender); 75 | void __fastcall cantidadPalabrasx1Click(TObject *Sender); 76 | void __fastcall eliminarVocalesx1Click(TObject *Sender); 77 | void __fastcall palabraMasLargax1Click(TObject *Sender); 78 | void __fastcall estaOrdenadon1Click(TObject *Sender); 79 | void __fastcall eliminarPrimerLetrax1Click(TObject *Sender); 80 | void __fastcall invertirPalabras1Click(TObject *Sender); 81 | void __fastcall fibonaccit1Click(TObject *Sender); 82 | void __fastcall serie1t1Click(TObject *Sender); 83 | void __fastcall sumaSerien1Click(TObject *Sender); 84 | void __fastcall serie2n1Click(TObject *Sender); 85 | void __fastcall sumaSerie2n1Click(TObject *Sender); 86 | void __fastcall DigitosParesn1Click(TObject *Sender); 87 | void __fastcall SumaDigitosParesn1Click(TObject *Sender); 88 | void __fastcall parAntesImparn1Click(TObject *Sender); 89 | void __fastcall sumaSerie3n1Click(TObject *Sender); 90 | void __fastcall cargarn1Click(TObject *Sender); 91 | void __fastcall sumaPares1Click(TObject *Sender); 92 | void __fastcall invertir1Click(TObject *Sender); 93 | void __fastcall cargarPalabrasx1Click(TObject *Sender); 94 | void __fastcall cargarVector1001Click(TObject *Sender); 95 | void __fastcall cadenaNroInv1Click(TObject *Sender); 96 | void __fastcall cargarSerie1Click(TObject *Sender); 97 | void __fastcall suman1Click(TObject *Sender); 98 | void __fastcall serpiente1Click(TObject *Sender); 99 | void __fastcall triangular1n1Click(TObject *Sender); 100 | void __fastcall triangular2n1Click(TObject *Sender); 101 | void __fastcall cuadrado1n1Click(TObject *Sender); 102 | void __fastcall re1Click(TObject *Sender); 103 | void __fastcall caracoln1Click(TObject *Sender); 104 | void __fastcall triangular3n1Click(TObject *Sender); 105 | void __fastcall serpiente2mn1Click(TObject *Sender); 106 | void __fastcall cargarcadena1mn1Click(TObject *Sender); 107 | private: // User declarations 108 | public: // User declarations 109 | __fastcall TForm1(TComponent* Owner); 110 | }; 111 | //--------------------------------------------------------------------------- 112 | extern PACKAGE TForm1 *Form1; 113 | //--------------------------------------------------------------------------- 114 | #endif 115 | -------------------------------------------------------------------------------- /__history/Unit1.h.~37~: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #ifndef Unit1H 4 | #define Unit1H 5 | //--------------------------------------------------------------------------- 6 | #include 7 | #include 8 | #include 9 | #include 10 | #include 11 | #include 12 | //--------------------------------------------------------------------------- 13 | class TForm1 : public TForm 14 | { 15 | __published: // IDE-managed Components 16 | TMainMenu *MainMenu1; 17 | TMenuItem *ENTEROS1; 18 | TMenuItem *CADENAS1; 19 | TMenuItem *SERIES1; 20 | TMenuItem *VECTORES1; 21 | TMenuItem *MATRICES1; 22 | TMenuItem *factorialn1; 23 | TMenuItem *potencian1; 24 | TMenuItem *mayorMenorn1; 25 | TMenuItem *invertirn1; 26 | TMenuItem *moverMayorFinal1; 27 | TMenuItem *sumaBinariaab1; 28 | TMenuItem *toBinn1; 29 | TMenuItem *ordenarn1; 30 | TMenuItem *invertirn2; 31 | TMenuItem *cantidadPalabrasx1; 32 | TMenuItem *eliminarVocalesx1; 33 | TMenuItem *palabraMasLargax1; 34 | TMenuItem *estaOrdenadon1; 35 | TMenuItem *eliminarPrimerLetrax1; 36 | TMenuItem *invertirPalabras1; 37 | TMenuItem *fibonaccit1; 38 | TMenuItem *serie1t1; 39 | TMenuItem *sumaSerien1; 40 | TMenuItem *serie2n1; 41 | TMenuItem *sumaSerie2n1; 42 | TMenuItem *DigitosParesn1; 43 | TMenuItem *SumaDigitosParesn1; 44 | TMenuItem *parAntesImparn1; 45 | TMenuItem *sumaSerie3n1; 46 | TStringGrid *StringGrid1; 47 | TMenuItem *cargarn1; 48 | TMenuItem *sumaPares1; 49 | TMenuItem *invertir1; 50 | TMenuItem *cargarPalabrasx1; 51 | TMenuItem *cargarVector1001; 52 | TMenuItem *cadenaNroInv1; 53 | TMenuItem *cargarSerie1; 54 | TMenuItem *suman1; 55 | TStringGrid *StringGrid2; 56 | TMenuItem *serpiente1; 57 | TMenuItem *triangular1n1; 58 | TMenuItem *triangular2n1; 59 | TMenuItem *cuadrado1n1; 60 | TMenuItem *re1; 61 | TMenuItem *caracoln1; 62 | TMenuItem *triangular3n1; 63 | TMenuItem *serpiente2mn1; 64 | TMenuItem *cargarcadena1mn1; 65 | TMenuItem *cargarCadena2mn1; 66 | void __fastcall factorialn1Click(TObject *Sender); 67 | void __fastcall potencian1Click(TObject *Sender); 68 | void __fastcall mayorMenorn1Click(TObject *Sender); 69 | void __fastcall invertirn1Click(TObject *Sender); 70 | void __fastcall moverMayorFinal1Click(TObject *Sender); 71 | void __fastcall sumaBinariaab1Click(TObject *Sender); 72 | void __fastcall toBinn1Click(TObject *Sender); 73 | void __fastcall ordenarn1Click(TObject *Sender); 74 | void __fastcall invertirn2Click(TObject *Sender); 75 | void __fastcall cantidadPalabrasx1Click(TObject *Sender); 76 | void __fastcall eliminarVocalesx1Click(TObject *Sender); 77 | void __fastcall palabraMasLargax1Click(TObject *Sender); 78 | void __fastcall estaOrdenadon1Click(TObject *Sender); 79 | void __fastcall eliminarPrimerLetrax1Click(TObject *Sender); 80 | void __fastcall invertirPalabras1Click(TObject *Sender); 81 | void __fastcall fibonaccit1Click(TObject *Sender); 82 | void __fastcall serie1t1Click(TObject *Sender); 83 | void __fastcall sumaSerien1Click(TObject *Sender); 84 | void __fastcall serie2n1Click(TObject *Sender); 85 | void __fastcall sumaSerie2n1Click(TObject *Sender); 86 | void __fastcall DigitosParesn1Click(TObject *Sender); 87 | void __fastcall SumaDigitosParesn1Click(TObject *Sender); 88 | void __fastcall parAntesImparn1Click(TObject *Sender); 89 | void __fastcall sumaSerie3n1Click(TObject *Sender); 90 | void __fastcall cargarn1Click(TObject *Sender); 91 | void __fastcall sumaPares1Click(TObject *Sender); 92 | void __fastcall invertir1Click(TObject *Sender); 93 | void __fastcall cargarPalabrasx1Click(TObject *Sender); 94 | void __fastcall cargarVector1001Click(TObject *Sender); 95 | void __fastcall cadenaNroInv1Click(TObject *Sender); 96 | void __fastcall cargarSerie1Click(TObject *Sender); 97 | void __fastcall suman1Click(TObject *Sender); 98 | void __fastcall serpiente1Click(TObject *Sender); 99 | void __fastcall triangular1n1Click(TObject *Sender); 100 | void __fastcall triangular2n1Click(TObject *Sender); 101 | void __fastcall cuadrado1n1Click(TObject *Sender); 102 | void __fastcall re1Click(TObject *Sender); 103 | void __fastcall caracoln1Click(TObject *Sender); 104 | void __fastcall triangular3n1Click(TObject *Sender); 105 | void __fastcall serpiente2mn1Click(TObject *Sender); 106 | void __fastcall cargarcadena1mn1Click(TObject *Sender); 107 | void __fastcall cargarCadena2mn1Click(TObject *Sender); 108 | private: // User declarations 109 | public: // User declarations 110 | __fastcall TForm1(TComponent* Owner); 111 | }; 112 | //--------------------------------------------------------------------------- 113 | extern PACKAGE TForm1 *Form1; 114 | //--------------------------------------------------------------------------- 115 | #endif 116 | -------------------------------------------------------------------------------- /__history/Unit1.h.~38~: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #ifndef Unit1H 4 | #define Unit1H 5 | //--------------------------------------------------------------------------- 6 | #include 7 | #include 8 | #include 9 | #include 10 | #include 11 | #include 12 | //--------------------------------------------------------------------------- 13 | class TForm1 : public TForm 14 | { 15 | __published: // IDE-managed Components 16 | TMainMenu *MainMenu1; 17 | TMenuItem *ENTEROS1; 18 | TMenuItem *CADENAS1; 19 | TMenuItem *SERIES1; 20 | TMenuItem *VECTORES1; 21 | TMenuItem *MATRICES1; 22 | TMenuItem *factorialn1; 23 | TMenuItem *potencian1; 24 | TMenuItem *mayorMenorn1; 25 | TMenuItem *invertirn1; 26 | TMenuItem *moverMayorFinal1; 27 | TMenuItem *sumaBinariaab1; 28 | TMenuItem *toBinn1; 29 | TMenuItem *ordenarn1; 30 | TMenuItem *invertirn2; 31 | TMenuItem *cantidadPalabrasx1; 32 | TMenuItem *eliminarVocalesx1; 33 | TMenuItem *palabraMasLargax1; 34 | TMenuItem *estaOrdenadon1; 35 | TMenuItem *eliminarPrimerLetrax1; 36 | TMenuItem *invertirPalabras1; 37 | TMenuItem *fibonaccit1; 38 | TMenuItem *serie1t1; 39 | TMenuItem *sumaSerien1; 40 | TMenuItem *serie2n1; 41 | TMenuItem *sumaSerie2n1; 42 | TMenuItem *DigitosParesn1; 43 | TMenuItem *SumaDigitosParesn1; 44 | TMenuItem *parAntesImparn1; 45 | TMenuItem *sumaSerie3n1; 46 | TStringGrid *StringGrid1; 47 | TMenuItem *cargarn1; 48 | TMenuItem *sumaPares1; 49 | TMenuItem *invertir1; 50 | TMenuItem *cargarPalabrasx1; 51 | TMenuItem *cargarVector1001; 52 | TMenuItem *cadenaNroInv1; 53 | TMenuItem *cargarSerie1; 54 | TMenuItem *suman1; 55 | TStringGrid *StringGrid2; 56 | TMenuItem *serpiente1; 57 | TMenuItem *triangular1n1; 58 | TMenuItem *triangular2n1; 59 | TMenuItem *cuadrado1n1; 60 | TMenuItem *re1; 61 | TMenuItem *caracoln1; 62 | TMenuItem *triangular3n1; 63 | TMenuItem *serpiente2mn1; 64 | TMenuItem *cargarcadena1mn1; 65 | TMenuItem *cargarCadena2mn1; 66 | TMenuItem *xtra1; 67 | TMenuItem *triangular11; 68 | void __fastcall factorialn1Click(TObject *Sender); 69 | void __fastcall potencian1Click(TObject *Sender); 70 | void __fastcall mayorMenorn1Click(TObject *Sender); 71 | void __fastcall invertirn1Click(TObject *Sender); 72 | void __fastcall moverMayorFinal1Click(TObject *Sender); 73 | void __fastcall sumaBinariaab1Click(TObject *Sender); 74 | void __fastcall toBinn1Click(TObject *Sender); 75 | void __fastcall ordenarn1Click(TObject *Sender); 76 | void __fastcall invertirn2Click(TObject *Sender); 77 | void __fastcall cantidadPalabrasx1Click(TObject *Sender); 78 | void __fastcall eliminarVocalesx1Click(TObject *Sender); 79 | void __fastcall palabraMasLargax1Click(TObject *Sender); 80 | void __fastcall estaOrdenadon1Click(TObject *Sender); 81 | void __fastcall eliminarPrimerLetrax1Click(TObject *Sender); 82 | void __fastcall invertirPalabras1Click(TObject *Sender); 83 | void __fastcall fibonaccit1Click(TObject *Sender); 84 | void __fastcall serie1t1Click(TObject *Sender); 85 | void __fastcall sumaSerien1Click(TObject *Sender); 86 | void __fastcall serie2n1Click(TObject *Sender); 87 | void __fastcall sumaSerie2n1Click(TObject *Sender); 88 | void __fastcall DigitosParesn1Click(TObject *Sender); 89 | void __fastcall SumaDigitosParesn1Click(TObject *Sender); 90 | void __fastcall parAntesImparn1Click(TObject *Sender); 91 | void __fastcall sumaSerie3n1Click(TObject *Sender); 92 | void __fastcall cargarn1Click(TObject *Sender); 93 | void __fastcall sumaPares1Click(TObject *Sender); 94 | void __fastcall invertir1Click(TObject *Sender); 95 | void __fastcall cargarPalabrasx1Click(TObject *Sender); 96 | void __fastcall cargarVector1001Click(TObject *Sender); 97 | void __fastcall cadenaNroInv1Click(TObject *Sender); 98 | void __fastcall cargarSerie1Click(TObject *Sender); 99 | void __fastcall suman1Click(TObject *Sender); 100 | void __fastcall serpiente1Click(TObject *Sender); 101 | void __fastcall triangular1n1Click(TObject *Sender); 102 | void __fastcall triangular2n1Click(TObject *Sender); 103 | void __fastcall cuadrado1n1Click(TObject *Sender); 104 | void __fastcall re1Click(TObject *Sender); 105 | void __fastcall caracoln1Click(TObject *Sender); 106 | void __fastcall triangular3n1Click(TObject *Sender); 107 | void __fastcall serpiente2mn1Click(TObject *Sender); 108 | void __fastcall cargarcadena1mn1Click(TObject *Sender); 109 | void __fastcall cargarCadena2mn1Click(TObject *Sender); 110 | private: // User declarations 111 | public: // User declarations 112 | __fastcall TForm1(TComponent* Owner); 113 | }; 114 | //--------------------------------------------------------------------------- 115 | extern PACKAGE TForm1 *Form1; 116 | //--------------------------------------------------------------------------- 117 | #endif 118 | -------------------------------------------------------------------------------- /__history/Unit1.h.~39~: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #ifndef Unit1H 4 | #define Unit1H 5 | //--------------------------------------------------------------------------- 6 | #include 7 | #include 8 | #include 9 | #include 10 | #include 11 | #include 12 | //--------------------------------------------------------------------------- 13 | class TForm1 : public TForm 14 | { 15 | __published: // IDE-managed Components 16 | TMainMenu *MainMenu1; 17 | TMenuItem *ENTEROS1; 18 | TMenuItem *CADENAS1; 19 | TMenuItem *SERIES1; 20 | TMenuItem *VECTORES1; 21 | TMenuItem *MATRICES1; 22 | TMenuItem *factorialn1; 23 | TMenuItem *potencian1; 24 | TMenuItem *mayorMenorn1; 25 | TMenuItem *invertirn1; 26 | TMenuItem *moverMayorFinal1; 27 | TMenuItem *sumaBinariaab1; 28 | TMenuItem *toBinn1; 29 | TMenuItem *ordenarn1; 30 | TMenuItem *invertirn2; 31 | TMenuItem *cantidadPalabrasx1; 32 | TMenuItem *eliminarVocalesx1; 33 | TMenuItem *palabraMasLargax1; 34 | TMenuItem *estaOrdenadon1; 35 | TMenuItem *eliminarPrimerLetrax1; 36 | TMenuItem *invertirPalabras1; 37 | TMenuItem *fibonaccit1; 38 | TMenuItem *serie1t1; 39 | TMenuItem *sumaSerien1; 40 | TMenuItem *serie2n1; 41 | TMenuItem *sumaSerie2n1; 42 | TMenuItem *DigitosParesn1; 43 | TMenuItem *SumaDigitosParesn1; 44 | TMenuItem *parAntesImparn1; 45 | TMenuItem *sumaSerie3n1; 46 | TStringGrid *StringGrid1; 47 | TMenuItem *cargarn1; 48 | TMenuItem *sumaPares1; 49 | TMenuItem *invertir1; 50 | TMenuItem *cargarPalabrasx1; 51 | TMenuItem *cargarVector1001; 52 | TMenuItem *cadenaNroInv1; 53 | TMenuItem *cargarSerie1; 54 | TMenuItem *suman1; 55 | TStringGrid *StringGrid2; 56 | TMenuItem *serpiente1; 57 | TMenuItem *triangular1n1; 58 | TMenuItem *triangular2n1; 59 | TMenuItem *cuadrado1n1; 60 | TMenuItem *re1; 61 | TMenuItem *caracoln1; 62 | TMenuItem *triangular3n1; 63 | TMenuItem *serpiente2mn1; 64 | TMenuItem *cargarcadena1mn1; 65 | TMenuItem *cargarCadena2mn1; 66 | TMenuItem *xtra1; 67 | TMenuItem *triangular11; 68 | void __fastcall factorialn1Click(TObject *Sender); 69 | void __fastcall potencian1Click(TObject *Sender); 70 | void __fastcall mayorMenorn1Click(TObject *Sender); 71 | void __fastcall invertirn1Click(TObject *Sender); 72 | void __fastcall moverMayorFinal1Click(TObject *Sender); 73 | void __fastcall sumaBinariaab1Click(TObject *Sender); 74 | void __fastcall toBinn1Click(TObject *Sender); 75 | void __fastcall ordenarn1Click(TObject *Sender); 76 | void __fastcall invertirn2Click(TObject *Sender); 77 | void __fastcall cantidadPalabrasx1Click(TObject *Sender); 78 | void __fastcall eliminarVocalesx1Click(TObject *Sender); 79 | void __fastcall palabraMasLargax1Click(TObject *Sender); 80 | void __fastcall estaOrdenadon1Click(TObject *Sender); 81 | void __fastcall eliminarPrimerLetrax1Click(TObject *Sender); 82 | void __fastcall invertirPalabras1Click(TObject *Sender); 83 | void __fastcall fibonaccit1Click(TObject *Sender); 84 | void __fastcall serie1t1Click(TObject *Sender); 85 | void __fastcall sumaSerien1Click(TObject *Sender); 86 | void __fastcall serie2n1Click(TObject *Sender); 87 | void __fastcall sumaSerie2n1Click(TObject *Sender); 88 | void __fastcall DigitosParesn1Click(TObject *Sender); 89 | void __fastcall SumaDigitosParesn1Click(TObject *Sender); 90 | void __fastcall parAntesImparn1Click(TObject *Sender); 91 | void __fastcall sumaSerie3n1Click(TObject *Sender); 92 | void __fastcall cargarn1Click(TObject *Sender); 93 | void __fastcall sumaPares1Click(TObject *Sender); 94 | void __fastcall invertir1Click(TObject *Sender); 95 | void __fastcall cargarPalabrasx1Click(TObject *Sender); 96 | void __fastcall cargarVector1001Click(TObject *Sender); 97 | void __fastcall cadenaNroInv1Click(TObject *Sender); 98 | void __fastcall cargarSerie1Click(TObject *Sender); 99 | void __fastcall suman1Click(TObject *Sender); 100 | void __fastcall serpiente1Click(TObject *Sender); 101 | void __fastcall triangular1n1Click(TObject *Sender); 102 | void __fastcall triangular2n1Click(TObject *Sender); 103 | void __fastcall cuadrado1n1Click(TObject *Sender); 104 | void __fastcall re1Click(TObject *Sender); 105 | void __fastcall caracoln1Click(TObject *Sender); 106 | void __fastcall triangular3n1Click(TObject *Sender); 107 | void __fastcall serpiente2mn1Click(TObject *Sender); 108 | void __fastcall cargarcadena1mn1Click(TObject *Sender); 109 | void __fastcall cargarCadena2mn1Click(TObject *Sender); 110 | void __fastcall triangular11Click(TObject *Sender); 111 | private: // User declarations 112 | public: // User declarations 113 | __fastcall TForm1(TComponent* Owner); 114 | }; 115 | //--------------------------------------------------------------------------- 116 | extern PACKAGE TForm1 *Form1; 117 | //--------------------------------------------------------------------------- 118 | #endif 119 | --------------------------------------------------------------------------------