| Autor |
Mensaje |
leta!
Nivel 2
Edad: 32
Registrado: 31 Jul 2012
Mensajes: 14
Ubicación: san miguel
Carrera: Alimentos y Química
|
|
buenas gente tengo un tp que entregar el enunciado dice: La fecha de Pascua corresponde al primer domingo después de la primera luna llena que sigue al
Equinoccio de primavera, y se calcula con las siguientes expresiones:
A = año mod 19
B = año mod 4
C = año mod 7
D = (19*A + 24) mod 30
E = (2*B + 4*C + 6*D + 5) mod 7
N = (22 + D + E)
En el que N indica el numero del día de marzo (o Abril si N > 31) correspondiente al domingo de Pascua.
Realizar un programa que calcule esa fecha para los años 2003 y 2004
tengo esto :
Program Pascua;
Uses crt;
var
año :integer;
a,b,c,d,e :integer;
dia :integer;
Begin
writeln(*Programa que determina la fecha del Domingo de Pascua*);
writeln; writeln;
Write('Cuál es el año ? '); readln(año);
writeln; writeln;
a:=año mod 19;
b:=año mod 4;
c:=año mod 7;
d:=(19*a+24) mod 30;
e:=(2*b+4*c+6*d+5) mod 7;
dia:= 22+ d +e;
write('La fecha del Domingo de Pascua es: ');
if dia <= 31 then
writeln(dia, ' de Marzo de ', año)
else
writeln(dia - 31, ' de Abril de ',año);
end.
el problema es que a la hora de compilar todo ok , al poner run no ejecuta tira RUNTIME ERROR 200 ! help me (?)
|
|
|
|
_________________
La vita é bella
|
|
   |
    |
|
lamorsa
Nivel 8
Edad: 36
Registrado: 14 Nov 2009
Mensajes: 671
Ubicación: Monte Grande (Far South)
Carrera: Informática y Sistemas
|
|
|
_________________
|
|
   |
|
|
GBS-7
Nivel 5
Edad: 32
Registrado: 19 Jul 2011
Mensajes: 142
Ubicación: Villa Urquiza
Carrera: Alimentos y Química
|
|
|
_________________
Martin. Humano, roto y mal parado.
|
|
 |
 |
|
leta!
Nivel 2
Edad: 32
Registrado: 31 Jul 2012
Mensajes: 14
Ubicación: san miguel
Carrera: Alimentos y Química
|
|
Gracias muchachada  si en efecto era el parche , tiraba división por o y no era compatible!
|
|
|
|
_________________
La vita é bella
|
|
| |
|
|
sebfontaine
Nivel 3
Edad: 41
Registrado: 23 Abr 2013
Mensajes: 30
Ubicación: Villa Urquiza
|
|
Hola a tod@s, en un ejercicio de compu me piden: ingresar los datos en la matriz
a b c d (primera fila)
sería ax1+bx2+cx3=d
de es forma tengo una matriz con (i) filas y con (i+1) columnas.
tengo que encontrar los valores de x todos , saben que no puedo o sea intente hacer un procedimiento que lea los valores que voy ingresando de modo que muestre la matriz, pero estoy confundido a la hora de solicitar el valor/es de X, QUE SUPUESTAMENTE tendria que declarar al principio del programa...si alguien lee esto agradeceria una guia, un saludo!!!
|
|
|
|
|
|
 |
 |
|
Hache
Nivel 8
Registrado: 13 May 2010
Mensajes: 574
Carrera: Informática
|
|
No entendí ¿No es un array de valores?
EDIT: Bueno, si, releyendo supongo que te referis a eso.
Declaras algo asi como
matriz : array [1..100,1..100] of Real;
Y despues pedis los valores para matriz[1,1], matriz[1,2], matriz[1,3] etc. ¿Eso es?
|
|
|
|
_________________
|
|
| |
 |
|
sebfontaine
Nivel 3
Edad: 41
Registrado: 23 Abr 2013
Mensajes: 30
Ubicación: Villa Urquiza
|
|
Gracias por tu tiempo Hache..!! mira el tema es que un amigo se trabo con esto, calculo que un array puede ser solucion al no estar seguro queria consultarlo aqui!!!
suguiero que con esa info podra hacer el ejercicio, en cuanto tenga novedades, vuelvo a responder, gracias de nuevo un saludo!!!
|
|
|
|
|
|
| |
|
|
|
|
