Primero, ese número de 120 cifras va a ser un string y no una variable de tipo numérico. Y tratás al string como un vector de 120 chars. Lo que tenés que hacer es, según la definición de capicúa, comparar primero con último, segundo con penúltimo, tercero con antepenúltimo y así sucesivamente.
Va en Spikódigo porque paja recordar Pascal.
capicua es true
Desde i=1 hasta 60 hacé esto, viejah (?)
Si numero[i] <> numero[121 - i] entonces
a capicua enganchale un false;
fin desde
Si capicua es true entonces
imprimir "aguante todo, es capicúa"
si no
imprimir "todos putos, no es capicúa";
En realidad habría que hacerlo con un while porque con el for hacés las 60 comparaciones sí o sí, y si la primera te da distinto, ya está, no es capicúa y al pedo las otras 59. Paja arreglarlo.
Edad: 42
Registrado: 09 Ago 2005
Mensajes: 176
Ubicación: Once
Carrera: Informática
Lo unico que necesitas es tener una tabla o una funcion boba que te de la cantidad de dias totales de cada mes segun el año (si es bisiesto o no)...
despues es facil... por que no hay años con distinta cantidad de meses
Aca dejo una mini version recursiva que la hice a las apuradas (me tento el comentario de Stoma). Igual no recuerdo bien pascal, asi que puede haber algun pequeño error
Código:
Function capicua(integer posicion): boolean;
begin
if (posicion = mitadVector)
capicua:=true;
if (vector[posicion] != vector[maximoVector-posicion+1])
capicua:=false;
Edad: 36
Registrado: 05 Jul 2007
Mensajes: 732
Ubicación: Frente de Estudiantes Libertarios
Carrera: Informática
che gil no tiene condición de corte la función
edit1: a, si tiene, fucking pascal(conste que josé el fantasma, profesor de algo I, me dijo que no tenía y que ponga que sos un gil )
edit2: leyéndolo de vuelta no tiene, así que: gil.
El error más grave esta en que supones que cuando igualas capicua a un valor la funcion retorna el control al programa principal/el modulo que la invoco. Tenes varios ERRORES más (José Inside).
El codigo correcto chaja+josé:
Código:
program recursivo;
type palabra = array[1..10] of char;
function capicua(posicion:integer;vector:palabra;maximoVector:integer): boolean;
begin
if (posicion = (maximoVector div 2) + 1) then
capicua:=true
else
begin
if ((vector[posicion]) <> (vector[(maximoVector-posicion+1)])) then
capicua:=false
else capicua:=capicua(posicion+1,vector,maximoVector);
end;
end;
Edad: 35
Registrado: 20 Jul 2008
Mensajes: 1287
Ubicación: Al lado del Sub Esp. $ = <(TT,0,2+3i)(3,18,4)(0,0,e)>
Carrera: Electrónica y Informática
Código:
Program Numeros_Capicua;
Uses Crt;
Const
Max=10;
Var
Num: String[max];
n,i,Media,Cont:Integer;
Capicua: Boolean;
Begin
Clrscr;
Capicua:=True;
Writeln('Ingrese Un Numero De Como Maximo ',Max,' Cifras:');
Readln(Num);
N:=Length(Num); {Cantidad de cifras del Numero}
If N < Max Then {me aseguro q tenga las cifras solicitadas}
Writeln('El Numero Elejido no tiene las ',Max,' Cifras solicitadas!!!!')
Else
Begin
Media:= Trunc(max/2+1); {me posiciono en la mitad del numero}
Cont:= 0;
For I:= N Downto (Media+1) Do
Begin
Cont:= Cont + 1;
If Num[cont] <> Num[i] Then
Capicua:= False;
End;
If Capicua = True3 Then
Writeln('El Numero Elegido es Capicua!!!!! =D')
Else
Writeln('El Numero Elegido No Es Capicua!!!!! =(');
End;
Readln
End.
Este es el programa Capicúa mas rebuscado q pueda existir , a mi me compila y funciona lo mas bien...
Aclaro la:
Código:
Const
Max=10;
la podes cambiar a 120 a mi me funciono, lo q pasa es q tengo paja de cambiarlo ahora (a mi me funciono con otros numeros)
[mod Nivel X ON] Bueno esto fue la codificacion de numeros Capicua para el compilador Free Pascal!!!, Espero q les haya gustadoooo CHAUU!!![/mod Nivel X OFF]
Todos los derechos e izquierdos reservados por Sid Bernard®
Ver tema siguiente Ver tema anterior Podés publicar nuevos temas en este foro No podés responder a temas en este foro No podés editar tus mensajes en este foro No podés borrar tus mensajes en este foro No podés votar en encuestas en este foro No Podéspostear archivos en este foro No Podés bajar archivos de este foro
Todas las horas son ART, ARST (GMT - 3, GMT - 2 Horas)
Protected by CBACK CrackerTracker 365 Attacks blocked.
![[tex]\mbox{Detrás de todo 'tengo hambre' hay un gran 'comete esta'}[/tex]](images/latex/8abc5691357a123d82fd07cae688fd7767bf6633_0.png "[tex]\mbox{Detrás de todo 'tengo hambre' hay un gran 'comete esta'}[/tex]")
![[tex]\mbox{¿Qué culpa tengo yo de tener la sangre } \mbox{\color{red}{roja}} \mbox{ y el corazón a la }izquierda\mbox{?}[/tex]](images/latex/ace6c59303939940fdfb3148df4eed185b385156_0.png "[tex]\mbox{¿Qué culpa tengo yo de tener la sangre } \mbox{\color{red}{roja}} \mbox{ y el corazón a la }izquierda\mbox{?}[/tex]")
![[tex]\mbox{Be water... my friend.}[/tex]](images/latex/cca11b574881173fa0ea09c63498fa05830b9139_0.png "[tex]\mbox{Be water... my friend.}[/tex]")
![[tex]How\mbox{ }do\mbox{ }you\mbox{ }make\mbox{ }a\mbox{ }computer\mbox{ }blink?[/tex]](images/latex/3e54eb9dda4de029cca893e7fac6b02c13f1b31a_0.png "[tex]How\mbox{ }do\mbox{ }you\mbox{ }make\mbox{ }a\mbox{ }computer\mbox{ }blink?[/tex]")
..
![[tex]\ll[/tex]](images/latex/18b0ee03b28e763622221fda561df49104e1b3e8_0.png "[tex]\ll[/tex]")
![[tex]${\Large \definecolor{forestgreen}{rgb}{0.13,0.55,0.13} \color{forestgreen} [S]iD [B]eRnArD!}$ [/tex]](images/latex/6c26715c673b69707083d47474a370e7efaea3c0_0.png "[tex]${\Large \definecolor{forestgreen}{rgb}{0.13,0.55,0.13} \color{forestgreen} [S]iD [B]eRnArD!}$ [/tex]")
![[tex]\gg[/tex]](images/latex/0e111618adc71d5c5a3da3b35e41887d8078d70d_0.png "[tex]\gg[/tex]")
![[tex] ${. \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ .}$ [/tex]](images/latex/3ab0ca99025a1273576a70bba37de38367369007_0.png "[tex] ${. \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ .}$ [/tex]")
![[tex]\color{blue} "\mathbf{\mathit{The\, Music\, Rules\, The\, World}}" [/tex]](images/latex/977817249ec7b4599126eef9d7046fe801e615ed_0.png "[tex]\color{blue} \"\mathbf{\mathit{The\, Music\, Rules\, The\, World}}\" [/tex]")