• Viernes 3 de Mayo de 2024, 11:36

Mostrar Mensajes

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 - M4R14N0

Páginas: [1]
1
Pascal / Re: :blink: Error 113: Error In Statement!!!!!!!!!
« en: Sábado 17 de Diciembre de 2005, 22:25 »
bueno ya tengo terminada mi agenda :D . voy a ver como puedo hacer para ponerla mas linda, un poco de "grafico" y esas cosas :P .

bueno gente por ahora voy a practicar vastante y ver q onda con POO porque no tengo ni idea, ni siquiera he leido algo :unsure: , asi q me voy a buscar un buen manual para estudiar :smartass:  :comp:.

2
Pascal / Re: :blink: Error 113: Error In Statement!!!!!!!!!
« en: Viernes 16 de Diciembre de 2005, 19:36 »
Muchas gracias enko y micropais.

acomode el programa segun las modificaciones q me dijistes enko y lo pude compilar bien, bueno ahora me queda por acomodar bien la funcion que me dice si el nomber q estoy ingresando ya existe, el procedimiento q muestra los datos, y bueno despues me ire fijando q correcciones mas tendre q hacerle. una ves q lo tenga terminado lo pongo en el foro para que le eche un vistaso el que quiera :) .

bueno les cuento, curse primer año de ing. en sistemas en tandil hace 4 años (programaba en turbo pascal 7, por un tema economico y otro q lo unico q me interesaba era programar, tuve q dejar.
hace rato q queria empesar de nuevo a programar y no encontraba un solo manual q me ayudara, me baje cantidad de manuales...bla bla bla...
ahora empese a practicar de nuevo, encontre un buen manual de free pascal y estoy usando ese :comp: .
cuando empese me sorprendi de la cantidad de cosas q me avia olvidado. bueno programo porque me gusta-hobby y tambien porque me gustaria hacer plata con esto :D .

lo que me recomendaron fue q practique bien con pascal y despues me pase a delphi, que opinan de esto?.

3
Pascal / :blink: Error 113: Error In Statement!!!!!!!!!
« en: Miércoles 14 de Diciembre de 2005, 20:59 »
primero saludos a todos, y felicitaciones porque esta muy bueno el foro.
bueno voy a grano. no tengo mucha idea y estoy empesando a practicar programacion en turbo pascal, estoy tratando de hacer una agenda, media precaria por ahora pero bue :P . necesito ayuda cuando compilo el programita me tira un error en el primer procedimiento y no me puedo dar cuenta cual es el problma :angry: . no me cabe duda q sea una pavada :rolleyes:, porque empese hace un tiempito nomas :D  .

bueno ak les dejo el codigo para q lo miren, aver si me pueden dar una ayudita por favor. bueno desde ya les agradesco. chau muchas gracias.

Código: Text
  1.  
  2. program agenda1;
  3.  
  4. uses crt;
  5.  
  6. const nombrearchivo='agenda.dat';
  7. type
  8.      tagenda = record
  9.              nombre:string;
  10.              apellido:string;
  11.              telefono:integer;
  12.       end;
  13.  
  14.       tarchivo=file of tagenda;
  15.  
  16. var
  17.    agenda:tarchivo;
  18.  
  19.  
  20. (************FUNCION Q ME DICE SI EXISTE NOMBRE EN EL REGISTRO*****************)
  21.  
  22. function existe_nombre(var archivo:tarchivo; temporal:tagenda):boolean;
  23. var aux:tagenda;
  24.  
  25. begin
  26. reset(archivo);
  27. while not eof(archivo) do
  28. begin
  29.      read(archivo,aux);
  30.      if (temporal.nombre = aux.nombre) then
  31.         begin
  32.              existe_nombre:=true;
  33.              exit;
  34.         end
  35.      else
  36.          existe_nombre:=false;
  37. close(archivo);
  38. end;
  39.  
  40.  
  41. (**************************CARGARA LOS DATOS EN EL ARCHIVO*********************)
  42.  
  43. procedure cargar(var archivo:tarchivo);
  44.  
  45. var temporal:tagenda;
  46.  
  47. begin
  48. reset(archivo);
  49. write('ingrese nombre completo : '); readln(temporal.nombre);
  50. write('ingrese apellido : '); readln(temporal.apellido);
  51. write('ingrese telefono : '); readln(temporal.telefono);
  52. if not existe_nombre(archivo,temporal) then write(archivo,temporal); //sino existe se cargan los datos
  53. else
  54.     begin
  55.          writeln('el nombre q esta ingresando ya existe ');
  56.  
  57.          cargar(archivo); //si existe el nombre, se llama al procedimiento nuevamente
  58.     end;
  59. close(archivo);
  60. end;
  61.  

Páginas: [1]