Aide pour remplir un tableau

Résolu
grad -  
 freeze -
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?
A voir également:

4 réponses

salhi
 
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.
0
grad
 
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
0
salhi
 
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?
0
freeze
 
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
0