Se connecter avec
S'enregistrer | Connectez-vous

problème prog. pascal

Dernière réponse : dans Programmation

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

Lassé par la pub ? Créez un compte

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
Lassé par la pub ? Créez un compte
Tom's guide dans le monde