Fonction str et val en pascal

Fermé

oh9007 Messages postés 41 Date d'inscription mardi 10 février 2009 Statut Membre Dernière intervention 15 septembre 2010 - 16 févr. 2009 à 08:21
oh9007 - 25 févr. 2009 à 21:01

Bonjour,Aidez moi svp !!

je trouve pas l'erreur !!!(val)!
svp comment utiliser la fonction val ?
program exe;
uses wincrt;
var ch,chi,chp:string; i,nb,x:integer;
begin
write('donner un nombre entier svp :');
read(nb);
str (nb,ch);
for i:=1 to length(ch) do
begin
x:=val(ch[i]);
if x mod 2 = 0 do
chp:=chp+ch[i] else
chi:=chi+ch[i];
end;
writeln('les nombre paires ',chp);
writeln('les nombres impaires ',chi);
readln;readln;
end.

A voir également:

Fonction str et val en pascal
Fonction si et - Guide
Turbo pascal download - Télécharger - Édition & Programmation
My pascal - Télécharger - Édition & Programmation
Fonction moyenne excel - Guide
Fonction somme excel - Guide

1 réponse

Réponse 1 / 1

KX Messages postés 16752 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 31 août 2024 3 019
24 févr. 2009 à 16:06

Tu ne peux pas écrire x:=val(ch[i]); la bonne syntaxe est en fait val(ch[i],x);
Après tu auras également une erreur avec le if, quand tu écris do en fait c'est un then qu'il faut...
Sinon ton programme marche...

Petite astuce au passage, pour tester si un nombre est impair il existe la fonction odd :

if odd(x) then chi:=chi+ch[i]+' '
          else chp:=chp+ch[i]+' ';

oh9007
25 févr. 2009 à 21:01

merci mais la bonne repense est :

program exe;
uses wincrt;
var ch,chi,chp:string; i,nb,x:integer;
begin
write(chr(7));{BIP!}
write(#7);{Re-BIP!}
write('donner un nombre entier svp :');
read(nb);
str (nb,ch);
chp:=''; chi:='';
for i:=1 to length(ch) do
begin
val(ch[i],nb,x);
if nb mod 2 = 0 then
chp:=chp+ch[i] else
chi:=chi+ch[i];
end;
writeln('les nombre paires ',chp);
writeln('les nombres impaires ',chi);
write(chr(7));{BIP!}
write(#7);{Re-BIP!}
write(chr(7));{BIP!}
write(#7);{Re-BIP!}
readln;readln;
end.

Discussions similaires

je veut créer des codes

Remplir une cellule (texte) en fonction d'une autre (texte).

Message "cette fonction n'est pas disponible actuellement"

Excel:récupérer le contenu d'une cellule en fonction d'une autre

La fonction FILTRE n'est plus reconnue