Discussion :

[WhiteTigerZ]

Salut tout le monde,
j'ai un problème avec 2 exercices.

Voilà l'énoncé du premier

Ecrire un programme qui permet de saisir le jour de la semaine puis afficher le lendemain

Voilà l'essai que j'ai fait

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
program exercice ;
 
uses wincrt ;
 
var
    semaine:(lundi,mardi,mercredi,jeudi,vendredi,samedi,dimanche);
    a,b : string ;
 
begin
    writeln('ecrire un jour de la semaine');
    readln(a);
    writeln('le lendemain de ',a,' est: ',succ(a)); { l'erreur:ordinal expression expected }
 
end.

Pour le 2 ème exercice, il faut utiliser les fonction length et delete. Voilà l'énoncé de l'exercice

Saisir un verbe de premier groupe puis le conjuger et l'afficher avec le 1er personne du pluriel au present

Voilà l'essai

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
program exercice1 ;
 
uses wincrt ;
 
var
l: integer ;
v,vs : string ;    
 
begin
    writeln('ecrire un verbe de 1er groupe');
    readln(v);
    l:=length(v) ;
    vs:=delete(v,l-1,2) ; 
    writeln('nous',v,'ons');
 
end.

Comme vous voyez je ne sais pas comment resoudre les 2 exercices malgré les deux essais que j'ai fait - c'est ça quand on est newbie

Merci

[ALT]

Pour le premier, c'est normal : tu as un énuméré & tu saisis une chaîne de caractères.
Les deux types sont incompatibles, puisque l'énuméré est un scalaire, la chaîne non.
Si tu veux faire une correspondance entre les deux, tu peux passer par un tableau (indexé par ton énuméré) ou une clause case.

Pour le deuxième, c'est d'abord un pb de grammaire française avant que d'être un pb de codage (en gros, ne confonds pas futur & présent).

Bon amusement

[WhiteTigerZ]

Salut est ce que tu peux corriger le code !! commça j'apprend
ou tu m'eclaire un peu car j'ai rien compris de tout ce que tu dis
Merci

[j.p.mignot]

1er code possible

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
 
uses wincrt ;
 
// si UpCase n'existe pas dans WinCrt
function Upcase ( c : char ) : char;
   begin
   if c in ['a'..'z'] then
      dec(c,32);
   Upcase :=c;
   end;
// si LowCase n'existe pas dans WinCrt
function Lowcase ( c : char ) : char;
   begin
   if c in ['A'..'Z'] then
      inc(c,32);
   Lowcase :=c;
   end;
// Si Trim n'existe pas dans WinCrt
function Trim ( s : string ) : string;
var i : integer;
   begin
   if s <>  '' then
      begin
      i:=0;
         repeat inc(i) until (s[i] <> ' ') or ( i=length(s));
      if i > 1 then
         delete(s,1,i-1)
      end;
   if s <>  '' then
      begin
      i:=length(s)+1;
         repeat dec(i) until (s[i] <> ' ') or ( i = 1) ;
      if i < length(s) then
         delete(s,i+1,length(s)-i)
      end;
   Trim:=s;
   end;
 
const Days : array[0..6] of string = ('Lundi','Mardi','Mercredi','Jeudi','Vendredi','Samedi','Dimanche');
var a : string;  i : integer;
 
    begin
    write('écrire un jour de la semaine   :  ');
    readln(a);
    a:=Trim(a);  //  suppression des blanc à gauche et a droite
    for i:= 1 to length(a) do if i=1 then
       a[i]:=Upcase(a[i])    // 1er lettre majuscule
    else
       a[i]:=Lowcase(a[i]);  // les autre minuscules
    i:=-1;
        repeat
        inc(i)
        until ( i=6) or ( a = Days[i]);
    if a=Days[i] then
       writeln('le lendemain de ' + Days[i] + ' est: ' + Days[(i+1) mod 7])
    else
       Writeln('Le jour entré n''a pas été reconnu!');
   end.

2eme prog

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
 
const terminaisons : array[0..5] of string[3] = ('e','es','e','ons','ez',ent');
const a : array[0..5] of string[5] = ('je ', 'tu ', 'il ', 'nous ' , 'vous ', ils ');
var i : integer, s : string;
    begin
    write('écrire le verbe du 1er groupe à l'infinitif   :  ');
    readln(s);
    s:=Trim(s);   // voir 1er prog 
    for i:=1 to length(s) do s[i]:=LowCase(s[i]); // voir 1er prog
    if copy(s,length(s)-1,2) <> 'er' then
       writeln('Ce n''est pas un infinitif du 1er groupe !!!)
   else
      begin
      delete(s,length(s)-1,2);  // supprimer 'er'
      for i:=0 to 5 do writeln(a[i] + s + Terminaisons[i]);
      end;
   end.

[WhiteTigerZ]

salut j.p.mignot ,
Merci pour votre réponse mais le code des 2 exercices est trés long
est ce que tu peux utiliser les structures de données simple pour les résoudre
PS :
pour le 2 eme exercice conjugaison on conjuge le verbe du premier groupe avec nous seulement !!

lis l'ennoncé que j'ai donné au-dessus

en plus il marche pas ton code . Je veux juste que tu jettes un coup d'oeil sur les 2 codes que j'ai fait et tu essayes de les modifier pour que ca fonctionne.
n'oublie pas que il faut les corriger en utilisant les structures de donnée simple tu comprends ?
Merci

[Alcatîz]

Bonjour,

en plus il marche pas ton code . Je veux juste que tu jettes un coup d'oeil sur les 2 codes et tu essayes de les modifier pour que ca fonctionne.
n'oublie pas que il faut les corriger en utilisant les structures de donnée simple tu comprends ?
Merci

N'oublie pas de donner ton adresse pour que j.p.mignot vienne faire tes exercices à domicile.
Sérieusement, si tu veux apprendre quelque chose, essaye de trouver les modifications adéquates par toi-même.

[WhiteTigerZ]

Bonjour,

N'oublie pas de donner ton adresse pour que j.p.mignot vienne faire tes exercices à domicile.
Sérieusement, si tu veux apprendre quelque chose, essaye de trouver les modifications adéquates par toi-même.

lol , je suis dans un forum ou tout le monde s'aide et participe !! pour les deux exercices que j'ai fait il faut juste utiliser les structures de données simple et en plus j'ai fait mes exercices en utilisant les structures de données simple mais il me cite qu'il y'a une erreur si tu regardes bien ce que j'ai ecrit la haut tu vas remarqué que j'ai cité les erreurs de compilation
je veux juste savoir comment corriger les erreurs de mes codes et non me donner le code directement resolu
c'est pas mon probléme si tu as pas compris ce que je voulais dire pour j.p.mignot je l'ai remercié et je le remercie encore pour son aide mais je veux juste qu'il jette un coup d'oeil sur le code que j'ai fait pour qu'il puisse me citer les erreurs que j'ai fait
See You