Discussion :

[sterbik]

Bonjour

On veut afficher à l'écran un calendrier d'un mois donné. On donne le mois, l'année et le jour de la semaine correspondante au premier du mois en question.
écrivez un programme qui réalise cette tâche en utilisant les structures conditionnelles et itératives
quelqu'un sait comment le faire ??

[krachik]

Bonjour et bienvenue

Bonjour
quelqu'un sait comment le faire ??

Oui toi, tu sais sûrement faire, vu que ça à l'air d'être un exercice, ça suppose que tu as les notions nécessaires pour savoir le faire.

La question qu'on te poserait est : qu'est ce qui te bloque? quel problème rencontres-tu pour faire l'exercice?

Cordialement

[sterbik]

Bonjour et bienvenue

Oui toi, tu sais sûrement faire, vu que ça à l'air d'être un exercice, ça suppose que tu as les notions nécessaires pour savoir le faire.

La question qu'on te poserait est : qu'est ce qui te bloque? quel problème rencontres-tu pour faire l'exercice?

Cordialement

tu veux la vérité ?? à part écrire uses wincrt , write et read j'ai trouvé aucune idée pour le faire car je sens qu'il me manque un peu de culture générale à ce propos

[krachik]

Une autre vérité aussi serait que tu prennes le temps de lire un tuto (lien en bas de page) sur les notions dont l'exercice fait allusion : les structures conditionnelles et itératives
Mais commence surtout par établir ce que tu veux faire ensuite tu penseras à Pascal. Ma question serait donc as-tu déjà établi un algorithme pour réaliser la chose?

[sterbik]

Une autre vérité aussi serait que tu prennes le temps de lire un tuto (lien en bas de page) sur les notions dont l'exercice fait allusion : les structures conditionnelles et itératives
Mais commence surtout par établir ce que tu veux faire ensuite tu penseras à Pascal. Ma question serait donc as-tu déjà établi un algorithme pour réaliser la chose?

OK je vais commencer par l'analyse et l'algorithme puis je t'avertie si je rencontre un problème dés le début

[sterbik]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
program calendrier;
uses wincrt;
 
 
begin
writeln('saisir le numéro du mois ');
readln(m);
writeln('saisir l''anné ');
readln(a);
writeln('saisir le jour correspandant au premier du mois tels que lundi =1');
readln(j);
if m in [1,3,5,7,8,10,12] then
begin
nbj:=31;
end
else
if m in [4,6,9,11] then
begin
nbj:=31;
end
else
if m=2 then
if a mod 4=0 then
begin
nbj:=29;
end
else
begin
nbj:=28;
end;
if nbj=31 then
if j=1 then
begin
writeln('lundi   ',' 1 ','  8  ','  15  ','  22  ','  29  ');
writeln('mardi   ',' 2 ','  9  ','  16  ','  23  ','  30  ');
writeln('mercredi',' 3 ','  10  ',' 17  ','  24  ','  31  ');
writeln('jeudi   ',' 4 ','  11 ','  18  ','  25  ','    ');
writeln('vendredi',' 5 ','  12 ','  19  ','  26  ','    ');
writeln('samedi  ',' 6 ','  13 ','  20  ','  27  ','    ');
writeln('dimanche',' 7 ','  14 ','  21  ','  28  ','    ');

c'est ce que j'ai trouvé comme idée

[darrylsite]

Bonsoir,

Un petit rappel, voilà ce que dit wikipedia

Depuis l'instauration du calendrier grégorien, sont bissextiles les années[1]:

* soit divisibles par 4 mais non divisibles par 100
* soit divisibles par 400.

le lien : http://fr.wikipedia.org/wiki/Ann%C3%A9e_bissextile

[krachik]

Je rajoute en plus de ce que darrylsite a écrit que, c'est un début ton code.
Pour clarifier les choses:

On donne le mois, l'année et le jour de la semaine correspondante au premier du mois en question.

Ce qui fait que d'une manière simple, on peut résumer le code à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
   read (mois, annee, premJourSemaine); //Lire les entrées principales
   nbJours := getNbJours(mois, annee); //Calculer le nombre de jours du mois suivant l'année, pour cela t'auras besoin de savoir si l'année est bissextile ou pas 
   printCalendar(nbJours, premJourSemaine);//afficher le calendrier

Voilà en 3 trois lignes , plus sérieusement, la dernière partie de ton code risque d'être une usine à gaz si tu t'y prend mal.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
  //Pour la partie printCalendar
  i:=jr;
  for k:=1 to nbJours do
  begin
     //Là il faut afficher les jours de la semaine contenu dans un tableau par exemple, i sera l'index de ce tableau et sera remis au debut du tableau une fois la fin de la semaine atteinte.
  end;
//Le tableau peut ressembler à ça :
  jours[1]:= 'lundi';
  jours[2]:= 'mardi';
  jours[3]:= 'mercredi';
  jours[4]:= 'jeudi';
  jours[5]:= 'vendredi';
  jours[6]:= 'samedi';
  jours[7]:= 'dimanche';

Voilà de quoi avancer pour pas te cracher tout le code
Cordialement

[sterbik]

j'ai pas bien compris en tout cas merci

[krachik]

Qu'est ce que tu n'as pas compris exactement?
Dans ton code cette partie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
if nbj=31 then
if j=1 then
begin
writeln('lundi   ',' 1 ','  8  ','  15  ','  22  ','  29  ');
writeln('mardi   ',' 2 ','  9  ','  16  ','  23  ','  30  ');
writeln('mercredi',' 3 ','  10  ',' 17  ','  24  ','  31  ');
writeln('jeudi   ',' 4 ','  11 ','  18  ','  25  ','    ');
writeln('vendredi',' 5 ','  12 ','  19  ','  26  ','    ');
writeln('samedi  ',' 6 ','  13 ','  20  ','  27  ','    ');
writeln('dimanche',' 7 ','  14 ','  21  ','  28  ','    ');

Je disais que ça risque d'être une usine à gaz c'est pourquoi je te proposais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 //Pour la partie printCalendar
  i:=jr;
  for k:=1 to nbJours do
  begin
     //Là il faut afficher les jours de la semaine contenu dans un tableau par 
//exemple, i sera l'index de ce tableau et sera remis au debut du tableau une 
//fois la fin de la semaine atteinte.
  end;
//Le tableau peut ressembler à ça :
  jours[1]:= 'lundi';
  jours[2]:= 'mardi';
  jours[3]:= 'mercredi';
  jours[4]:= 'jeudi';
  jours[5]:= 'vendredi';
  jours[6]:= 'samedi';
  jours[7]:= 'dimanche';

La partie où tu récupères le mois de février n'est pas juste cf. le post de darrylsite.
Avant il faut définir les structure que tu vas utiliser, genre comment considères-tu le premier jour du mois, etc
C'est plus clair?

[darrylsite]

J'ai déjà fait un truc pareil dans le passé. Si ça peut t'aider voilà l'adresse http://darkpi.100webspace.net

[sterbik]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 //Pour la partie printCalendar
  i:=jr;
  for k:=1 to nbJours do
  begin
     //Là il faut afficher les jours de la semaine contenu dans un tableau par 
//exemple, i sera l'index de ce tableau et sera remis au debut du tableau une 
//fois la fin de la semaine atteinte.
  end;
//Le tableau peut ressembler à ça :
  jours[1]:= 'lundi';
  jours[2]:= 'mardi';
  jours[3]:= 'mercredi';
  jours[4]:= 'jeudi';
  jours[5]:= 'vendredi';
  jours[6]:= 'samedi';
  jours[7]:= 'dimanche';

c'est ce que j'ai pas compris la façon de la manupilation

[krachik]

d'où les commentaires que j'ai mis
Le but est de trouver un moyen rapide pour afficher tout le mois avec les jours correspondants, pour éviter la redondance, tu as juste besoin par exemple d'un tableau contenant les jours de la semaine, et donc dans le code ci-dessous, vu que tu connais le premier jour du mois, il faut juste parcourir les jours de la semaine en alternant à chaque fois que t'arrives en fin de semaine. C'est à dire que quand t'arrives à dimanche, tu retourne à lundi, d'où le retour à 1 une fois 8 atteint.
Voilà un code indicatif

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
  jours[1]:= 'lundi';
  jours[2]:= 'mardi';
  jours[3]:= 'mercredi';
  jours[4]:= 'jeudi';
  jours[5]:= 'vendredi';
  jours[6]:= 'samedi';
  jours[7]:= 'dimanche';
  i:=premJr;
  for k:=1 to nbJours do
  begin
      if (i=8) then //on atteint l'index de dimanche dans le tableau dont on repasse
// à lundi avec pour position 1.
          i:=1;
      writeln (k,' :',jours[i]);//affiche par exemple : 4 :lundi 
      inc(i);
  end;

Apres tu peux faire autrement pour l'affichage du calendrier
Toujours pas clair?

[diden138]

Bonjour,
Alors pour faire simple et aller vite,
L'utilisateur entre le jour, le mois, l'année et ton programme affiche le calendrier du mois donnée ok
Bon t'a besoins de plusieurs choses pour cela :
*Il faut que tu saches le nombre de jours que t'a dans ce mois pour ce faire t'a la fonction DaysInMonth regardes ici
*Il faut que tu saches le jour correspondant à chaque numéro du jour du mois en question (par exemple le jour numéro 4 est un mercredi, le jour numéro 3 était un mardi...etc.) pour cela l'algorithme se trouve ici avec une explication claire et détaillée et un exemple ici
Voila sinon pour le reste, quelques conseils pour ton code utilises un tableau de constantes pour tes jours et mois ça évite la redondance et ça augmente la lisibilité de ton code

Maintenant que tout est dit à ton clavier
Ah j'ai failli oublier, tu trouvera ici pleins de fonctions dont t'en aura surement besoin http://www.freepascal.org/docs-html/...s/index-5.html
Cordialement,

[krachik]

Je ne suis pas trop sûr que l'auteur du post ait accès aux fonctions date et vu que l'exercice dit écrivez un programme qui réalise cette tâche en utilisant les structures conditionnelles et itératives, ou alors il demanderait pas le premier jour du mois en entrée.

Bref ce n'est qu'un début mais ce que tu proposes fait entrer dans le vif du sujet vu qu'il y a des fonctions existantes pour faciliter la chose.

Je pense qu'il faut aider l'auteur de la discussion à résoudre le ce qu'il veut faire avant de lui proposer un truc qui sort du cadre de l'exercice, sauf s'il à le libre choix sur ce qu'il doit utiliser pour résoudre l'exercice

[darrylsite]

Je pense que sterbik a déjà presque tout fait dans le code qu'il avait posté. Il lui reste juste à trouvé comment afficher le calendrier sans avoir besion d'une librairie externe, ni des formule pour trouver le libelé du jour de la semaine correspondant à une date donnée. Mais il peut toute fois y arriver en sachant qu'une semaine compte sept jour, et que les jours de la semaine se repete dans le mois tout les 7 jours.

Pour arriver à afficher le calendrier comme il le désire il lui suffit de trouver un trick lui permettant de parcourir les jours du mois et les distribués selon les jours de la semaine.

J'ai arrangé son code et ajouter deux petits trucs. Mais il faut le completer pour qu'il soit fonctionnel.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
program calendrier;
 
 uses wincrt;
 
 
function isBissextile(year : integer) : boolean; //a completer
begin
 if (year mod 4)=0 then
  isBissextile:= true
 else
  isBissextile:=false;
end; 
 
 
function dayInMonth(year, month : integer) : byte;
 var tmp : byte;
begin
 if (month in [1,3,5,7,8,10,12]) then
  tmp := 30
 else if (month in [4,6,9,11]) then
  tmp:=31
 else if (month=2) then
  if (isBissextile(year)) then
   tmp:=29
  else
   tmp:=28;
 
 dayInMonth:=tmp;
end;
 
procedure printCalendar(year : integer; month, wDay : byte);
 const semaine : array[0..6] of string=( 'Dimanche', 'Lundi','Mardi', 'Mercredi', 'Vendredi', 'Samedi'); 
 var 
      i : byte;
      cal : array[0..6] of String;
begin
for i:= 0 to 6 do
 cal[i]:='';
 
 for i:=1 to dayInMonth(year, month) do
  begin
   cal[wDay]:=cal[wDay]+'  '+IntToStr(i); //IntToStr : convertit integer en String; à definir
   inc(wDay);
   if(wDay>6) then
    wDay :=0;
  end;
 
// Il ne reste plus qu'à afficher le calendrier
 for i:= 0 to 6 do
  writeln(semaine[i], ' :', cal[i]);
end;
 
{-------------------------------------------------------------}
 var
     a : integer;
     m, j : byte;
 
begin
 write('saisir le numéro du mois : ');
 readln(m);
 write('saisir l''anné : ');
 readln(a);
 write('saisir le jour correspandant au premier du mois tels que lundi =1 : ');
 readln(j);
 
 
 printCalendar(a, m, j);
 readln;
end.

[krachik]

Voilà exactement ce que je tentais d'expliquer avec mon code

Il lui reste juste à trouvé comment afficher le calendrier sans avoir besion d'une librairie externe, ni des formule pour trouver le libelé du jour de la semaine correspondant à une date donnée. Mais il peut toute fois y arriver en sachant qu'une semaine compte sept jour, et que les jours de la semaine se repete dans le mois tout les 7 jours.

Pour arriver à afficher le calendrier comme il le désire il lui suffit de trouver un trick lui permettant de parcourir les jours du mois et les distribués selon les jours de la semaine.

Juste une question , j'ai lu que t'as écrit que c'est incomplet, mais cette partie est complète?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 for i:=1 to dayInMonth(year, month) do
  begin
   cal[wDay]:=cal[wDay]+'  '+IntToStr(i); //IntToStr : convertit integer en String; à definir
   inc(wDay);
   if(wDay>6) then
    wDay :=0;
  end;
 
// Il ne reste plus qu'à afficher le calendrier
 for i:= 0 to 6 do
  writeln(semaine[i], ' :', cal[i]);

[droggo]

Gia,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
function isBissextile(year : integer) : boolean; //a completer
begin
 if (year mod 4)=0 then
  isBissextile:= true
 else
  isBissextile:=false;
end;

Ça a déjà été signalé, ce n'est pas complet (il y a le problème des multiples de 100 à prendre en compte.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function dayInMonth(year, month : integer) : byte;
 var tmp : byte;
begin
 if (month in [1,3,5,7,8,10,12]) then
  tmp := 30
 else if (month in [4,6,9,11]) then
  tmp:=31
 else if (month=2) then
  if (isBissextile(year)) then
   tmp:=29
  else
   tmp:=28;
 
 dayInMonth:=tmp;
end;

Et là, chapeau bas : totale inversion du nombre de jours par mois (janvier, mars ... à 30 jours ...).

Il ne suffit donc pas de compléter le code, mais de le corriger.

Pour le reste, il ne faut pas oublier mise en forme des données lors de l'affichage,sinon ça va donner un résultat esthétiquement bizarre.

[sterbik]

mes amis j'ai dit il faut utilisé les structures conditionnelles et itératives par ce que cet exercice est extrait du livre de la république tunisienne du chapitre LES STRUCTURES ITERATIVES qui est le dernier et qui contient juste le boucle [POUR] et j'ajoute qu'on a étudié LES STRUCTURES CONDITIONNELLES [SI]
en effet toute chose à part de ces deux chapitre je le connais pas et je veux la connaitre
merci à tout ce qui postuler des réponses pour m'aider

[diden138]

Bonsoir,
J'ai lu un peu vos réponses que je trouve aberrantes ils y a des algorithmes pour les calculs de date, ne pas utiliser les fonctions que j'ai cité voudra dire qu'il faudra tout simplement implémenter les algorithmes de calculs de date qui existent (et que vous trouverez sur le site DrMath).
D'après ce poste vous essayer de trouver de nouveaux algorithmes pour le calcul de date

Bonne soirée

Cordialement,