Discussion :

[walidinho]

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
program occurence;
 uses wincrt;
  var
   ch:string;
 
 
procedure saisie(var ch:string);
 begin
  repeat
   writeln('donner une chaine');
    readln(ch);
     until(ch<>'');
      end;
 
 
 
function frequence(ch:string;v:char):integer;
 var
  i,freq:integer;
   begin
    freq:=0;
     for i:=1 to length(ch)do
      if upcase(ch[i]=v)then
       freq:=freq+1;
        frequence:=freq;
         end;
 
 
 
begin
 saisie(ch);
  if frequence(ch,'a')<>0 then
   writeln('l"occ de a est,'frequence(ch,'a'));
    if frequence(ch,'e')<>0 then
     writeln('l"occ de e est,'frequence(ch,'e'));
      if frequence(ch,'o')<>0 then
       writeln('l"occ de o est,'frequence(ch,'o'));
        if frequence(ch,'u')<>0 then
         writeln('l"occ de u est,'frequence(ch,'u'));
          if frequence(ch,'i')<>0 then
           writeln('l"occ de i est,'frequence(ch,'i'));
            if frequence(ch,'y')<>0 then
             writeln('l"occ de y est,'frequence(ch,'y'));
              end.
 
/////////////////////////////////////////////////

il me dit tjrs il ya un prob
error 106

[darrylsite]

Salut,
Merci de penser à mettre la balise code.

writeln('l"occ de o est,'frequence(ch,'o'));

devient

Code :

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

1
2
writeln('l"occ de o est ',frequence(ch,'o'));

[walidinho]

Salut,
Merci de penser à mettre la balise code.

devient

Code :

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

1
2
writeln('l"occ de o est ',frequence(ch,'o'));

merci bq
aussi bien cette faute
if upcase(ch[i]=v)then
---------->
if upcase (ch[i])=v

[droggo]

Bie,

Au passage, soigne la présentation, en faisant une indentation correcte.

Par exemple (à partir de ton programme brut, c'est à dire non corrigé) :

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
program occurence;
 
uses wincrt;
 
var
  ch: string;
 
procedure saisie(var ch: string);
begin
  repeat
    Writeln('donner une chaine');
    Readln(ch);
  until (ch <> '');
end;
 
function frequence(ch: string; v: Char): Integer;
var
  i, freq: Integer;
begin
  freq := 0;
  for i := 1 to Length(ch) do
    if UpCase(ch[i] = v) then
      freq := freq + 1;
  frequence := freq;
end;
 
begin
  saisie(ch);
  if frequence(ch, 'a') <> 0 then
    Writeln('l"occ de a est,'frequence(ch, 'a'));
  if frequence(ch, 'e') <> 0 then
    Writeln('l"occ de e est,'frequence(ch, 'e'));
  if frequence(ch, 'o') <> 0 then
    Writeln('l"occ de o est,'frequence(ch, 'o'));
  if frequence(ch, 'u') <> 0 then
    Writeln('l"occ de u est,'frequence(ch, 'u'));
  if frequence(ch, 'i') <> 0 then
    Writeln('l"occ de i est,'frequence(ch, 'i'));
  if frequence(ch, 'y') <> 0 then
    Writeln('l"occ de y est,'frequence(ch, 'y'));
end.