Aide pour remplir un tableau

Posté par

grad, le dimanche 23 décembre 2007 à 16:27:48

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?

Configuration: Windows XP
Internet Explorer 6.0

Répondre à grad Signaler ce message aux modérateurs Aller au dernier message

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

salhi, le dimanche 23 décembre 2007 à 18:39:08

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.

Répondre à salhi

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

grad, le dimanche 23 décembre 2007 à 20:25:33

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

Répondre à grad

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

salhi, le dimanche 23 décembre 2007 à 21:39:39

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?

Répondre à salhi

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

freeze, le dimanche 23 décembre 2007 à 23:16:10

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

Répondre à freeze

Posez votre question Répondre