Problemas Resuelto Recursividad Programación II - Capitulo 1

Hola ,queridos lectores y programadores he creado esta sección de problemas resueltos para compartir algunos ejercicios, para ello usaremos el lenguaje c++ con IDE C++Builder

Problemas resuelto de la materia programación II

Problema 1:

Escribir una función que devuelva true si un vector contiene únicamente cadenas palíndromas. Una cadena es palíndroma si se leen igual de izquierda a derecha como de derecha a izquierda .(20 Ptos)

Ej.1 v["oso", "oruro", "reconocer", "arenera"] ==>  true
Ej2. v["rotor", "aibofobia","sala", "ala"] ==>false

La respuesta debe estar máximo en dos funciones 

void InvertirCad(String &Cad){ byte L=Cad.Length(); if ((L<=1)||(Cad=="")){ Cad=Cad; }else { String c=Cad.SubString(1,2); Cad.Delete(1,2); InvertirCad(Cad); Cad=Cad+c[2]+c[1]; } } bool Palíndromas(TStringGrid *Vec,byte Dim){ Boolean B=true; if (Dim>=1) { B=Palíndromas(Vec,Dim-1); String C1=Vec->Cells[Dim-1][0]; String C2=Vec->Cells[Dim-1][0]; InvertirCad(C2); if (C1!=C2){ B=false; } } return B; } void __fastcall TForm1::Palabraspalndromas1Click(TObject *Sender) { Boolean B=Palíndromas(SGVector,SGVector->ColCount); if (B==true){ TSalida->Text="true"; }else TSalida->Text="false"; }

 ⇜✫⇝✫⇜✫⇝✫⇜✫⇝✫⇜✫⇝✫

Problema 2:

Escribir una función que devuelva una cadena formada por los dígitos de un número repetidos la cantidad de veces que el dígito representa. Máximo 2 funciones.

Ej. CadDeDigitos(5021)=>"55555221"

String repetido(Cardinal n, Cardinal v) { String cad; if (n == 0) cad = ""; else cad = repetido(n - 1, v) + String(v); return cad; } String CadDeDigitos(Cardinal n) { String cad; if (n < 10) cad = repetido(n, n); else { Byte dig = n % 10; n = n / 10; cad = CadDeDigitos(n) + repetido(dig, dig); } return cad; }

 

 

String digitos(byte d,byte d2){ String s; if (d==0) { s=""; }else{ s=digitos(d-1,d2); s=s+d2; } return s; } String examen112(int n){ String s; if (n>0) { byte d=n%10; s=examen112(n/10); s=s+digitos(d,d); }else{ s=""; } return s; } void __fastcall TForm1::ndigacadena1Click(TObject *Sender) { Edit3->Text =examen112(StrToInt(Edit2->Text)); }

⇜✫⇝✫⇜✫⇝✫⇜✫⇝✫⇜✫⇝✫

Problema 3:

Escribir procesos (pueden escribir hasta 2 procesos) para cargar una matriz cuadrada de la siguiente forma:

Amxm

1  2  3  4  5

2  3  4  5  6

3  4  5  6  7

4  5  6  7  8

5  6  7  8  9

void aux_diag(TStringGrid * m, Cardinal f, Cardinal c, Cardinal v) { if (f > 0 && c <= m->ColCount) { m->Cells[c - 1][f - 1] = v; aux_diag(m, f - 1, c + 1, v); } } //Aqui entra el valor de v, v = 9 void diagonales(TStringGrid* m, Cardinal f, Cardinal c, Cardinal v) { if (c > 0 && f > 0) { aux_diag(m, f, c, v); if (c == 1) diagonales(m, f - 1, c, v - 1); else diagonales(m, f, c - 1, v - 1); } }

 

void matrizcol(TStringGrid* m,byte fa,byte fb,byte ca,byte cb,byte k){ byte n=cb-ca+1; if (n>0) { m->Cells [ca][fa]=k; matrizcol(m,fa,fb,ca+1,cb,k+1); } } void matrizcol2(TStringGrid* m,byte fa,byte fb,byte ca,byte cb,byte &k){ byte n=fb-fa+1; if (n>0) { matrizcol(m,fa,fb,ca,cb,k); k++; matrizcol2(m,fa+1,fb,ca,cb,k); } } void __fastcall TForm1::matrizcortes1Click(TObject *Sender) { byte m=StrToInt(InputBox("","dimencion","")); StringGrid1->ColCount = m; StringGrid1->RowCount =m; byte k=1; matrizcol2(StringGrid1,0,m-1,0,m-1,k); }

⇜✫⇝✫⇜✫⇝✫⇜✫⇝✫⇜✫⇝✫

Problema 4:

Escribir una función que devuelva una cadena formada por los dígitos de un número repetidos la cantidad de veces que el dígito representa. Máximo 2 funciones.

Ej. CadDeDigitos(5021)=>"55555221"

String digitos(byte d,byte d2){ String s; if (d==0) { s=""; }else{ s=digitos(d-1,d2); s=s+d2; } return s; } String cantidadveces (int n){ String s; if (n>0) { byte d=n%10; s=cantidadveces (n/10); s=s+digitos(d,d); }else{ s=""; } return s; } void __fastcall TForm1::ndigacadena1Click(TObject *Sender) { Edit3->Text =cantidadveces (StrToInt(Edit2->Text)); }

 

⇜✫⇝✫⇜✫⇝✫⇜✫⇝✫⇜✫⇝✫

Problema 5:

Escriba una función recursiva para generar la siguiente serie N elementos:

2,5,10,17,26

void GenerarSerie(TStringGrid *grid, unsigned int pos, unsigned int a,unsigned int b){ if (pos==grid->ColCount) { return; } else { grid->Cells[pos][0]=b; b=b+a; a=a+2; GenerarSerie(grid,pos+1,a,b); } } void __fastcall TForm1::Button1Click(TObject *Sender) { byte n; n=Edit1->Text.ToInt(); Grid1->RowCount=1; Grid1->ColCount=n; Grid1->FixedCols=0; Grid1->FixedRows=0; GenerarSerie(Grid1,0,3,2); }

☆・。。・゜゜・。。・゜★ 

 Como estudiante autónomo que todavía está aprendiendo c++. 

 Organizo mi comprensión del conocimiento en la forma de aprender y compartir, y también espero poder darles una referencia. Como progresar con todos, si hay algún error, espero que todos puedan corregirme. 

¡Muchas gracias!  Si te gusta, ¡síguelo! O (∩_∩) O 

Gracias por su apoyo ❗️