Discussion :

[gwinyam]

Voilà, j'ai un problème avec une de mes fonctions sous pascal...
Cette fonction est censée prendre un entier, le convertir en chaine puis vérifier si le dernier caractère fait partie de la liste suivante:{ 0; 2; 4; 6; 8}.

En somme, cette fonction me permet de déterminer si l'entier est un multiple de deux ou non...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
function multipl2(a: integer): integer;
var b: string;
    c: integer;
  begin
    str(a,b);
    c:=length(b);
    delete(b,0,c);
    writeln(b);
    readln;
    if (b='0') or (b='2') or (b='4') or (b='6') or (b='8')
      then multipl2:=1
      else multipl2:=0;
  end;

Le problème est que cette fonction me retourne automatiquement 0...et je ne vois pas pourquoi...

A moins qu'il y ait une fonction de modulo, mais je n'en ai jamais entendu parler...

[Tuxico]

En somme, cette fonction me permet de déterminer si l'entier est un multiple de deux ou non...

pourquoi ne pas utiliser la fonction mod? (modulo = reste de la division entière)

[M.Dlb]

Et oui, il existe le modulo, regarde mod dans l'aide :

Code :

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

1
2
3
4
function multiple(a: integer): boolean;
begin
  multiple := (a mod 2 = 0);
end;

[gwinyam]

j'ai les boules là...

merci

[Eric Sigoillot]

Sinon, ton problème est simple et se situe au niveau de la fonction Delete. Tu demandes à supprimer les caractères de la chaîne à partir de l'indice 0 sur une longueur égale à la longueur de la chaîne.
Déjà, n'oublie pas que les chaînes commencent à l'indice 1.

Ensuite, n'hésite pas à prendre une feuille de papier pour tester. Prenons la chaîne S = 'ABCDEF'. Sa longueur vaut 6.

Code :

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

Delete(S, 1, Length(S)) = ''

Hé oui ! Tu supprimes toute la chaîne... Il faut commencer à 1 et ne supprimer que sur une longueur égale à la longueur de la chaîne moins 1.

Code :

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

Delete(S, 1, Length(S) - 1) = 'F'

Si on reprend ta fonction (même s'il y a plus simple, cf plus haut), ça pourait donner ça :

Code :

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

1
2
3
4
5
6
7
function IsMultiple2(const n: Integer): Boolean;
var
  S: string;
begin
  Str(n, S);
  IsMultiple2 := (S[Length(S)] in ['0', '2', '4', '6', '8']);
end;

Comme tu peux le voir, on peut faire simple C'est une bonne occasion d'apprendre à se servir des chaînes de caractères en tant que tableaux de caractères et d'apprendre à utiliser les ensembles, qui sont une notion aussi spécifique qu'intéressante du langage Pascal.

@++