• Viernes 8 de Noviembre de 2024, 21:38

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

Páginas: [1]
1
C/C++ / Re: Crear el sgte programa, alguien me socorre?
« en: Martes 7 de Julio de 2009, 03:17 »
Es que no es la idea que te hagan el código otros usuarios. No te haran(emos) el trabajo

2
C/C++ / Re: Crear el sgte programa, alguien me socorre?
« en: Martes 7 de Julio de 2009, 02:02 »
No has hecho nada?, por último para ir viendo contigo de que forma se podría ir haciendo.

3
C/C++ / Re: Pequeña duda.
« en: Sábado 4 de Julio de 2009, 02:45 »
La verdad es que ni siquiera pienso por ahora en una interfaz gráfica, cuando logre dominarme bien con clases, punteros, array y todo, ahí empezare a averiguar sobre maneras de hacer una interfaz gráfica decente. Por ahora estoy bien con la consola jeje. :good:

4
C/C++ / Re: Pequeña duda.
« en: Viernes 3 de Julio de 2009, 13:56 »
Gracias, pero esto parece que no sirve para Linux, yo ocupo ubuntu y no me funciono :S

5
C/C++ / Pequeña duda.
« en: Viernes 3 de Julio de 2009, 01:44 »
Hola, bueno tengo una pequeña pregunta. ¿Existe alguna manera dentro de las librerías standard de c++ para poder limpiar pantalla, como con "conio.h"?? Ya que he visto en todos lados que dicen que esa librería no es standard y de mases, pero nunca he encontrado alguna alternativa. ;)

6
C/C++ / Re: Programa se cae.
« en: Jueves 2 de Julio de 2009, 22:54 »
Eso era, pero en muchos lados he leído que compila, pero que es una muy mala costumbre. Pero la verdad es que soy nuevo y no estoy seguro de lo malo que pueda causar, simplemente era para informarme más ;)

7
C/C++ / Re: Como arreglo este código?
« en: Jueves 2 de Julio de 2009, 21:59 »
Buenisimo y nuevamente disculpa todas las molestias, y de repetir las preguntas. Ya lo probé y funcionó de maravilla ;). Muchisimas gracias

8
C/C++ / Re: Programa se cae.
« en: Miércoles 1 de Julio de 2009, 23:09 »
no se supone que en c++ nunca se pone una extensión ".h"?? La verdad es que soy nuevo en c++ pero tengo entendido que si se quiere usar una librería de c hay que poner el prefijo "h".

9
C/C++ / Re: Como arreglo este código?
« en: Miércoles 1 de Julio de 2009, 22:54 »
Uff, yo denuevo y por lo mismo, este código salio duro, mira, finalmente con todo lo que me dijiste quedo así, pero me sigue lanzando unos errores de variables en la función main.
Código: C++
  1. #include <iostream>
  2. #include <cstring>
  3. using namespace std;
  4.  
  5. struct Persona{
  6.     char Nombre[20];
  7.     char Fono[9];
  8.    
  9.     char GetName(){
  10.         return *Nombre;
  11.     }
  12.    
  13.     char GetFone(){
  14.         return *Fono;
  15.     }
  16.    
  17.     void SaveName(char *n){
  18.         strncpy(Nombre, n, sizeof(Nombre) - 1);
  19.     }
  20.    
  21.     void SaveFone(char *t){
  22.         strncpy(Fono, t, sizeof(Fono) - 1);
  23.     }
  24. };
  25.  
  26. int main(){
  27.     Persona personas[20];
  28.     char opc, fono[9], nombre[20];
  29.     int npersona=0;
  30.    
  31.     do {
  32.         cout << "Eliga que hacer" << endl        // Esto es el Menu
  33.              << "a) Ingresar una Persona" << endl
  34.              << "b) Buscar por nombre" << endl
  35.              << "c) Buscar por telefono" << endl
  36.              << "d) Salir" << endl;
  37.         cin >> opc;
  38.        
  39.         switch(opc) {
  40.             case 'a': cout << "Ha elegido Ingresar una Persona" << endl  // Ingresar una persona
  41.                            << "Nombre: ";
  42.                       cin >> nombre;
  43.                       personas[npersona].SaveName(nombre); //Guardamos el nombre
  44.                      
  45.                       cout << "Teléfono: ";
  46.                       cin >> fono;
  47.                       personas[npersona].SaveFone(fono); //Guardamos el Teléfono
  48.                      
  49.                       npersona++; //Aumentamos el numero de npersona para no sobreescribir datos
  50.                       break;
  51.                      
  52.             case 'b': if(!npersona){  // Busca por nombre y si no hay personas guardadas manda error
  53.                           cout << "Error, no hay personas" << endl;
  54.                           break;
  55.                       }
  56.                       cout << "Ingrese un nombre a buscar: " << endl;
  57.                       cin >> nombre;
  58.                       for(int i=0; i<npersona; i++){   // Buscamos si algun nombre calza
  59.                           if(!strcmp(personas[i].GetName(), nombre)) {
  60.                               cout << "Nombre encontrado" << endl
  61.                                    << "Nombre: " << personas[i].GetName << endl
  62.                                    << "Teléfono: " << personas[i].GetFone << endl << endl;
  63.                           }
  64.                           else {
  65.                               cout << "Nombre no encontrado" << endl;
  66.                           }
  67.                       }
  68.                       break;
  69.             case 'c': if(!npersona){   // Busca por telefono y si no hay personas guardadas manda error
  70.                           cout << "Error, no hay personas" << endl;
  71.                           break;
  72.                       }
  73.                       cout << "Ingrese un teléfono a buscar: " << endl;
  74.                       cin >> fono;
  75.                       for(int i=0; i<npersona; i++){  // Buscamos si algun telefono calza
  76.                           if(!strcmp(personas[i].GetFone(), fono)) {
  77.                               cout << "Teléfono encontrado encontrado" << endl
  78.                                    << "Nombre: " << personas[i].GetName << endl
  79.                                    << "Teléfono: " << personas[i].GetFone << endl << endl;
  80.                           }
  81.                           else {
  82.                               cout << "Teléfono no encontrado" << endl;
  83.                           }
  84.                       }
  85.                       break;
  86.             case 'd': opc = '0';
  87.                       break;
  88.             default: opc = '1';
  89.                      break;
  90.         }
  91.     }while(opc != '0');
  92.     return 0;
  93. }
  94.            
  95.  

Los errores son, y la verdad que no los entiendo.:
Citar
g++ -Wall -c "ejercicio.cpp" (en directorio: ---------------------)
ejercicio.cpp: In function ‘int main()’:
La compilación falló.
ejercicio.cpp:59: error: conversión inválida de ‘char’ a ‘const char*’
ejercicio.cpp:59: error:   argumento de inicialización 1 de ‘int strcmp(const char*, const char*)’
ejercicio.cpp:61: error: no match para ‘operator<<’ en ‘std::operator<< [with _Traits = std::char_traits<char>](((std::basic_ostream<char, std::char_traits<char> >&)((std::basic_ostream<char, std::char_traits<char> >*)((std::basic_ostream<char, std::char_traits<char> >*)std::operator<< [with _Traits = std::char_traits<char>](((std::basic_ostream<char, std::char_traits<char> >&)(& std::cout)), ((const char*)"Nombre encontrado")))->std::basic_ostream<_CharT, _Traits>::operator<< [with _CharT = char, _Traits = std::char_traits<char>](std::endl [with _CharT = char, _Traits = std::char_traits<char>]))), ((const char*)"Nombre: ")) << personas.Persona::GetName’
/usr/include/c++/4.3/ostream:112: nota: los candidatos son: std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(std::basic_ostream<_CharT, _Traits>& (*)(std::basic_ostream<_CharT, _Traits>&)) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/ostream:121: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(std::basic_ios<_CharT, _Traits>& (*)(std::basic_ios<_CharT, _Traits>&)) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/ostream:131: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(std::ios_base& (*)(std::ios_base&)) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/ostream:169: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(long int) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/ostream:173: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(long unsigned int) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/ostream:177: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(bool) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/bits/ostream.tcc:97: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(short int) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/ostream:184: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(short unsigned int) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/bits/ostream.tcc:111: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(int) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/ostream:195: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(unsigned int) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/ostream:204: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(long long int) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/ostream:208: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(long long unsigned int) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/ostream:213: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(double) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/ostream:217: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(float) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/ostream:225: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(long double) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/ostream:229: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(const void*) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/bits/ostream.tcc:125: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(std::basic_streambuf<_CharT, _Traits>*) [with _CharT = char, _Traits = std::char_traits<char>]
ejercicio.cpp:76: error: conversión inválida de ‘char’ a ‘const char*’
ejercicio.cpp:76: error:   argumento de inicialización 1 de ‘int strcmp(const char*, const char*)’
ejercicio.cpp:78: error: no match para ‘operator<<’ en ‘std::operator<< [with _Traits = std::char_traits<char>](((std::basic_ostream<char, std::char_traits<char> >&)((std::basic_ostream<char, std::char_traits<char> >*)((std::basic_ostream<char, std::char_traits<char> >*)std::operator<< [with _Traits = std::char_traits<char>](((std::basic_ostream<char, std::char_traits<char> >&)(& std::cout)), ((const char*)"Tel3777777770337777777651fono encontrado encontrado")))->std::basic_ostream<_CharT, _Traits>::operator<< [with _CharT = char, _Traits = std::char_traits<char>](std::endl [with _CharT = char, _Traits = std::char_traits<char>]))), ((const char*)"Nombre: ")) << personas.Persona::GetName’
/usr/include/c++/4.3/ostream:112: nota: los candidatos son: std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(std::basic_ostream<_CharT, _Traits>& (*)(std::basic_ostream<_CharT, _Traits>&)) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/ostream:121: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(std::basic_ios<_CharT, _Traits>& (*)(std::basic_ios<_CharT, _Traits>&)) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/ostream:131: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(std::ios_base& (*)(std::ios_base&)) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/ostream:169: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(long int) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/ostream:173: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(long unsigned int) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/ostream:177: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(bool) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/bits/ostream.tcc:97: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(short int) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/ostream:184: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(short unsigned int) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/bits/ostream.tcc:111: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(int) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/ostream:195: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(unsigned int) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/ostream:204: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(long long int) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/ostream:208: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(long long unsigned int) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/ostream:213: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(double) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/ostream:217: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(float) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/ostream:225: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(long double) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/ostream:229: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(const void*) [with _CharT = char, _Traits = std::char_traits<char>]
/usr/include/c++/4.3/bits/ostream.tcc:125: nota:                     std::basic_ostream<_CharT, _Traits>& std::basic_ostream<_CharT, _Traits>::operator<<(std::basic_streambuf<_CharT, _Traits>*) [with _CharT = char, _Traits = std::char_traits<char>]

10
C/C++ / Re: Como arreglo este código?
« en: Miércoles 1 de Julio de 2009, 22:04 »
Tienes razón y no me había dado cuenta, gracias por la web no la conocía, de ahora en adelante cuando tenga dudas de documentación buscare ahí para no molestar aquí. Muchas gracias por la ayuda, ojalá pueda devovlerla.

OFFTOPIC: El foro esta buenisimo, me gusto mucho, felicitaciones ;)

11
C/C++ / Re: Como arreglo este código?
« en: Miércoles 1 de Julio de 2009, 01:13 »
Wow, ya me di cuenta, muchas gracias, para usar strncpy tengo que agregar #include <string> cierto?

Una duda más, creo que hay una funcion para comparar cadenas, ya que me lanza un error al ocupar ==. En internet la vi, pero no entendi como se ocupaba.

12
C/C++ / Re: Como arreglo este código?
« en: Martes 30 de Junio de 2009, 23:48 »
La verdad no sé simplemente me lanza muchos errores, que no entiendo ya que soy nuevito en esto de C++, trabajo en ubuntu con geany como IDE, lo puedes compilar para ver, porque me lanza muchos errores que no entiendo, si me pudieran ayudar sería genial ;)

13
C/C++ / Como arreglo este código?
« en: Martes 30 de Junio de 2009, 00:58 »
Hola, soy nuevo en c++ y estoy viendo el manual de c.conclase.net, y no he podido resolver este problema:


Tengo este código pero no me funciona  :wacko:
Código: C++
  1. #include <iostream>
  2. using namespace std;
  3.  
  4. struct Persona {
  5.    char Nombre[20];
  6.    char Telefono[9];
  7.    char* GetNombre()
  8.    {
  9.        return Nombre;
  10.    }
  11.    char* GetTelefono()
  12.    {
  13.        return Telefono;
  14.    }
  15.    void SaveNombre(n[20])
  16.    {
  17.        Nombre = n[20];
  18.        return;
  19.    }
  20.    void SaveTelefono(t[9])
  21.    {
  22.        Telefono = t[9];
  23.        return;
  24.    }
  25. };
  26.  
  27.  
  28. int main()
  29. {
  30.     Persona personas[20];
  31.     char opc, n[20], t[9];
  32.     int npersona = 0;
  33.    
  34.     do
  35.     {
  36.         cout << "Eliga una opción" << endl
  37.              << "a) Ingresar una persona" << endl
  38.              << "b) Buscar por nombre" << endl
  39.              << "c) Buscar por teléfono" << endl
  40.              << "d) Salir" << endl;
  41.         cin >> opc;
  42.        
  43.         switch(opc)
  44.         {
  45.             case 'a': cout << "Nombre: " << endl;
  46.                       cin >> n;
  47.                       personas[npersona].SaveNombre(n);
  48.                       cout << "Teléfono: " << endl;
  49.                       cin >> t;
  50.                       personas[npersona].SaveTelefono(t);
  51.                       npersona++;
  52.                       break;
  53.             case 'b': if(not npersona)
  54.                       {
  55.                           cout << "No hay personas" << endl;
  56.                           break;
  57.                       }
  58.                       for(int i = 0; i < npersona; i++)
  59.                       {
  60.                           if(personas[i].GetNombre == personas[npersona].GetNombre)
  61.                           {
  62.                               cout << "Nombre Encontrado:" << endl
  63.                                    << "Nombre: " << personas[i].Nombre << endl
  64.                                    << "Telefono: " << personas[i].Telefono << endl;
  65.                           }
  66.                           break;
  67.                       }
  68.                       cout << "Nombre no encontrada" << endl;
  69.                       break;
  70.             case 'c': if(not npersona)
  71.                       {
  72.                           cout << "No hay personas" << endl;
  73.                           break;
  74.                       }
  75.                       for(int i = 0; i < npersona; i++)
  76.                       {
  77.                           if(personas[i].GetTelefono == personas[npersona].GetTelefono)
  78.                           {
  79.                               cout << "Telefono Encontrado:" << endl
  80.                                    << "Nombre: " << personas[i].GetNombre << endl
  81.                                    << "Telefono: " << personas[i].GetTelefono << endl;
  82.                           }
  83.                           break;
  84.                       }
  85.                       cout << "Telefono no encontrado" << endl;
  86.                       break;
  87.             case 'd': opc = '0';
  88.                       break;
  89.             default: opc = '1';
  90.                      cout << "Opción no Válida" << endl;
  91.                      break;
  92.         }
  93.     }while(opc != '0');
  94.    
  95.     return 0;  
  96. }
  97.  

14
Pascal / Re: No logro ver algunos carácteres en modo gráfico
« en: Sábado 16 de Mayo de 2009, 21:32 »
Nadie sabe que puede estar causando mi problema??

15
Pascal / Que lenguaje aprender?
« en: Viernes 15 de Mayo de 2009, 02:55 »
Bueno, yo hasta ahora solo se programar en pascal, pero me gustaria seguir aprendiendo otros lenguajes, la pregunta es con cual me recomiendan seguir?

16
Pascal / Re: No compila problema de ejemplo de Joyanes Aguilar
« en: Viernes 15 de Mayo de 2009, 02:45 »
Ojo, si estas usando integers, por lo menos en TurboPascal existe un límite de una variable integer es MaxInt=32700 y pico, por lo cual para programas que ocupan números más grandes se debería ocupar reales. Aclaro:

Cita de: "m0skit0"
Que yo sepa (hace tiempo que vi Pascal por última vez), no se puede poner :17:1 en un Write/WriteLn. Sólo puede un solo : seguido del tamaño del campo.

si puedes poner
Código: Pascal
  1. Write(var:10:5);
  2. WriteLn(var:10:5);
  3.  

mientras var sea una variable númerica(no lo he probado con integer), donde el primer número(en el ejemplo es 10) indica la cantidad de espacios que ocupará la variable, y el segundo número(en el ejemplo es 5) indica la cantidad de digitos después de la coma decimal.

17
Pascal / Re: No logro ver algunos carácteres en modo gráfico
« en: Viernes 15 de Mayo de 2009, 00:33 »
Estoy usando Turbo Pascal 7, pero lo que me extraña es que lo compile y lo probe en otros PC, y se veia todo bien, debe ser algo de la configuración de mi PC creo yo.

18
Pascal / Re: No compila problema de ejemplo de Joyanes Aguilar
« en: Viernes 15 de Mayo de 2009, 00:31 »
Ya esta, lo revise y compile yo en TurboPascal 7 y funciona perfecto:

Código: Pascal
  1. { Este programa obtiene una tabla de depreciaciones acumuladas
  2. y valores reales de cada a¤o de un determinado producto. }
  3. uses CRT;
  4. var
  5.    coste,
  6.    depreciacion,
  7.    valor_recuperacion,
  8.    valor_actual,
  9.    acumulada,
  10.    anio, vida_util   : integer;
  11. begin
  12.    ClrScr;
  13.    WriteLn ('Introduzca coste, valor recuperacion y vida util');
  14.    ReadLn  (coste, valor_recuperacion, vida_util);
  15.    WriteLn ('Introduzca anio actual');
  16.    ReadLn  (anio);
  17.    valor_actual := coste;
  18.    depreciacion := (coste - valor_recuperacion) div vida_util;
  19.    acumulada    := 0;
  20.    Write ('Anio': 7, 'Depreciacion':15, 'Dep. Acumulada':17);
  21.    WriteLn ('valor_actual':14);
  22.    while anio <= vida_util do
  23.       begin
  24.          acumulada    := acumulada + depreciacion;
  25.          valor_actual := valor_actual - depreciacion;
  26.          Write (Anio :8, Depreciacion :11, Acumulada:17);
  27.          WriteLn (valor_actual:17);
  28.          anio := anio + 1
  29.       end ;
  30.    Readkey;
  31. end.
  32.  


Espero que te sirva, le agregue la libreria CRT para que obtener la funcion ClrScr y ReadKey, de esta forma no se cierra antes de ver la tabla ;).

Espero que te sea de ayuda, cualquier otra duda consulta nada más.

19
Pascal / Re: No compila problema de ejemplo de Joyanes Aguilar
« en: Miércoles 13 de Mayo de 2009, 23:50 »
Código: Pascal
  1. program Previsiones;
  2. { Este programa obtiene una tabla de depreciaciones acumuladas
  3. y valores reales de cada año de un determinado producto. }
  4. var
  5.    coste,
  6.    depreciacion,
  7.    valor_recuperacion,
  8.    valor_actual,
  9.    acumulada,
  10.    anio, vida_util   : integer;
  11. begin
  12.    WriteLn ('Introduzca coste, valor recuperacion y vida util');
  13.    ReadLn  (coste, valor_recuperacion, vida_util);
  14.    WriteLn ('Introduzca anio actual');
  15.    ReadLn  (anio);
  16.    valor_actual := coste;
  17.    depreciacion := (coste - valor_recuperacion) div vida_util; (*Aqui tienes que ocupar la funcion div, no /, ya que trabajas con numeros enteros*)
  18.    acumulada    := 0;
  19.    Write ('Anio': 7, 'Depreciacion':15, 'Dep. Acumulada':17);  (* Si aca quieres poner las variables, pues quitale las ' ' *)
  20.    WriteLn ('valor_actual':14); (* Lo mismo que arriba*)
  21.    while anio < vida_util do
  22.       begin
  23.          acumulada    := acumulada + depreciacion;
  24.          valor_actual := valor_actual - depreciacion;
  25.          Write (Anio :8, Depreciacion :11:1, Acumulada:17:1);
  26.          WriteLn (valor_actual:17:1); (*Estos resultados nunca te daran comas, recuerda que las variables las configuraste en integer*)
  27.          anio := anio + 1
  28.  
----------------------------------------------------------------

20
Pascal / No logro ver algunos carácteres en modo gráfico
« en: Miércoles 13 de Mayo de 2009, 23:27 »
Bueno, la verdad es que estoy practicando un poco con pascal, ahora quería hacer una calculadora en modo gráfico(bastante simple de hacer), pero resulta que los números del 1 al 9 se ven como cuadrados, el signo = le pasa lo mismo. Bueno compilé lo que llevaba de programa y lo probe en otro PC y se veia perfecto, he buscado y no encuentro anda, si alguien sabe por qué pasa y como solucionarlo se lo agradeceria muchisimo, ya que es dificil trabajar y probarlo si no logro ver nada
.

Páginas: [1]