Déterminer si un entier est un multiple de 2

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:

---

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...

Citation:

---

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) 8O

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

Code:

---

1 2 3 4

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

---

j'ai les boules là...:mrgreen:

merci8-)

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:

---

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:

---

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:

---

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.

@++