Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - Panteon
Páginas: [1]
1
« en: Viernes 22 de Octubre de 2004, 01:11 »
Muchisimas gracias
2
« en: Martes 19 de Octubre de 2004, 23:36 »
Aqui estoy de nuevo con una duda...está me está sacando canas verdes. Lo que quiero hacer es que no se puedan ingresar letras cuando mi programa pide un número para que el programa no truene o por lo menos que aparezca un mensaje que diga que ingrese de nuevo el número.
Hasta ahora solo lo he con usando readkey y con varaibles tipo char...y lo quiero hacer con cualquier integer. Seria de mucha ayuda que alguien me pudiera guiar
Gracias
3
« en: Martes 19 de Octubre de 2004, 23:27 »
Muchas gracias por tu ayuda sobre la pregunta..pues..jaja esa fue la forma en la que me enseñaron al usar los archivos de acceso directo...aunque tambien se que se puede poner Alumnos.dat. gracias de nuevo! 
4
« en: Lunes 18 de Octubre de 2004, 01:46 »
Gracias por tu ayuda ya lo tengo un poco más claro...no se si me puedas ayudar con éste codigo... lo que necesito es que el procedimiento "buscarcodigo" le mande las varaibles "found" y "pos" al procedimiento "borrar" abajo te mando el codigo para que lo veas....gracias de nuevo procedure buscarcodigo; var found:boolean; matricula2:byte; pos:integer; BEGIN clrscr; assign (datos, 'alumnos.txt'); reset(datos); found:=false; Writeln ('Dame el codigo del alumno a Buscar'); readln(matricula2); seek (datos,0); while not eof (datos) and not found do begin read (datos,persona); if persona.matricula=matricula2 then found:=true; pos:=filepos(datos); end; if found and persona.sw=true then begin writeln (' '); writeln ('Eston son los datos del alumno:'); writeln (' '); writeln ('Matricula: ',persona.Matricula); writeln ('Nombre: ',persona.nombre); writeln ('Apellido P.: ',persona.apellidop); writeln ('Apellido M.: ',persona.apellidom); writeln ('Edad: ' ,persona.edad); writeln ('Pais: ' ,persona.pais); writeln ('Ciudad: ',persona.ciudad); writeln ('Telefono Tutor: ', persona.telefono); writeln ('Visa: ', persona.visa); end else begin textcolor(red); writeln('Ese alumno no est ingresado'); end; readln; close(datos); END;
procedure borrar; var eliminar: string; seleccion: char; pos:integer; found: boolean; BEGIN clrscr; assign (datos, 'alumnos.txt'); reset(datos); buscarcodigo {aqui manda a llamar el procedimiento) if found then begin writeln ('¨Seguro que desea eliminar este estudiante?'); readln(seleccion); if seleccion='s' then begin persona.sw:=false; seek (datos, pos-1); write(datos, persona); writeln ('El alumno fue borrado'); readln; end; end END;
5
« en: Sábado 16 de Octubre de 2004, 22:38 »
He estado investigando para ver como hacerle apra que una función regresé 2 párámetros y no he encontrado mucho...no si nisiquiera si se pueda.
Me gustaria que alguien me dijera si es posible y si es posible, como se hace (quiero regreesar un boolean y un integerm por si sirve de algo)
Gracias
6
« en: Viernes 1 de Octubre de 2004, 00:49 »
Muchas gracias...jajaja ahora que me lo esplicas así, fue una preguntilla bastante obvia pero muchas gracias por sacarme de mi problema
7
« en: Jueves 30 de Septiembre de 2004, 00:47 »
Saludos
Tengo un pequeño problema en un programa que estoy haciendo, necesito obtener el ultimo digito de un número
por ejemplo de 887 sacar el 7 ó de 453 sacar el 3.
la verdad he intentado varias formas de lograrlo..pero sin éxito...me gustaria saber si alguien me pudiera ayudar con eso...
Muchas Gracias
8
« en: Jueves 23 de Septiembre de 2004, 02:07 »
Muchisimas gracias!! resolviste una duda que tenia jejeje gracias de nuevo
9
« en: Martes 21 de Septiembre de 2004, 02:56 »
Tengo un problema ocn un prodecimiento el cual se supone que debe de pasar todo lo que tengo guardado en un archivo de acceso directo a un array aquí está el procedimeinto procedure listar;
var
cont,x,j:integer;
begin
clrscr;
assign(datos, 'alumnos.txt');
reset(datos);
seek (datos,0);
for x:=1 to (filesize(datos)) do
begin
read (datos, persona);
arrper- .matricula:=persona.matricula;
arrper
arrper- .apellidop:=persona.apellidop;
arrper- .apellidom:=persona.apellidom;
end;
for x:=1 to (filesize(datos)pp) do
writeln (arrper el problema es que cuando los despliego solo me imprime el ultimo de los alumnos en el archivo directo. y la verdad no encuentro porque no funciona...espero que alguie me pueda ayudar Gracias
10
« en: Sábado 18 de Septiembre de 2004, 04:53 »
Muchas gracias por la ayuda, ya con eso me quedó claro como usar el ord, ya solo tenog que hacer unas experimentaciones para que me salga bien gracias de nuevo 
11
« en: Viernes 17 de Septiembre de 2004, 05:18 »
Muchas gracias por contestar pero tengo un problema cuando pongo uses
ord;
aparece el error 15 "file not found (ord.tpu)" no se si de casualidad te sepas otra forma de ordenar alfaticamente. Te daré una pequeña descripción de mi programa: el programa debe ordenar a los alumnos que estan estudiando en el extranjero. Y debo ordenar alfabeticamente los paises para que asi el usuario pueda ver que alumnos estan en que pais. Espero que eso ayude gracias de nuevo
12
« en: Jueves 16 de Septiembre de 2004, 22:46 »
Me gustaria saber si alguien me puede ayudar diciendome como puedo ordenar alfabeticamente en pascal, ya que he buscado y no he encontrado como
Muchas gracias de Antemano
Páginas: [1]
|
Mostrar Mensajes
