Petit soucis avec les fonctions [Résolu]
arsenik360
- Messages postés
- 13
- Date d'inscription
- jeudi 16 décembre 2010
- Statut
- Membre
- Dernière intervention
- 24 mai 2011
A voir également:
- Petit soucis avec les fonctions
- Un petit receuil de mes fonctions - Codes sources - PHP (Divers)
- Un petit away tout simple fonctionnant sur plusiquers serveurs à la fois - Codes sources - IRC (AddOns)
- Petit souci avec la fonction BETWEEN ✓ - Forum - PHP
- Petit probleme avec une fonction ✓ - Forum - Visual Basic
- Visual Basic / VB.NET : Petit exemple de fonction recursive - CodeS SourceS - Guide
20/26 réponses
Meilleure réponse
- Messages postés
- 265
- Date d'inscription
- dimanche 7 décembre 2003
- Statut
- Membre
- Dernière intervention
- 11 novembre 2016
Bonjour
le Intotstr permet de convertir un chiffre en chaine de caractère
cela peut être utile pour afficher le résultat
En l'occurrence ici le WRITE ou WRITELN fait la conversion tout seul
En fait l'erreur de compilation vient du fait qu'il y a une grosse erreur dans le code suivant
Vous appeler la fonction nblettre avec en paramètre result qui est un integer alors
que la fonction attend deux variable une type string et l'autre de type char
une autre petite erreur dans la fonction
ne marchera pas à si lettre est minuscule
donc il faudrait remplacer par
de plus dans la fonction il y a une ligne qui ne sert à rien (la première)
Donc voici le code qui fonctionne
le Intotstr permet de convertir un chiffre en chaine de caractère
cela peut être utile pour afficher le résultat
En l'occurrence ici le WRITE ou WRITELN fait la conversion tout seul
En fait l'erreur de compilation vient du fait qu'il y a une grosse erreur dans le code suivant
writeln('Il y a : ', nblettre(result), 'dans la phrase :"', phrase, '".');
Vous appeler la fonction nblettre avec en paramètre result qui est un integer alors
que la fonction attend deux variable une type string et l'autre de type char
une autre petite erreur dans la fonction
if (upcase(phrase[x])=lettre)
ne marchera pas à si lettre est minuscule
donc il faudrait remplacer par
if (upcase(phrase[x])=upcase(lettre))
de plus dans la fonction il y a une ligne qui ne sert à rien (la première)
nblettre:=result; nblettre:=nbchar;
Donc voici le code qui fonctionne
var
phrase:string;
result:integer;
lettre:char;
nbchar:integer;
function nblettre ( phrase : string; lettre :char ) : integer;
var
x:integer;
begin
nbchar := 0;
result := 0;
for x:=1 to length(phrase) do
begin
if (upcase(phrase[x])>='A') and (upcase(phrase[x])<='Z')
then inc(result);
if (upcase(phrase[x])=upcase(lettre))
then inc(nbchar);
end;
end;
begin
Write('Entrez une phrase : ');
Readln(phrase);
Write('Entrez une lettre : ');
Readln(lettre);
writeln('Il y a : ', nblettre(phrase,lettre), ' lettre dans la phrase :"', phrase, '".');
writeln('Dans cette phrase, il y a ',nbchar , ' fois la lettre "',lettre,'".');
readln;
end.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
195 internautes nous ont dit merci ce mois-ci
- Messages postés
- 1270
- Date d'inscription
- samedi 14 août 2004
- Statut
- Membre
- Dernière intervention
- 5 avril 2012
Parce que si c'est le code de la page précedente que tu essayes de faire fonctionner, il me semble bien qu'il manque le code ci-dessous :
Cordialement.[hr]"L'imagination est plus importante que le savoir." Albert Einstein
{$APPTYPE CONSOLE}
Cordialement.[hr]"L'imagination est plus importante que le savoir." Albert Einstein
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
195 internautes nous ont dit merci ce mois-ci
- Messages postés
- 1649
- Date d'inscription
- samedi 10 juillet 2004
- Statut
- Membre
- Dernière intervention
- 25 juillet 2014
dans
writeln('Il y a : ', nblettre(result), 'dans la phrase :"', phrase, '".');
writeln('Dans cette phrase, il y a ', nblettre(nbchar), 'la lettre "',
mettre:
writeln('Il y a : ',inttostr( nblettre(result)), 'dans la phrase :"', phrase, '".');
writeln('Dans cette phrase, il y a ', inttostr(nblettre(nbchar)), 'la lettre "',
lettre,'".');
writeln('Il y a : ', nblettre(result), 'dans la phrase :"', phrase, '".');
writeln('Dans cette phrase, il y a ', nblettre(nbchar), 'la lettre "',
mettre:
writeln('Il y a : ',inttostr( nblettre(result)), 'dans la phrase :"', phrase, '".');
writeln('Dans cette phrase, il y a ', inttostr(nblettre(nbchar)), 'la lettre "',
lettre,'".');
- Messages postés
- 13
- Date d'inscription
- jeudi 16 décembre 2010
- Statut
- Membre
- Dernière intervention
- 24 mai 2011
Tout d'abord, merci pour ta réponse :)
inttostr ? A quoi me sert-elle ?
J'ai revu un peur, et j'avais changé :
writeln('Il y a : ', nblettre(result), 'dans la phrase :"', phrase, '".');
writeln('Dans cette phrase, il y a ', nblettre(nbchar), 'la lettre
en
writeln('Il y a : ', nblettre(result, lettre), 'dans la phrase :"', phrase, '".');
writeln('Dans cette phrase, il y a ', nblettre(phrase, nbchar), 'la lettre "',
Car dans ma fonction j''envois deux données. Ca me semble mieux, mais bon, ca ne compile tjrs pas...
Une fonction peut-elle sortir plusieurs résultat ? Une procédure ne serait-elle pas plus adapter ?
Une derniere chose, est-ce-que je peux afficher les resultats de ma fonction comme cela ? :)
Dsl de posé autant de question :D ^^
inttostr ? A quoi me sert-elle ?
J'ai revu un peur, et j'avais changé :
writeln('Il y a : ', nblettre(result), 'dans la phrase :"', phrase, '".');
writeln('Dans cette phrase, il y a ', nblettre(nbchar), 'la lettre
en
writeln('Il y a : ', nblettre(result, lettre), 'dans la phrase :"', phrase, '".');
writeln('Dans cette phrase, il y a ', nblettre(phrase, nbchar), 'la lettre "',
Car dans ma fonction j''envois deux données. Ca me semble mieux, mais bon, ca ne compile tjrs pas...
Une fonction peut-elle sortir plusieurs résultat ? Une procédure ne serait-elle pas plus adapter ?
Une derniere chose, est-ce-que je peux afficher les resultats de ma fonction comme cela ? :)
Dsl de posé autant de question :D ^^
- Messages postés
- 675
- Date d'inscription
- jeudi 17 avril 2008
- Statut
- Membre
- Dernière intervention
- 19 février 2019
Essaye comme cela
Il faudra peut être rajouter un uses pour l'utilisation de inttostr qui comme son nom l'indique transforme un integer en string.
(bien que le writeln accepte peu être directement les integer, (j'utilise rarement (voir jamais) ce genre de programmation)
Dubois77
program fonction_nb_lettre_phrase;
var
phrase:string;
result:integer;
lettre:char;
nbchar:integer;
nLettres:integer;
Procedure nblettre ( phrase : string; lettre :char );
var
x:integer;
begin
nblettres:=0;
nbchar:=0;
for x:=1 to length(phrase) do
begin
if (upcase(phrase[x])>='A') and (upcase(phrase[x])<='Z')
then inc(nblettres);
if (upcase(phrase[x])=lettre)
then inc(nbchar);
end;
end;
begin
Write('Entrez une phrase : ');
Readln(phrase);
Write('Entrez une lettre : ');
Readln(lettre);
nblettre(phrase,lettre);
writeln('Il y a : ', inttostr(nblettres), 'dans la phrase :"', phrase, '".');
writeln('Dans cette phrase, il y a ', inttostr(nbchar), ' lettre "',
lettre,'".');
readln;
end.
Il faudra peut être rajouter un uses pour l'utilisation de inttostr qui comme son nom l'indique transforme un integer en string.
(bien que le writeln accepte peu être directement les integer, (j'utilise rarement (voir jamais) ce genre de programmation)
Dubois77
- Messages postés
- 13
- Date d'inscription
- jeudi 16 décembre 2010
- Statut
- Membre
- Dernière intervention
- 24 mai 2011
- Messages postés
- 13
- Date d'inscription
- jeudi 16 décembre 2010
- Statut
- Membre
- Dernière intervention
- 24 mai 2011
- Messages postés
- 13
- Date d'inscription
- jeudi 16 décembre 2010
- Statut
- Membre
- Dernière intervention
- 24 mai 2011
- Messages postés
- 13
- Date d'inscription
- jeudi 16 décembre 2010
- Statut
- Membre
- Dernière intervention
- 24 mai 2011
- Messages postés
- 13
- Date d'inscription
- jeudi 16 décembre 2010
- Statut
- Membre
- Dernière intervention
- 24 mai 2011
- Messages postés
- 13
- Date d'inscription
- jeudi 16 décembre 2010
- Statut
- Membre
- Dernière intervention
- 24 mai 2011
- Messages postés
- 1270
- Date d'inscription
- samedi 14 août 2004
- Statut
- Membre
- Dernière intervention
- 5 avril 2012
- Messages postés
- 13
- Date d'inscription
- jeudi 16 décembre 2010
- Statut
- Membre
- Dernière intervention
- 24 mai 2011
- Messages postés
- 1270
- Date d'inscription
- samedi 14 août 2004
- Statut
- Membre
- Dernière intervention
- 5 avril 2012
- Messages postés
- 13
- Date d'inscription
- jeudi 16 décembre 2010
- Statut
- Membre
- Dernière intervention
- 24 mai 2011