Mostrar Mensajes

1

Pascal / Re: Runtime

« en: Viernes 8 de Junio de 2007, 02:58 »

si el error es division por cero:S pero instalo los famosos parches esos q existen pero continua diciendo division entre cero:S

2

Pascal / Runtime

« en: Miércoles 6 de Junio de 2007, 15:48 »

Buenas resulta que estoy haciendo un programa, el mismo se compila perfectamente pero a la hora de correrlo me genera un error 200'

He leido que es un problema del pascal al ejecutarse en pc nuevas, tambien vi que existe la forma de corregir este problema, bajando un archivo y sustituyendolo por el que tenia la pc.

He hecho todo esto y aun se continua generando este error, agradeceria que me explicaran detalladamente como se corrigiria.

A continuacion anexo mi programa, no vaya a ser q sea un error de programacion
--------------------------------------
program aprox;
uses crt;

const
e= 2.718;
f= 0.0009;

var

a,b,c:real;
cont: integer;

Begin

cont:=1;

Repeat

b:= (0.5*cont)+(1/cont);
cont:= cont + 1;
c:= b-a;

until ((c>0) and (c<=f))

end.

--------------------------------
delta

3

Delphi / Runtime

« en: Miércoles 6 de Junio de 2007, 15:47 »

Buenas resulta que estoy haciendo un programa, el mismo se compila perfectamente pero a la hora de correrlo me genera un error 200'

He leido que es un problema del pascal al ejecutarse en pc nuevas, tambien vi que existe la forma de corregir este problema, bajando un archivo y sustituyendolo por el que tenia la pc.

He hecho todo esto y aun se continua generando este error, agradeceria que me explicaran detalladamente como se corrigiria.

A continuacion anexo mi programa, no vaya a ser q sea un error de programacion
--------------------------------------
program aprox;
uses crt;

const
e= 2.718;
f= 0.0009;

var

a,b,c:real;
cont: integer;

Begin

cont:=1;

Repeat

b:= (0.5*cont)+(1/cont);
cont:= cont + 1;
c:= b-a;

until ((c>0) and (c<=f))

end.

--------------------------------

DELTA

4

Pascal / Duda :s?

« en: Miércoles 30 de Mayo de 2007, 18:39 »

tengo una duda con el siguiente programa, soy nuevo con el ciclo for y no consigo la falla del siguiente programa.

NOTA: el programa me funciona para calcular valores de factoriales entre 1 y 7, pero al ingresar como valor de n= 8 me da un valor errado (-25216) y al ingresar n= 25 me da 0,

program factorial;
var n,i,fact: integer;

begin
write ('Ingrese el numero al cual le desea calcular su factorial:');
readln (n);
fact:=1;
for i:=1 to n do
fact:=fact*i;
writeln (' El factorial de ',n,' es: ',fact);
readln;
end.

Agradeceria que me comunicaran a que se debe la falla

SoloCodigo