Exercice jour de la semaine et conjugaison

**WhiteTigerZ** · 29/09/2006, 13h45

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** · 29/09/2006, 16h04

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** · 29/09/2006, 17h23

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** · 30/09/2006, 08h36

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** · 01/10/2006, 09h56

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** · 01/10/2006, 10h57

Bonjour,

Envoyé par Wael42

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** · 01/10/2006, 12h42

Envoyé par Alcatîz

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

**ALT** · 02/10/2006, 10h33

Envoyé par Alcatîz

Bonjour,
Citation:
Wael42 a écrit :
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.

Tout à fait d'accord !
Je t'ai donné des pistes, il est hors de question que j'aille plus loin, sans un effort de ta part.
Si tu ne comprends pas ce que j'ai écrit, relis tes cours, puis demande-moi de préciser ce que tu n'as pas compris.
Mais l'apprentissage passe par les erreurs & leur correction. Si tu attends qu'on corrige à ta place, tu ne progresseras pas beaucoup. Par contre, si tu cherches toi-même & que tu trouves tout seul la solution, alors tes progrès seront plus rapides.
Donc relis tes cours, relis les différentes réponses, relis ton code, relis les exemples donnés par j.p.mignot & inspire-t-en. Regarde ce qu'il a proposé comme méthode, regarde comment tu peux l'adapter à ton exo, ainsi tu trouveras d'autres idées.
Au bout du compte, si tu as encore une question, nous y répondrons avec plaisir. Sinon, c'est que tu auras trouvé la solution à ton problème.

Bon courage

**WhiteTigerZ** · 02/10/2006, 21h00

Salut ,

j'ai 17 et j'ai pas que Pascal j'ai les mathematiques les physiques et pleins d'autres matieres qui sont very important.

Mais bon vous avez raison

.
See You

**ALT** · 03/10/2006, 17h06

Tu as 17 quoi ?

Mais bon vous avez raison

Tout à fait d'accord !

C'est en tous cas très bien de ta part de l'admettre.

Amuse-toi bien quand même.

**WhiteTigerZ** · 08/10/2006, 20h49

salut tout le monde,

je viens de faire le premier exercice et bien la faute que j'ai fait c'est que j'ai cru que la procedure delete est une fonction
c'est pour ça que le programme m'affiche une erreur
on prend un exemple "zzturbo" et on va effacer les 2 premieres caracteres "zz"

Code :

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

1
2
 
x:=delete(zzturbo,1,2);

est faux car delete est une procedure et non une fonction d'ou on ecrit

Code :

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

delete(zzturbo,1,2)

sans le x (pas d'affectation) ;

j'espere que vous avez compris voila la solution du premier exercice

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) ;
    delete(v,l-1,2) ; 
    writeln('nous ',v,'ons');
 
end.

pour la 2 eme exercice pas l'appel de le faire car nous etudions en classe juste les structures de données simples
{integer,real,boolean,char,string,array}
See You