Mensajes

En que lugar has puesto la salida de datos? Eso lo debes poner al final, podrías poner tu codigo para que vieramos porque te aparece dos veces. Tu programa debería quedar con la salida de datos de la siguiente manera:

Código (pascal) [Seleccionar] Expandir


program ej;

var
   numero:integer;
   resultado:integer;

begin
resultado = 0;
numero = 0;
    repeat
           Writeln('Inserte numeros');
           Readln(numero);
                   if numero >0 then
                            begin
                                resultado = resultado + numero;
                            end
     until numero<=0;
writeln ('El resultado es: ' resultado);
end.

Veo que se deberá hacer un tema de chincheta:

"Que antivirus gratuitos hay para elegir"

Porque cada 2 dias se hace esta pregunta. Yo en lo personal te recomiendo Avast o  AVG. He utilizado los dos, ahora mismo tengo Avast y no he tenido ningún tipo de problemas en el año y medio que hace que tengo este ordenador.

Lo cierro a petición del usuario Pitoloko. De todas formas opino que estas cosas mejor hacerlas en privado. Las relaciones de pareja mejor tratarlas en la intimidad 

Yo siempre he tomado cacaolat, eso si, desde que me entere que los propietarios eran los estafadores de la familia Ruiz Mateo ya no lo veo con tan buenos ojos. Pensava que era 100% de cataluña. Es mas la fábrica no está ni en Cataluña.

Una lastima lo de la marca, pero no pienso comprar colacao.

Ha salido por la television, penoso...el cable pasava por enemdio de un campo hecho polvo y muy mal protegido, ademas de ese cable dependian el 90% de la gente.

Antes han dicho que le podian caer 3 años, debería caerle a ella 3 años y 5 al que tuvo que hacer en su dia la instalación del cable.

[V=R*I]

Una cosa te debe quedar clara, tres ramas en paralelo tendrán la misma tensión y su corriente dependerá de la resistencia que tengan.

Por ejemplo si la resistencia es de valor mucho mas pequeño que las otras ramas, la corriente será mucho mayor que las otras ramas.

Cuanto mas tiende a 0 la resistencia, mas tiende a infinito la corriente (hablando de un caso ideal, es imposible que se de ese caso).

En resumen: La rama con la resistencia mas pequeña, circulará la mayor parte de la corriente total, pero ojo! no toda.

Recuerda la ley de ohm

V=R*I                                                                                          

No es por molestar, pero por puerto Ethernet? No es mejor hacerlo por puerto paralelo,serie o como mucho USB?

Nunca ví proyectos de ese estilos mediante un cable RJ-45... no se que clase de problemas podrían surgir pero los cables de ethernet son muy finos y no se cuanta tensión o corriente sale por el conector asi que el driver ULN que se propone diria que sucks.

La gracia de los drivers es que lleguen a tensiónes de entrada de 5volts, sinó el transistor interno no entra en saturaciín y no puede dar los 500mA que da por los pines de salida y los relés no creo que funcionasen correctamente. En el peor de los casos algo pasaría a mejor vida y no quiero pensar que sea el conector ethernet (plca ethernet).

Sigue con C sin dudas, eso es lo que hice yo y no tendrás ningún problema. De todas formas Pascal si se sigue utilizando y en el foro hay poca gente que todavia a veces pregunta y programa en ello. Yo te puedo ayudar si tienes problemas.

PD: Te daré tu primera lección en tu paso de pascal a c. No busques el tipo de variable "string" porque no hay. 

Código (pascal) [Seleccionar] Expandir


 
   repeat
          Writeln('Inserte numeros');
          Readln(numero);
          resultado = resultado + numero;
    until numero<=0;

end.  

Imagino que has hecho lo que he hecho yo en el codigo anterior, el problema viene cuando "numero" es valor negativo, ya que la variable que acumula operará con ese numero negativo, es decir el resultado final se verá afectado acausa de que operara el numero negativo antes del UNTIL.

Notese que al ser 0 da igual, porque no altera el resultado final.

Ese problema lo puedes solventar añadiendo un IF o while, incluso puedes anidar otro REPEAT. Aquí el ejemplo:

Código (pascal) [Seleccionar] Expandir


program ej;

var
  numero:integer;
  resultado:integer;

begin
resultado = 0;
numero = 0;
   repeat
          Writeln('Inserte numeros');
          Readln(numero);
                  if numero >0 then
                           begin
                               resultado = resultado + numero;
                           end
    until numero<=0;
end.

Problema resuelto.

Lo que quieres hacer, en principio si se puede, en general, las targetas cuando se graban, lo que se hace es imantar su banda mangnetica parecido a un iman.

Un iman, como sabran tiene una polaridad norte-sud, o la llamamos por ejemplo NS, las bandas de las targetas són combinaciónes de estas imantaciónes para crear combinaciónes de 0 o 1 que es la información leída mediante un lector.

Inicialmente una banda magnetica no grabada, es decir la original puede ser una serie de:

NSNSNSNSNSNSNS

Una vez grabada estas series se modifican, evidentemnte por si alguien lo dudava, los grabadores o letores actuan mediante un campo magnetico.

Respondiendo a tu pregunta, es depende la tarjeta y depende del sistema, hay algúnas que se pueden reescribir, incluso si sacaras la combinación de la tarjeta, puedes comprar una tarjeta virgen (alrededor de 50 cts) y con un grabador clonarla.