Programmation en pascal
amar attila
-
zipe31 Messages postés 36402 Date d'inscription Statut Contributeur Dernière intervention -
zipe31 Messages postés 36402 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
voila un exercice en pascal :algorithme permettant d'éliminer les éléments nuls dans un vecteur Vn en les transformant vers la gauche
ex: 5002301 --> 5231000
ou est l'erreur? :
program liste;
uses wincrt;
const n=7;
type vec_t=array[1..n] of integer;
var v:vec_t; K,J,I:1..n+1; S:integer;
begin
I:=1; S:=0;
while I <= n-S do begin
for I:=1 to n do read(v[I]);
if v[I]=0 then begin
for k:=I to n-1 do begin
v[K]:=v[K+1];
v[n-S]:=0;
S:=S+1;
end;
end;
if v[I]<>0 then I:=I+1;
end;
for I:=1 to n do write(v[I]);
END.
voila un exercice en pascal :algorithme permettant d'éliminer les éléments nuls dans un vecteur Vn en les transformant vers la gauche
ex: 5002301 --> 5231000
ou est l'erreur? :
program liste;
uses wincrt;
const n=7;
type vec_t=array[1..n] of integer;
var v:vec_t; K,J,I:1..n+1; S:integer;
begin
I:=1; S:=0;
while I <= n-S do begin
for I:=1 to n do read(v[I]);
if v[I]=0 then begin
for k:=I to n-1 do begin
v[K]:=v[K+1];
v[n-S]:=0;
S:=S+1;
end;
end;
if v[I]<>0 then I:=I+1;
end;
for I:=1 to n do write(v[I]);
END.
A voir également:
- Programmation en pascal
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Application de programmation - Guide
- Mettre en veille un programme - Guide
