Forum
Bonjour.
Voici le listing du mois de janvier que je publierais sur le forum retropoke.
Il n'y a pas de participant et c'est bien dommage car je pensais qu'en publiant un deuuligne par mois, ça aurait motiver les autres à participer aussi. 😑
LE JOUR DE LA DATE, permet de connaitre le jour de la semaine suivant une date définie et aussi les années bissextiles.
1800 n'est pas une année bissextile pas plus que 2100 ne le sera.
Alors quel jour est-tu né ? Moi c'est un vendredi 😀
| ****************** ********** Le Deuuligne de RetroPoke #09 **************************** |
 Cette année-là, je chantais pour la première fois. Et la dernière aussi, je chante comme mon pied gauche 🙂 Mais une chose est sur, c'est que je ne suis pas né d'hier ! . |
| Voici le réglement si vous voulez vous aussi participer au deuuligne du mois ?
* Deux Lignes en BASIC (Les lignes peuvent contenir du BASIC et du langage MACHINE) amstrad.eu vous récompensera en affichant votre programme sur la page principale du site. RetroPoke
|
| JOUR DE LA DATE (RETROPOKE) |
| Souvenez-vous du jour de la semaine que vous êtes né(e) ? Et l'année était-elle bissextile ?
On dit que si l'année est divisible par quatre alors c'est une année bissextile. Mais c'est FAUX. Prenez par exemple l'année 1800 qui n'est pas une année bissextile ! Etonnant non ? Non seulement ce petit programme vous renseignera sur le jour d'une date (anniversaire, mariage, événement ,...) mais il vous dira aussi si c'était une année bissextile. Entrez une date sous le format : jj,mm,aaaa en séparant les nombres par une virgule. Exemple pour le 28 mars 1932, entrez : 28,03,1932 puis appuyez sur [ENTER] pour valider. |
| Listing & Téléchargement |
1 MODE 1:PEN 3:INPUT"jj,mm,aaaa ";x,y,z:c=-(y<3):MODE 0:PRINT" LE: "RIGHT$(STR$(100+x),2)" "RIGHT$(STR$(100+y),2)STR$(z)STRING$(20,&D8),TAB(7)"TOMBE UN":PEN 4:FOR b=0 TO 6:j$(b)=MID$("DIMANCHE LUNDI MARDI MERCREDI JEUDI VENDREDI SAMEDI ",b*8+1,8) |
