Votre question

problème prog. pascal

Tags :
  • Programme
  • Programmation
Dernière réponse : dans Programmation
Anonyme
25 Novembre 2008 20:09:01

Bonjour à tous !!
pouvez vous m'aider à trouver la faute que j'ai commise dans ce programme qui sert a afficher les occurences des voyelles dans une chaine de caractères donnée

le voici :

program occurence_j;
uses wincrt;
var
ch : string;
i : integer;

procedure saisie (ch: string);
begin
repeat
writeln('donnez une chaine de caractères');
readln(ch);
until ch<>'';
end;

function occurence (ch : string):string;
var
occ : string;
begin
for i := 1 to length(ch) do
begin
if (ch='a') or (ch='o') or (ch='u') or (ch='i') or (ch='e') or (ch='y') then
begin
occ := occ + ch + ' ';
end;
end;
occurence := occ;
end;

begin
saisie(ch);
writeln(occurence(ch));
end.


merci pour votre aide :) 

Autres pages sur : probleme prog pascal

a b L Programmation
25 Novembre 2008 20:47:03

Quel est ton problème ?
Anonyme
25 Novembre 2008 20:57:08

l'execution est incorrecte :( 
Contenus similaires
a b L Programmation
26 Novembre 2008 19:24:01

Un exemple ?
a b L Programmation
27 Novembre 2008 20:34:28

Bien vu chrisz. :) 
Anonyme
3 Mars 2009 18:25:41

pr procedure qui calcul l nbre d'ocurence de voyelle
fonction calcul_occurence(ch:chaine):entier
pour i de 1 a long(ch) faire
c:=majus(ch)
si c dans ["A","U","E", "Y", "I", "O" ] alors
calcul_occurence:= calcul_ocurence+1
fin si
fin pour
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS