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 ❗️
Biblioteca | Digital
ok
ResponderEliminar