Aide pour remplir un tableau
Résolu
Bonjour,
vous pouvez me donner un programme pascal qui:
program exemple;
uses wincrt;
type table=array[1..3] of real;
var A,B:table;
k:integer;
begin
read(k);
ici je veux remplir le tableau A comme suit :
1ere case: valeur 1
2 " " : " " 2
3" " : " " 3
et le tableau B comme suit:
1ere case: 1ère case de A * k
2 " " : 2éme case de A * k
3" " : 3eme case de A * k
et ensuite afficher sur l'écran a l'execution le tableau B
end.
Comment faire ca?
vous pouvez me donner un programme pascal qui:
program exemple;
uses wincrt;
type table=array[1..3] of real;
var A,B:table;
k:integer;
begin
read(k);
ici je veux remplir le tableau A comme suit :
1ere case: valeur 1
2 " " : " " 2
3" " : " " 3
et le tableau B comme suit:
1ere case: 1ère case de A * k
2 " " : 2éme case de A * k
3" " : 3eme case de A * k
et ensuite afficher sur l'écran a l'execution le tableau B
end.
Comment faire ca?
Configuration: Windows XP Internet Explorer 6.0
4 réponses
-
oui c'est ca
problème résolu
selement ce que je voulais c'est B[i]=k*[i] meme si le résultat sera le meme mais pour etre plus scientifique et exacte.
problème résolu -
il me semble que vous cherchez la solution:
for i:=1 to 3 do
begin
A[i]:=i;
B[i]:= k*i;
end;
c'est ça? -
oui compris moi je cherche la 2eme méthde
il y a un petit problème:
moi ke veux que le pc remplisse le tableau A automatiquement sans que je fasse ça manuellement en entrant la valeur de la cellule A[1],A[2] et A[3]
A[1],A[2]etA[3] prendront respectivement les valeurs 1,2 et 3
PS: ceci sans la méthode traditionelle :
A[1]:=1,A[2]:=2 et A[3]:=3
merci de me répondre -
bonjour,
c'est très simple:
...
readln(A[1]);
readln(A[2]);
readln(A[3]);
B[1]:= k*A[1];
B[2]:=k*A[2];
B[3]:=k*A[3];
writeln('le contenu de B est:');
writeln(B[1], ' ',B[2], ' ',B[3]);
End.
------
si vous avez étudié la boucle for, la solution sera beaucoup plus simple:
For i:=1 to 3 do
begin
readln(A[i]);
B[i]:=k*A[i];
writeln(B[i]);
end;
End.
i doit être déclarer dans la partie var comme entier.
