LWP - Foro: Pascal/Turbo Pascal

programa en free pascal

Wed, 23 May 2012 00:08:10 +0200

Titulo:programa en free pascal

Autor:lorena

Hilo:programa en free pascal

Url:http://www.lawebdelprogramador.com/foros/Pascal_Turbo_Pascal/1333265-programa__en_free_pascal.html

Lenguaje:Pascal/Turbo Pascal

muchas gracias ramon bonito dia

Preguntas Faltantes

Tue, 22 May 2012 18:10:05 +0200

Titulo:Preguntas Faltantes

Autor:ramon

Hilo:Preguntas Faltantes

Url:http://www.lawebdelprogramador.com/foros/Pascal_Turbo_Pascal/1333457-Preguntas_Faltantes.html

Lenguaje:Pascal/Turbo Pascal

{Primero lo mejor que tenemos los humanos es saber preguntar para aprender y yo
estoy en esta para enseñar lo que buenamente pueda puesto que no siempre se
puede realizar lo que quisiera pero adelante yo intentare ayudar.

De la unidat graph te diré que es



espiral
Tue, 22 May 2012 17:27:27 +0200
Titulo:espiral
Autor:ramon
Hilo:espiral
Url:http://www.lawebdelprogramador.com/foros/Pascal_Turbo_Pascal/1332973-espiral.html
Lenguaje:Pascal/Turbo Pascal
{A ver si esto ayuda algo}

 program espiral;
 uses
   crt;
   const
      espira : array[1..16] of array[1..2] of integer = (
      (1,1),(4,1),(7,1),(10,1),(10,3),(10,5),(10,7),
      (7,7),(4,7),(1,7),(1,5),(1,3),(4,3),(7,3),
      (7,5),(4,5));
  var
    nume



RE:Modificacion de registros en un archivo de regi
Tue, 22 May 2012 15:22:07 +0200
Titulo:RE:Modificacion de registros en un archivo de regi
Autor:Lucia
Hilo:Modificacion de registros en un archivo de registr
Url:http://www.lawebdelprogramador.com/foros/Pascal_Turbo_Pascal/1205308-Modificacion_de_registros_en_un_archivo_de_registr.html
Lenguaje:Pascal/Turbo Pascal
Hola, queria consultarte, quiero compilar lo que creaste, pero me dice que no identifique RenameFile... como puedo hacer para que funcione.. gracias! estoy haciendo un proyecto para la facultad que consta de 3 archivos, me ayudaria mucho ver como funciona tu propuesta. muchas gracias! saludos


Preguntas Faltantes
Tue, 22 May 2012 05:30:53 +0200
Titulo:Preguntas Faltantes
Autor:Luisn
Url:http://www.lawebdelprogramador.com/foros/Pascal_Turbo_Pascal/1333457-Preguntas_Faltantes.html
Lenguaje:Pascal/Turbo Pascal
Hola,AMigo ramon te coloque en unos de los post lo que me sale en la carpeta UNITS acerca del archivo graph, checalo a ver y lo otro en el programa para q me diga zona erronea ok ya lo acomode con el else q me dijiste q colocara ahora bien no se me regresa a preguntarme de nuevo que ingrese la zona;


programa  en free pascal
Mon, 21 May 2012 18:57:03 +0200
Titulo:programa  en free pascal
Autor:ramon
Hilo:programa  en free pascal
Url:http://www.lawebdelprogramador.com/foros/Pascal_Turbo_Pascal/1333265-programa__en_free_pascal.html
Lenguaje:Pascal/Turbo Pascal
{A ver si esto es lo que quieres}

program paresnones;
 uses
    crt;
  var
    numero : integer;
    salir : integer;
    contpares, contnones : integer;

  begin
      clrscr;
      salir := 1;
      while salir <> -999 do
      begin
         write('



Por q¿?
Mon, 21 May 2012 18:30:22 +0200
Titulo:Por q¿?
Autor:ramon
Hilo:Por q¿?
Url:http://www.lawebdelprogramador.com/foros/Pascal_Turbo_Pascal/1333223-Por_q¿_.html
Lenguaje:Pascal/Turbo Pascal
{Mira de esta forma no ejecutara el resto si la zona no es valida}

program Zonas;
uses crt;
var
casa,nombre:string;
cedula:real;
zona:integer;

begin
clrscr;
writeln('Ingrese numero de zona de 1 a 3');
readln(zona);
if (zona < 1) or (zona > 3) then
begi



problemas al crear registros en pascal
Mon, 21 May 2012 18:24:09 +0200
Titulo:problemas al crear registros en pascal
Autor:ramon
Hilo:problemas al crear registros en pascal
Url:http://www.lawebdelprogramador.com/foros/Pascal_Turbo_Pascal/1333262-problemas_al_crear_registros_en_pascal.html
Lenguaje:Pascal/Turbo Pascal
{Mira la forma de escribir y leer registros en este ejemplo ponlo a tus valores de registro
y cambia lo que deseas y luego prueba}

 uses
     crt;
  type
    datosreg = record
           id : integer;
           passwor : word;
           nombre : string[190];
  



espiral
Mon, 21 May 2012 00:33:48 +0200
Titulo:espiral
Autor:Luis
Hilo:espiral
Url:http://www.lawebdelprogramador.com/foros/Pascal_Turbo_Pascal/1332973-espiral.html
Lenguaje:Pascal/Turbo Pascal
hola asi llevo el ejercicio no se sivoy bien  quisiera q se viera mas centrado y menos pegado para q se distinga bien el espiral



program espiral;

uses crt;

var

n1,n2,n3,n4,i,numeros:integer;



begin

clrscr;

writeln('Ingrese primer Numero


Por q¿?
Mon, 21 May 2012 00:22:10 +0200
Titulo:Por q¿?
Autor:Luis
Hilo:Por q¿?
Url:http://www.lawebdelprogramador.com/foros/Pascal_Turbo_Pascal/1333223-Por_q¿_.html
Lenguaje:Pascal/Turbo Pascal
Ramon gracias un error de sintaxis tienes razon ahora lo q me puso a darme contra el monitor es q yo ingreso la zona incorrecta por ejemplo 4 o 5 o 0 y no me sale de una vez q la zona es incorrecta si no despues q ingreso todo los datos porq que me falta indicarle para q no mas ingrese un numero de 


Pregunta
Mon, 21 May 2012 00:01:46 +0200
Titulo:Pregunta
Autor:Luis
Hilo:Pregunta
Url:http://www.lawebdelprogramador.com/foros/Pascal_Turbo_Pascal/1333226-Pregunta.html
Lenguaje:Pascal/Turbo Pascal
aja revisando en la carpeta C.\archivos de programa\tp\units esta dentro de esa carpeta lo siguiente:



APP.TPU

COLORSEL.TPU

CURSU.TPU

DIALOGS.TPU

DRIVERS.TPU

EDITORS.TPU

GRAPH3.TPU

GRAPH.TPU

HISTLIST.TPU

MEMORY.TPU

M


programa  en free pascal
Sun, 20 May 2012 22:48:08 +0200
Titulo:programa  en free pascal
Autor:lorena
Url:http://www.lawebdelprogramador.com/foros/Pascal_Turbo_Pascal/1333265-programa__en_free_pascal.html
Lenguaje:Pascal/Turbo Pascal
hola amigos necesito me ayuden a hacer un programa que acepte numeros hasta el valor centinela -999 , para cada numero el programa contara los numeros pares e impares. muchas gracias bonito dia a todos :)


problemas al crear registros en pascal
Sun, 20 May 2012 22:36:17 +0200
Titulo:problemas al crear registros en pascal
Autor:franco sanguedolce
Url:http://www.lawebdelprogramador.com/foros/Pascal_Turbo_Pascal/1333262-problemas_al_crear_registros_en_pascal.html
Lenguaje:Pascal/Turbo Pascal
Hola... necesito un poco de ayuda xD



bueno estoy haciendo un programa que grabe un registro en pascal...

el programa debe contener:



nombre de usuario, contraseña del usuario, nombre del usuario.



el programa debe iniciar con un menu en el cua


programa  en free pascal
Sun, 20 May 2012 22:23:11 +0200
Titulo:programa  en free pascal
Autor:ramon
Hilo:programa  en free pascal
Url:http://www.lawebdelprogramador.com/foros/Pascal_Turbo_Pascal/1333232-programa__en_free_pascal.html
Lenguaje:Pascal/Turbo Pascal
{A ver si esto bale}

 program multiplos;
 uses
    crt;
  var
    numero : integer;
    salir : integer;

  begin
      clrscr;
      salir := 1;
      while salir <> 666 do
      begin
         write('Entre un numero : ');
         readln(numero);
  



Pregunta
Sun, 20 May 2012 21:10:28 +0200
Titulo:Pregunta
Autor:ramon
Hilo:Pregunta
Url:http://www.lawebdelprogramador.com/foros/Pascal_Turbo_Pascal/1333226-Pregunta.html
Lenguaje:Pascal/Turbo Pascal
El error que marcas es que en el directorio unit no esta la unidad graph o el camino en

el menu opciones no esta bien puesto.


Pregunta
Sun, 20 May 2012 21:04:22 +0200
Titulo:Pregunta
Autor:ramon
Hilo:Pregunta
Url:http://www.lawebdelprogramador.com/foros/Pascal_Turbo_Pascal/1333226-Pregunta.html
Lenguaje:Pascal/Turbo Pascal
Disculpa si estas con freepascal 2.4.0 tiene problemas con la unidad graph bájate freepascal

2.6.0 funciona bien.


Por q¿?
Sun, 20 May 2012 20:51:47 +0200
Titulo:Por q¿?
Autor:ramon
Hilo:Por q¿?
Url:http://www.lawebdelprogramador.com/foros/Pascal_Turbo_Pascal/1333223-Por_q¿_.html
Lenguaje:Pascal/Turbo Pascal
if (zona < 1) and (zona > 3) then

begin

writeln('Numero de Zona incorrecto');

end;



Esta forma requiere se cumplan las dos condiciones.

Tendrías que poner  [if (zona < 1) or (zona > 3) then]


programa  en free pascal
Sun, 20 May 2012 18:29:23 +0200
Titulo:programa  en free pascal
Autor:yesica
Url:http://www.lawebdelprogramador.com/foros/Pascal_Turbo_Pascal/1333232-programa__en_free_pascal.html
Lenguaje:Pascal/Turbo Pascal
hola necesito que me ayuden a contruir un programa que acepte numeros hasta que el usuario introduzca el numero 666, para cada numero el programa indicara si es multiplo de 5 y/o de 3 . espero su respuesta gracias.


Pregunta
Sun, 20 May 2012 14:43:45 +0200
Titulo:Pregunta
Autor:Luis
Url:http://www.lawebdelprogramador.com/foros/Pascal_Turbo_Pascal/1333226-Pregunta.html
Lenguaje:Pascal/Turbo Pascal
hola quisiera q me dijeran por q cuando corro el progrma de corazcon q hizo ramo me sale un error q dice 



error 15: file not found (GRAPH.TPU).



PD: revise la carpeta BGI y si esta la cambie para la ubicacion C:\tp.



:(


Por q¿?
Sun, 20 May 2012 13:50:24 +0200
Titulo:Por q¿?
Autor:Luis
Url:http://www.lawebdelprogramador.com/foros/Pascal_Turbo_Pascal/1333223-Por_q¿_.html
Lenguaje:Pascal/Turbo Pascal
Hola, tengo este mini codigo, pero la condicion q le pongo no la realiza ingreso datos superiores o inferirores y no me arroja el mensaje que quiero que podra ser.



program Zonas;

uses crt;

var

zona:integer;



begin

clrscr;

writeln('Ingre


espiral
Sat, 19 May 2012 21:16:46 +0200
Titulo:espiral
Autor:Armando Fuenmayor
Hilo:espiral
Url:http://www.lawebdelprogramador.com/foros/Pascal_Turbo_Pascal/1332973-espiral.html
Lenguaje:Pascal/Turbo Pascal
program espi;
uses crt;
var
 i, j ,fi , co: integer;
 espiral, matriz : array[1..4,1..4] of integer;
    C : char;
    verdad : boolean;
procedure fico(fila,columna: integer; var ii,jj:integer);
begin
  if (fila = 1) and (columna = 1) then
  begin
    ii := 3;
 



EJERCICIO ARRAYS
Sat, 19 May 2012 19:43:03 +0200
Titulo:EJERCICIO ARRAYS
Autor:carlos
Hilo:EJERCICIO ARRAYS
Url:http://www.lawebdelprogramador.com/foros/Pascal_Turbo_Pascal/1332918-EJERCICIO_ARRAYS.html
Lenguaje:Pascal/Turbo Pascal
Lo que hay que hacer (es que antes no entendia del todo el enunciado), es crear un fichero (.txt) en el que el usuario (por medio del programa) escriba una o varias lineas de texto con las fechas ocupadas, y aparezcan abajo las fechas posibles (las que no estan ocupadas).  No se si hay que poner arr


separar en token un archivo de texto
Sat, 19 May 2012 17:59:21 +0200
Titulo:separar en token un archivo de texto
Autor:ramon
Hilo:separar en token un archivo de texto
Url:http://www.lawebdelprogramador.com/foros/Pascal_Turbo_Pascal/1332812-separar_en_token_un_archivo_de_texto.html
Lenguaje:Pascal/Turbo Pascal
{A ver este programa te busca  en un archivo que tuenes que crear con estos datos y este nombre

pemporal.txt , los Datos  Son : NECESITO UN PROGRAMA EN PASCAL QUE BUSQUE A LA VEZ UN NOMBRE, UNA FRUTA, UNA

 CIUDAD EN ESE ORDEN Y QUE ESTE EN EL MISMO ARCHIVO DE TEXTO Y QUE ME INDIQUE



espiral
Fri, 18 May 2012 23:31:06 +0200
Titulo:espiral
Autor:ramon
Hilo:espiral
Url:http://www.lawebdelprogramador.com/foros/Pascal_Turbo_Pascal/1332973-espiral.html
Lenguaje:Pascal/Turbo Pascal
Creo me comenta esto en modo texto lo cual indica la generación de 4x4 16 números

metidos en ese cuadro un poquito escaso no puesto que quedaría algo asín.

  

                                                  1 2 3 4

                           


EJERCICIO ARRAYS
Fri, 18 May 2012 20:06:16 +0200
Titulo:EJERCICIO ARRAYS
Autor:ramon
Hilo:EJERCICIO ARRAYS
Url:http://www.lawebdelprogramador.com/foros/Pascal_Turbo_Pascal/1332918-EJERCICIO_ARRAYS.html
Lenguaje:Pascal/Turbo Pascal
Me podías aclarar esto si son arrays no puede ser texto lo que leas serán arrays de [0..x]

pero no lineas de texto, acláreme lo el texto seria [1 2 3 4 5 6 7 8] o otros y el array seria

[cena[0].1  cena[1].2  cena[2].3  cena[3].4] como ves lo es lo mismo texto que