Discussion :

[Piroh]

Bonjour,
Je rencontre un petit problème pour remplir un tableau en mettant tous les éléments à la ligne, sans appuyer sur Entrer après chaque saisie.
Je m'explique:

j'ai un code tout simple,

Code :

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

1
2
3
4
5
6
7
8
9
10
var 
  tab: array[1..N] of integer;
  i: integer;
begin
  for i := 1 to N do
      begin
          read(tab[i]);
      end;
 
end.

Voilà, là quand on fait ça, on rentre les valeurs en appuyant sur entrer. Et comment on pourrait faire pour rentrer les valeurs simplement en appuyant sur la touche espace?

Cordialement

[Roland Chastain]

Bonjour !

Je ne suis pas sûr que ce que vous voulez faire soit possible.

Pour entrer plusieurs valeurs sur une seule ligne, on peut faire comme ça :

Code :

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

1
2
3
4
5
6
7
8
var
  a, b, c: integer;
 
begin
  ReadLn(a, b, c);
  WriteLn(a, ' ', b, ' ', c);
  ReadLn;
end.

Maintenant, s'il s'agit d'un tableau, je crains que le seul moyen ne soit de faire la même chose, c'est-à-dire :

Code :

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

  ReadLn(tab[1], tab[2], tab[3] ...

P.-S. Pourriez-vous préciser quel compilateur vous utilisez ?

[droggo]

Mai,

On peut se débrouiller avec ReadKey.

[Roland Chastain]

On peut se débrouiller avec ReadKey.

Effectivement. Quand j'ai dit que ce n'était pas possible, je me suis mal exprimé : je voulais dire que ce n'était pas possible avec ReadLn.

Voici une proposition, qui consiste à lire la ligne saisie dans une chaîne et à extraire les valeurs numériques contenues dans la chaîne. Par facilité j'ai utilisé une liste. Compilation Free Pascal.

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
(* Free Pascal 2.6 *)
 
program FonctionIntegerArrayReadLn;
{$MODE DELPHI}
 
uses
  Classes; (* TStringList *)
 
function IntegerArrayReadLn(var a: array of integer): boolean;
var
  s: string;
  l: TStringList;
  i: integer;
  e: word;
begin
  (* On lit dans une seule variable de type chaîne tout ce que l'utilisateur
     saisit. *)
  ReadLn(s);
 
  (* On convertit cette chaîne en liste. *)
  l := TStringList.Create;
  l.DelimitedText := s; (* Par défaut, le délimitateur est le caractère espace,
    ce qui tombe bien en l'occurrence. *)
  result := (l.Count = Length(a)); (* On vérifie que la longueur de la liste
    obtenue est égale à la longueur du tableau. *)
 
  if result then
    (* On parcourt la liste, on convertit les chaînes en nombres entiers et on
      remplit le tableau. *)
    for i := 0 to l.Count - 1 do
    begin
      Val(l[i], a[i], e);
      if e <> 0 then (* Si la conversion échoue... *)
      begin
        result := false;
        break;
      end;
    end;
 
  l.Free;
end;
 
const
  N = 4;
 
var
  a: array[1..N] of integer;
  i: integer;
 
begin
  if IntegerArrayReadLn(a) then
    for i := 1 to N do
      WriteLn(a[i]);
  ReadLn;
end.

[Piroh]

Super, merci