Discussion :

[chanii]

Bonjour ! Je dois écrire un programme en pascal qui permet de saisir 1000 entiers dans un tableau T et d'afficher le contenu de toutes les cases de rang multiple de 5. Voici ce que j'ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
program bd;
uses crt;
var t:array [1..100] of integer;
a,c,d,e:integer;
const b=5;
begin
	t[a]:=a;
	for a:=1 to 200 do
	write('|',a*b);
	readkey
end

Ai-je répondu à la question ? Si non est-ce vous pouvez me proposer une solution ?

[droggo]

Bonjour,

Ai-je répondu à la question ? Si non est-ce vous pouvez me proposer une solution ?

Non, tu n'as pas répondu.

Non, je ne te propose pas de solution, à part relire et comprendre l'énoncé.

[Roland Chastain]

Je dois écrire un programme en pascal qui permet de saisir 1000 entiers dans un tableau T...

Bon courage pour essayer le programme.

Sinon, pour remplir le tableau, voici un exemple. Il faut remplacer le point d'interrogation par quelque chose. Mais quoi ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
const
  N = 1000;
 
var
  t: array[1..N] of integer;
  i: integer;
 
begin
  for i := 1 to N do
  begin
    ReadLn(?);
  end;
end.

Une variante plus reposante (toujours avec un point d'interrogation à remplacer) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
const
  N = 1000;
 
var
  t: array[1..N] of integer;
  i: integer;
 
begin
  Randomize;
  for i := 1 to N do
  begin
    ? := Random(100); (* un nombre au hasard de 0 à 99 *)
  end;
end.