Remplir un tableau élément par élément

Version imprimable

01/02/2015, 21h05
Piroh

Remplir un tableau élément par élément
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:

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
02/02/2015, 12h20
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:

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:

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

P.-S. Pourriez-vous préciser quel compilateur vous utilisez ?
02/02/2015, 13h41
droggo

Mai,

On peut se débrouiller avec ReadKey. :)

Citation:

Envoyé par droggo

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:

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.

10/02/2015, 15h23
Piroh

Super, merci