Algoritmos

Solo disponible en BuenasTareas
  • Páginas : 2 (282 palabras )
  • Descarga(s) : 0
  • Publicado : 11 de septiembre de 2012
Leer documento completo
Vista previa del texto
#include<iostream.h>
#include<stdlib.h>
#include<conio.h>
#include<stdio.h>
void caratula();
void validar();
void leer();
void capicua(int a);

intn;

void caratula()
{ system("color 8d");
gotoxy(20,8); cout<<" UTP --- FACULTAD ING. INDUSTRIAL Y SIST.";
gotoxy(20,10); cout<<" ALGORITMOS I ...";gotoxy(20,12); cout<<" Alumnos: " ;
gotoxy(20,13); cout<<" ZELADA CUBAS / ENCISO CERNA" ;
gotoxy(20,15); cout<<" T. CORDOVA NERI "; getche();
return;}

void validar()
{system("color 2b");
int cod,k=0;
do{
k++; gotoxy(10,5); cout<<"codigo = "; cin>>cod;
gotoxy(10,5);cout<<"IntentoNumero"<<k;
if(k>3)
{gotoxy(15,6);cout<<"Salir";
}
else {gotoxy(15,6); cout<<"Seguir";
}
}while(cod!=100); getche();
return;
}
void leer()
{system("color 3b");do
{gotoxy(10,4); clreol();cout<<"Ingrese numero = "; system("color 4a");
cin>>n;
}while(n<10);
gotoxy(10,6); cout<<"Numero correcto,puede continuar ";getche();
return;
}

void capicua(int a)
{int d,inv=0;
int aux=a;
while(aux>0)
{ d=aux%10;
inv=inv*10+d;
aux=aux/10;}
if(a==inv)
{ gotoxy(10,22); cout<<" el numero es capicua ";getche();
}
else
{ gotoxy(10,22); cout<<" no es capicua ";getche();
}

}

voidmain()
{char resp;
do{clrscr();
caratula();getche();clrscr();
validar();clrscr(); leer();capicua(n);
gotoxy(10,22); cout<<"Sr. desea leer nuevonumero..? (S/N)==>";
cin>>resp;
}while(resp=='S');
if(resp=='N')
{gotoxy(10,22);
cout<<"Gracias por su visita...buenas tardes";
}
}
tracking img