Autor |
Mensaje |
leta!
Nivel 2
Edad: 32
Registrado: 31 Jul 2012
Mensajes: 14
Ubicación: san miguel
Carrera: Alimentos y Química
![italy.gif](images/flags/italy.gif)
|
|
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
|
|
![Cabra Cabra](templates/fisubsilversh/images/icon_chinese_goat.gif) |
![Offline Offline](templates/fisubsilversh/images/lang_spanish_argentina/icon_offline.gif) ![Galería Personal de leta! Galería Personal de leta!](templates/fisubsilversh/images/lang_spanish_argentina/icon_gallery.gif) ![Ver perfil de usuario Ver perfil de usuario](templates/fisubsilversh/images/lang_spanish_argentina/icon_profile.gif) ![Enviar mensaje privado Enviar mensaje privado](templates/fisubsilversh/images/lang_spanish_argentina/icon_pm.gif) |
![](images/spacer.gif) |
lamorsa
Nivel 8
Edad: 36
Registrado: 14 Nov 2009
Mensajes: 671
Ubicación: Monte Grande (Far South)
Carrera: Informática y Sistemas
![argentina.gif](images/flags/argentina.gif)
|
|
_________________
|
|
![Gato Gato](templates/fisubsilversh/images/icon_chinese_cat.gif) |
![Offline Offline](templates/fisubsilversh/images/lang_spanish_argentina/icon_offline.gif) ![Galería Personal de lamorsa Galería Personal de lamorsa](templates/fisubsilversh/images/lang_spanish_argentina/icon_gallery.gif) ![Ver perfil de usuario Ver perfil de usuario](templates/fisubsilversh/images/lang_spanish_argentina/icon_profile.gif) ![Enviar mensaje privado Enviar mensaje privado](templates/fisubsilversh/images/lang_spanish_argentina/icon_pm.gif) |
![](images/spacer.gif) |
GBS-7
Nivel 5
![](images/avatars/21079475255264941074238.png)
Edad: 32
Registrado: 19 Jul 2011
Mensajes: 142
Ubicación: Villa Urquiza
Carrera: Alimentos y Química
![CARRERA.quimica.3.jpg](images/flags/CARRERA.quimica.3.jpg)
|
|
_________________ Martin. Humano, roto y mal parado.
|
|
![Cabra Cabra](templates/fisubsilversh/images/icon_chinese_goat.gif) |
![Oculto Oculto](templates/fisubsilversh/images/lang_spanish_argentina/icon_hidden.gif) ![Galería Personal de GBS-7 Galería Personal de GBS-7](templates/fisubsilversh/images/lang_spanish_argentina/icon_gallery.gif) ![Ver perfil de usuario Ver perfil de usuario](templates/fisubsilversh/images/lang_spanish_argentina/icon_profile.gif) ![Enviar mensaje privado Enviar mensaje privado](templates/fisubsilversh/images/lang_spanish_argentina/icon_pm.gif) |
![](images/spacer.gif) |
leta!
Nivel 2
Edad: 32
Registrado: 31 Jul 2012
Mensajes: 14
Ubicación: san miguel
Carrera: Alimentos y Química
![italy.gif](images/flags/italy.gif)
|
|
Gracias muchachada si en efecto era el parche , tiraba división por o y no era compatible!
|
|
|
|
_________________ La vita é bella
|
|
![Cabra Cabra](templates/fisubsilversh/images/icon_chinese_goat.gif) |
![Offline Offline](templates/fisubsilversh/images/lang_spanish_argentina/icon_offline.gif) ![Galería Personal de leta! Galería Personal de leta!](templates/fisubsilversh/images/lang_spanish_argentina/icon_gallery.gif) ![Ver perfil de usuario Ver perfil de usuario](templates/fisubsilversh/images/lang_spanish_argentina/icon_profile.gif) ![Enviar mensaje privado Enviar mensaje privado](templates/fisubsilversh/images/lang_spanish_argentina/icon_pm.gif) |
![](images/spacer.gif) |
sebfontaine
Nivel 3
Edad: 41
Registrado: 23 Abr 2013
Mensajes: 30
Ubicación: Villa Urquiza
![italy.gif](images/flags/italy.gif)
|
|
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!!!
|
|
|
|
|
|
![Perro Perro](templates/fisubsilversh/images/icon_chinese_dog.gif) |
![Offline Offline](templates/fisubsilversh/images/lang_spanish_argentina/icon_offline.gif) ![Galería Personal de sebfontaine Galería Personal de sebfontaine](templates/fisubsilversh/images/lang_spanish_argentina/icon_gallery.gif) ![Ver perfil de usuario Ver perfil de usuario](templates/fisubsilversh/images/lang_spanish_argentina/icon_profile.gif) ![Enviar mensaje privado Enviar mensaje privado](templates/fisubsilversh/images/lang_spanish_argentina/icon_pm.gif) ![MSN Messenger MSN Messenger](templates/fisubsilversh/images/lang_spanish_argentina/icon_msnm.gif) |
![](images/spacer.gif) |
Hache
Nivel 8
![](images/avatars/155510960952cc128922727.png)
Registrado: 13 May 2010
Mensajes: 574
Carrera: Informática
![argentina.gif](images/flags/argentina.gif)
|
|
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?
|
|
|
|
_________________
|
|
|
![Offline Offline](templates/fisubsilversh/images/lang_spanish_argentina/icon_offline.gif) ![Galería Personal de Hache Galería Personal de Hache](templates/fisubsilversh/images/lang_spanish_argentina/icon_gallery.gif) ![Ver perfil de usuario Ver perfil de usuario](templates/fisubsilversh/images/lang_spanish_argentina/icon_profile.gif) ![Enviar mensaje privado Enviar mensaje privado](templates/fisubsilversh/images/lang_spanish_argentina/icon_pm.gif) ![Visitar sitio web del usuario Visitar sitio web del usuario](templates/fisubsilversh/images/lang_spanish_argentina/icon_www.gif) |
![](images/spacer.gif) |
sebfontaine
Nivel 3
Edad: 41
Registrado: 23 Abr 2013
Mensajes: 30
Ubicación: Villa Urquiza
![italy.gif](images/flags/italy.gif)
|
|
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!!!
|
|
|
|
|
|
![Perro Perro](templates/fisubsilversh/images/icon_chinese_dog.gif) |
![Offline Offline](templates/fisubsilversh/images/lang_spanish_argentina/icon_offline.gif) ![Galería Personal de sebfontaine Galería Personal de sebfontaine](templates/fisubsilversh/images/lang_spanish_argentina/icon_gallery.gif) ![Ver perfil de usuario Ver perfil de usuario](templates/fisubsilversh/images/lang_spanish_argentina/icon_profile.gif) ![Enviar mensaje privado Enviar mensaje privado](templates/fisubsilversh/images/lang_spanish_argentina/icon_pm.gif) ![MSN Messenger MSN Messenger](templates/fisubsilversh/images/lang_spanish_argentina/icon_msnm.gif) |
![](images/spacer.gif) |
|