|
Construction d'un tableau |
 |
 |
|
Written by Administrator
|
|
Friday, 06 March 2009 14:34 |
Enoncé de l'exercie
Ecrire un programme en Pascal qui saisit un entier non nul n et 2 n réels à mettre dans un tableau A, puis remplit un tableau un tableau B par les éléments de A de la manière suivante:
B[1]=A[1]
B[2]=A[n + 1]
B[3]=A[2]
B[4]=A[n + 2]
Etc.
Solution en Pascal
program tableaux;
uses wincrt;
type tab=array[1..100]of real;
var A,B :tab;
i,n :integer;
begin
repeat
read(n);
until(n>0);
for i:=1 to 2*n do
begin
B[2*i]=A[n + i];
B[2*i - 1]=A[i];
end;
end.
|
Exercices 