Página 1 de 1

Pregunta de novato en Pascal , urgente !!!

Publicado: Lun Oct 25, 2004 8:20 pm
por Thunderstorm
A ver, estoy empezando en esto de Pascal y me ha surgido una duda..

El usuario de cierto programa debe introducir 9 digitos, como por ejemplo 123456789 . El programa debe operar con cada dígito por separado, por lo que asigno a cada dígito una variable distinta.
Pero, ¿como puedo hacer para que al leer la entrada del usuario se lea y se asigne cada dígito a una variable entera distinta p.ej.(a,b,c,d,e,f,g,h,i) ??? :-?

Cuando luego pongo "readln(a,b,c,d,e,f,g,h,i)", asigna a la variable "a" todo el numero de 9 cifras !!
Si se introdujeran los 9 dígitos con espacios no habria problema, pero quiero que el usuario los ponga de la forma 123456789...
hay forma de que cada dígito se asigne a una variable ??

Si alguien lo sabe que me cuente el procedimiento más sencillo posible, y gracias por adelantado !!!!!!! :D

no es muy dificil

Publicado: Lun Oct 25, 2004 9:33 pm
por solovaer
:lol: Hola amigazo:

bueno el problema radica en que debes utilizar un contenedor que pueda almacenar en si varios para esto estan los vectores (arreglos numericos) o las cadenas (arreglos alfanumericos). la manera mas facil seria que utilices una cadena ya que puedes guardar los 9 digitos de una sola vez como si fuera una cadena donde cada digito se almacenara en una posicion de la cadena. el programa basico quedaria algo asi

uses crt;
var
misnumeros:string[9];
i:integer;
begin
clrscr;
write('Introduzca nueve digitos:'); readln(misnumeros);
{ para ver si se introdujeron haz que se imprima un digito a la vez mediante el siguiente codigo que sigue al anterior}
writeln('estos son los digitos introducidos');
for i:=1 to length(misnumeros) do
writeln('este es el ', i , ' digito ', misnumeros );
readln;
end.

Eso es todo me cuentas como te fue.

ayuda en pascal

Publicado: Mié Ene 05, 2005 6:11 am
por nachito79
Ademas de lo dicho anteriormente, tambien puedes validarlos para ello debes usar la funcion Val(cad,VarEnt,resu) donde resu sera 0 si la convercion fue exitosa!
Espero que esto tambien te sirva!