Fonction str et val en pascal [Fermé]

Signaler
-
 KLM -
Bonjour,
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.

2 réponses

val ne sagit pas d'une foction c'est une procedure qui ne peut pas etre affecter a une variable.val va prendre 3 paramtre val(ch,n,e)
exp:val('5',n,e) vaut n= 5 et e vaut 0 car il nexiste pas une erreur
exp: val('jj5',n,e) vaut n= vide e vaut 1 car il existe un erreur au premeir position (j) ne sagit pas d'un entier
3
Merci

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez Comment Ça Marche

CCM 65492 internautes nous ont dit merci ce mois-ci

Merci beaucoup, j'avais du mal a comprendre cette procédure
Si tu uliises cette structure, val fonctionne très bien

Val(Chaine : String, Nombre : Real, Code : Integer);