PROGRAMME PASCAL
Fermé
AMEDIMELE
-
21 mai 2005 à 14:38
sam3000 Messages postés 1225 Date d'inscription mercredi 22 décembre 2004 Statut Membre Dernière intervention 13 juin 2005 - 21 mai 2005 à 18:17
sam3000 Messages postés 1225 Date d'inscription mercredi 22 décembre 2004 Statut Membre Dernière intervention 13 juin 2005 - 21 mai 2005 à 18:17
A voir également:
- PROGRAMME PASCAL
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Programme demarrage windows 10 - Guide
- Désinstaller programme windows 10 - Guide
7 réponses
sam3000
Messages postés
1225
Date d'inscription
mercredi 22 décembre 2004
Statut
Membre
Dernière intervention
13 juin 2005
144
21 mai 2005 à 15:53
21 mai 2005 à 15:53
voila, j'espere que c'est ça:
si t'as d'autres questions n'hesite pas
(moi je rentre à la maison maintenant, donc à demain)
PROGRAM JOSEPH; CONST N=8; S=1; VAR P:ARRAY[1..N] OF INTEGER; I,J,K,M,S1,W:INTEGER; BEGIN M:=4; S1:=S; FOR I:= 1 TO N DO P[I]:=I; FOR I:=N DOWNTO 2 DO BEGIN S1:= I-2; IF S1=0 THEN S1:=I; W:=P[S1]; FOR J:=S1 TO I-1 DO P[J]:=P[J+1]; P[I]:=W; END; WRITELN('LES FRERES DE JOSEPH LE VISITERONS DANS L''ORDRE:'); FOR I:=N DOWNTO 1 DO BEGIN WRITE(P[I]:4); IF (I MOD 3) =0 THEN WRITELN; END END.
si t'as d'autres questions n'hesite pas
(moi je rentre à la maison maintenant, donc à demain)
sam3000
Messages postés
1225
Date d'inscription
mercredi 22 décembre 2004
Statut
Membre
Dernière intervention
13 juin 2005
144
21 mai 2005 à 14:48
21 mai 2005 à 14:48
s'il te plait, s'il te plait, s'il te plait, ecrit en miniscules!
c'est juste des suppositions
si tu as un enoncé complet alors il faudrais nous le donner!!
PROGRAM JOSEPH; CONST N=8; S=1; VAR P:ARRAY[1..N] OF INTEGER; I,J,K,M,S1,W:INTEGER; BEGIN M:=4; S1=S; FOR I:= 1 TO N DO readln(P[I]); FOR I:=N DOWNTO 2 DO BEGIN S1:= I; IF S1=0 THEN *** W:=P[S1]; FOR J:=S1 TO N DO P[J]:=P[J+1]; P[I]:=W; END; WRITELN('LES FRERES DE JOSEPH LE VISITERONS DANS L''ORDRE:'); FOR I:= N DONWTO 1 DO BEGIN WRITE(P[I]:4); IF (I MOD 3) =0 THEN WRITELN; END END.
c'est juste des suppositions
si tu as un enoncé complet alors il faudrais nous le donner!!
au fait la suite dit que:
1)stocker les numeros 1 à n des freres dans une table p
2)si le 1eme quitte la table, à la place p[i] s'assoie l'element de i+1 et les suivants décalent d'une place.
3)la 2eme étape se repete jusqu'à ce qu'il ne reste plus qu'un seul frere.
merci
1)stocker les numeros 1 à n des freres dans une table p
2)si le 1eme quitte la table, à la place p[i] s'assoie l'element de i+1 et les suivants décalent d'une place.
3)la 2eme étape se repete jusqu'à ce qu'il ne reste plus qu'un seul frere.
merci
sam3000
Messages postés
1225
Date d'inscription
mercredi 22 décembre 2004
Statut
Membre
Dernière intervention
13 juin 2005
144
21 mai 2005 à 15:15
21 mai 2005 à 15:15
tu vois, là on as des erreurs dans ce que j'ai mis!
je corrige:
je sais il me reste 2 lignes, je reflechis encore
S1:= ***;
IF S1=0 THEN ***
je corrige:
PROGRAM JOSEPH; CONST N=8; S=1; VAR P:ARRAY[1..N] OF INTEGER; I,J,K,M,S1,W:INTEGER; BEGIN M:=4; S1=S; FOR I:= 1 TO N DO P[I]=I; FOR I:=N DOWNTO 2 DO BEGIN S1:= ***; IF S1=0 THEN *** W:=P[S1]; FOR J:=S1 TO N DO P[J]:=P[J+1]; P[I]:=W; END; WRITELN('LES FRERES DE JOSEPH LE VISITERONS DANS L''ORDRE:'); FOR I:= N DONWTO 1 DO BEGIN WRITE(P[I]:4); IF (I MOD 3) =0 THEN WRITELN; END END.
je sais il me reste 2 lignes, je reflechis encore
S1:= ***;
IF S1=0 THEN ***
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
sam3000
Messages postés
1225
Date d'inscription
mercredi 22 décembre 2004
Statut
Membre
Dernière intervention
13 juin 2005
144
21 mai 2005 à 18:17
21 mai 2005 à 18:17
:-( c'est qui samuel?
"sam" c'est pour "Sami"
mais de rien (je suppose que tu lire pas cette remarque) :(
"sam" c'est pour "Sami"
mais de rien (je suppose que tu lire pas cette remarque) :(