Discussion :

[matheuse]

Salut à tous,
S'il vous plait j'ai besoin d'aide dans un exercice pascal...
J'ai essayé de le résoudre toute seule..J'ai fait l'exécution ,ça a marché mais ça ne correspond pas tout à fait à l'exercice..
Bon voilà l'énoncé:
On appelle poids d'un mot,la somme des produits de la position de chaque voyelle contenue dans le mot par son rang dans l'alphabet français.Une lettre a le même rang qu'elle soit écrite en majuscule ou en miniscule.
Ecrire un prog en pascal qui calcule et affiche le poids d'un mot donné...

Voilà ce que j'ai eu comme idée et ce que j'ai pu faire..
Mais j'aimerais bien que vous m'indiquiez la position de l'erreur sachant que je suis encore débutante...

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
 
program poids;
uses wincrt;
var mot:string;
i,poi,rana,rano,ranu,rani,rane,rany,posa,posi,pose,poso,posu,posy :integer;
begin
writeln('entrez votre mot');
readln (mot);
 
 
posa:=pos('A',mot);poso:=pos('O',mot);posi:=pos('I',mot);posu:=pos('U',mot) ;pose:=pos('E',mot);posy:=pos('Y',mot);
 
 
for i:=1 to length(mot) do
begin
case upcase (mot[i]) of
'A': rana:=1;
'E': rane:=5;
'U': ranu:=21;
'I': rani:=9;
'O': rano:=15;
'Y': rany:=25;
end;
case upcase (mot[i]) of
'A': posa:=posa+1;
'E': pose:=pose+1;
'U': posu:=posu+1;
'I': posi:=posi+1;
'O': poso:=poso+1;
'Y': posy:=posy+1;
end;
end;
poi:=(rana*posa)+(rani*posi)+(ranu*posu)+(rano*poso)+(rane*pose)+(rany*posy) ;
writeln(poi);
 
end.

Merci d'avance

[Graffito]

Bonjour,

2 problemes :
- les variables posX et ranX ne sont pas initialisées à 0 (ou il manque le else dans le case)
- les posX ne doivent pas être incrémentées et devraient être égales à i.

Un code plus simple pourrait ressembler à ceci :

Code :

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

1
2
3
4
5
6
7
8
poi:=0 ;
for i:=1 to length(mot) do 
  case upcase (mot[i]) of
  ...
  'E': poi:=poi+ 5*i ;
  ...
  end ;
writeln(poi) ;

[matheuse]

Voilà..
Je l'ai corrigé et ça march super bien maintenant
Merci
voilà

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
program poids;
uses wincrt;
var   mot:string;
      i,poi,rana,rano,ranu,rani,rane,rany,posa,posi,pose,poso,posu,posy :integer;
begin
writeln('entrez votre mot');
readln (mot);
posa:=pos('A',mot);poso:=pos('O',mot);posi:=pos('I',mot);posu:=pos('U',mot) ;pose:=pos('E',mot);posy:=pos('Y',mot);
 
 
for i:=1 to length(mot) do
begin
case upcase (mot[i]) of
'A':  rana:=1;
'E':  rane:=5;
'U':  ranu:=21;
'I':  rani:=9;
'O':  rano:=15;
'Y':  rany:=25;
end;
case upcase (mot[i]) of
'A':  posa:=posa+i;
'E':  pose:=pose+i;
'U':  posu:=posu+i;
'I':  posi:=posi+i;
'O':  poso:=poso+i;
'Y':  posy:=posy+i;
end;
end;
poi:=(rana*posa)+(rani*posi)+(ranu*posu)+(rano*poso)+(rane*pose)+(rany*posy) ;
writeln(poi);
 
end.