EXERCICE pascal
Fermé
x factor
-
Utilisateur anonyme -
Utilisateur anonyme -
EXERCICE PASCAL
Program inconnu;
USES CRT ;
CONST N=6 ;
VAR vect : ARRAY[1..N+1] OF INTEGER ;
VAR i, x, p : INTEGER ;
BEGIN
CLRSCR;
FOR i :=1 TO N DO
BEGIN
WRITELN('introduire l’élément', i);
READLN(vect[i]);
END;
WRITELN('introduire un nombre quelconque ');
READLN(x);
WRITELN('introduire un nombre inférieur à ' ,N);
READLN(p);
FOR i :=n DOWNTO p DO
BEGIN
vect[i+1]:= vect[i];
END;
Vect[p]:= x ;
FOR i :=1 TO N+1 DO
BEGIN
WRITELN(vect[i]);
END;
Readkey
End.
Saisir le programme ci-dessus et le dérouler avec les données suivantes
P=4
X=-12
N=6
1 2 5 -3 6
Donnez le résultat et dites ce qu’il fait?
Program inconnu;
USES CRT ;
CONST N=6 ;
VAR vect : ARRAY[1..N+1] OF INTEGER ;
VAR i, x, p : INTEGER ;
BEGIN
CLRSCR;
FOR i :=1 TO N DO
BEGIN
WRITELN('introduire l’élément', i);
READLN(vect[i]);
END;
WRITELN('introduire un nombre quelconque ');
READLN(x);
WRITELN('introduire un nombre inférieur à ' ,N);
READLN(p);
FOR i :=n DOWNTO p DO
BEGIN
vect[i+1]:= vect[i];
END;
Vect[p]:= x ;
FOR i :=1 TO N+1 DO
BEGIN
WRITELN(vect[i]);
END;
Readkey
End.
Saisir le programme ci-dessus et le dérouler avec les données suivantes
P=4
X=-12
N=6
1 2 5 -3 6
Donnez le résultat et dites ce qu’il fait?
A voir également:
- Exercice pascal corrigé bac
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Bac a sable windows - Guide
- Bac vide ou ouvert hp ✓ - Forum Imprimante
oui c'est sûr, mais comme je suis sympa
https://www.commentcamarche.net/infos/25899-demander-de-l-aide-pour-vos-exercices-sur-ccm/