Eciture fonction et procedure en pascal
bild
Messages postés
60
Statut
Membre
-
bild Messages postés 60 Statut Membre -
bild Messages postés 60 Statut Membre -
Bonjour,
pour les fontion decalage j'ai cherche ceux -ci
<gras>a gauche
fonction decalageg(var nbbin: nbrebinaire):integer;
const N=10;
var nbbin:nbrebinaire
i:integer;
BEGIN
i:=N;
nbin[pos N]:=nbin[pos N-1];
nbin[pos 1]:=0;i;=i+1];
end;
end;
A DROITE
fonction decalD(var nbbin:nbrebinaire):integer;
N=10;
var
nbbin:nbrebinaire;
i:integer;
BEGIN
i:=1;
nbbin[pos 2]:=nbbin[pos 3];
nbbin[pos N ]:=0;
end;
end;
pour les fontion decalage j'ai cherche ceux -ci
<gras>a gauche
fonction decalageg(var nbbin: nbrebinaire):integer;
const N=10;
var nbbin:nbrebinaire
i:integer;
BEGIN
i:=N;
nbin[pos N]:=nbin[pos N-1];
nbin[pos 1]:=0;i;=i+1];
end;
end;
A DROITE
fonction decalD(var nbbin:nbrebinaire):integer;
N=10;
var
nbbin:nbrebinaire;
i:integer;
BEGIN
i:=1;
nbbin[pos 2]:=nbbin[pos 3];
nbbin[pos N ]:=0;
end;
end;
Configuration: Windows 2000 Internet Explorer 6.0
3 réponses
-
-
Ne pose pas deux fois la même question (réponse ici) surtout à 2 minutes d'intervalle !
-
