Le jour de la semaine, etc


le Jour de la semaine, les Jours de l'année, etc

Contributeur: SWAG ÉQUIPE de SUPPORT

le Programme Grégorien { jour Julien date Grégorienne }
Utilise Crt { Turbo/Pascal Rapide }
Type de String3 = String[3]
String9 = String[9]
Const MonthName : Array [1..12] de String3 =
( & #39 Jan & #39 , & #39 Févr & #39 , & #39 Mar & #39 , & #39 Avr & #39 , & #39 & #39 , & #39 Jun & #39 ,
& #39 Juil & #39 , & #39 Août & #39 , & #39 Sep & #39 , & #39 Oct & #39 , & #39 Nov & #39 , & #39 Dec & #39 )
DayName : Array [1..7] de String9 =
( & #39 dimanche & #39 , & #39 lundi & #39 , & #39 mardi & #39 , & #39 mercredi & #39 ,
& #39 jeudi & #39 , & #39 vendredi & #39 , & #39 samedi & #39 )
Var Jour, JulianDay, F : Réel
Mois : Octet
Année : Integer
A, B, C, D, E, G, Z : LongInt
LeapYear : Boolean

la Fonction DayofWeek( Mois : Octet de Journée : le Real Année : Integer ): Octet
Var iVar1, iVar2 : Integer
begin
iVar1 := An MOD 100
iVar2 := TRUNC( Jour ) iVar1 iVar1 div 4
Cas Mois
4, 7 : iVar1 := 0
1, 10 : iVar1 := 1
5 : iVar1 := 2
8 : iVar1 := 3
2,3,11 : iVar1 := 4
6 : iVar1 := 5
9,12 : iVar1 := 6
end {Cas}
iVar2 := ( iVar1 iVar2 ) MOD 7
if ( iVar2 = 0 ) alors iVar2 := 7
DayofWeek := Octet( iVar2 )
end {DayofWeek}

la Fonction DayofTheYear( Mois : Octet de la JOURNÉE : Real ): Integer
Var N : Integer
begin
si LeapYear alors N := 1 sinon N := 2
N := 275 * Mois div 9
- N * (( 9 Mois ) div 12)
TRUNC( Jour ) - 30
DayofTheYear := N
end {DayofTheYear}

begin {Grégorien}
ClrScr
WriteLn( & #39 Grégorien dates v0.0 Déc.91 Greg Vigneault & #39 )
WriteLn( & #39 [Enter jour Julien valeurs] & #39 )

Repeat WriteLn
Write( & #39 Entrée (positif) Julian nombre de jours: & #39 )
ReadLn( JulianDay )
Jusqu'à ce que ( JulianDay >= 706.0 )

JulianDay := JulianDay 0.5
Z := TRUNC( JulianDay ) F := FRAC( JulianDay )

si ( Z < 2299161 )
alors A := Z
else begin G := TRUNC( ( Z - 1867216.25 ) / 36524.25)
A := Z 1 G - G div 4
end {si}

B := A 1524 C := TRUNC( ( B - 122.1 ) / 365.25 )
D := TRUNC( 365.25 * C ) E := TRUNC( ( B - D ) / 30.6001 )

la Journée := B - D - TRUNC( 30.6001 * E ) F

si E < 13.5 )
puis le Mois := Octet( E - 1 )
else if ( E > 13.5 ) puis le Mois := Octet( f - 13 )

if ( Mois > 2.5 )
pour l'Année en cours := Integer( C - 4716 )
else if ( Mois < 2.5 ) pour l'Année en cours := Integer( C - 4715 )

if ((An MOD 100)<>0) and ((An MOD 4)=0)
ensuite, LeapYear := True
d'autre LeapYear := False

Write(#10, & #39 Grégorien & #39 ) si LeapYear alors Écrire( & #39 LeapYear & #39 )
WriteLn( & #39 date est & #39 ,DayName[DayofWeek(Jour,Mois,Année)],
& #39 , & #39 ,MonthName[ Mois ], & #39 & #39 ,Jour:2:2, & #39 , & #39 ,Année:4,
& #39 jours de l'année (=& #39 ,DayofTheYear(Mois,Jour), & #39 ) & #39 ,#10)
à la fin. {Grégorien}









Le jour de la semaine, etc


Le jour de la semaine, etc : Plusieurs milliers de conseils pour vous faciliter la vie.


le Jour de la semaine, les Jours de l'annee, etc

Contributeur: SWAG EQUIPE de SUPPORT

le Programme Gregorien { jour Julien date Gregorienne }
Utilise Crt { Turbo/Pascal Rapide }
Type de String3 = String[3]
String9 = String[9]
Const MonthName : Array [1..12] de String3 =
( & #39 Jan & #39 , & #39 Fevr & #39 , & #39 Mar & #39 , & #39 Avr & #39 , & #39 & #39 , & #39 Jun & #39 ,
& #39 Juil & #39 , & #39 Août & #39 , & #39 Sep & #39 , & #39 Oct & #39 , & #39 Nov & #39 , & #39 Dec & #39 )
DayName : Array [1..7] de String9 =
( & #39 dimanche & #39 , & #39 lundi & #39 , & #39 mardi & #39 , & #39 mercredi & #39 ,
& #39 jeudi & #39 , & #39 vendredi & #39 , & #39 samedi & #39 )
Var Jour, JulianDay, F : Reel
Mois : Octet
Annee : Integer
A, B, C, D, E, G, Z : LongInt
LeapYear : Boolean

la Fonction DayofWeek( Mois : Octet de Journee : le Real Annee : Integer ): Octet
Var iVar1, iVar2 : Integer
begin
iVar1 := An MOD 100
iVar2 := TRUNC( Jour ) iVar1 iVar1 div 4
Cas Mois
4, 7 : iVar1 := 0
1, 10 : iVar1 := 1
5 : iVar1 := 2
8 : iVar1 := 3
2,3,11 : iVar1 := 4
6 : iVar1 := 5
9,12 : iVar1 := 6
end {Cas}
iVar2 := ( iVar1 iVar2 ) MOD 7
if ( iVar2 = 0 ) alors iVar2 := 7
DayofWeek := Octet( iVar2 )
end {DayofWeek}

la Fonction DayofTheYear( Mois : Octet de la JOURNEE : Real ): Integer
Var N : Integer
begin
si LeapYear alors N := 1 sinon N := 2
N := 275 * Mois div 9
- N * (( 9 Mois ) div 12)
TRUNC( Jour ) - 30
DayofTheYear := N
end {DayofTheYear}

begin {Gregorien}
ClrScr
WriteLn( & #39 Gregorien dates v0.0 Dec.91 Greg Vigneault & #39 )
WriteLn( & #39 [Enter jour Julien valeurs] & #39 )

Repeat WriteLn
Write( & #39 Entree (positif) Julian nombre de jours: & #39 )
ReadLn( JulianDay )
Jusqu'a ce que ( JulianDay >= 706.0 )

JulianDay := JulianDay 0.5
Z := TRUNC( JulianDay ) F := FRAC( JulianDay )

si ( Z < 2299161 )
alors A := Z
else begin G := TRUNC( ( Z - 1867216.25 ) / 36524.25)
A := Z 1 G - G div 4
end {si}

B := A 1524 C := TRUNC( ( B - 122.1 ) / 365.25 )
D := TRUNC( 365.25 * C ) E := TRUNC( ( B - D ) / 30.6001 )

la Journee := B - D - TRUNC( 30.6001 * E ) F

si E < 13.5 )
puis le Mois := Octet( E - 1 )
else if ( E > 13.5 ) puis le Mois := Octet( f - 13 )

if ( Mois > 2.5 )
pour l'Annee en cours := Integer( C - 4716 )
else if ( Mois < 2.5 ) pour l'Annee en cours := Integer( C - 4715 )

if ((An MOD 100)<>0) and ((An MOD 4)=0)
ensuite, LeapYear := True
d'autre LeapYear := False

Write(#10, & #39 Gregorien & #39 ) si LeapYear alors Ecrire( & #39 LeapYear & #39 )
WriteLn( & #39 date est & #39 ,DayName[DayofWeek(Jour,Mois,Annee)],
& #39 , & #39 ,MonthName[ Mois ], & #39 & #39 ,Jour:2:2, & #39 , & #39 ,Annee:4,
& #39 jours de l'annee (=& #39 ,DayofTheYear(Mois,Jour), & #39 ) & #39 ,#10)
a la fin. {Gregorien}


Le jour de la semaine, etc

Le jour de la semaine, etc : Plusieurs milliers de conseils pour vous faciliter la vie.
Recommander aux amis
  • gplus
  • pinterest

Messages récents

Commentaire

Laisser un commentaire

évaluation