La lecture d'un nombre entier en Pascal

Je suis l'aide de Pascal. J'ai un problème en ce qui concerne la lecture du fichier.

J'ai un fichier avec des nombres entiers. Mon pascal pour lire le fichier est:

read(input, arr[i]);

si mon fichier de contenu est 1 2 3 alors c'est bien, mais si c'est 1 2 3 ou 1 2 3(enter here) (il y a un espace ou une ligne vide à la fin), puis mon arr sera 1 2 3 0.

+1 pour Pascal! C'est une belle (bien que quelque peu détaillé) de la langue. Dommage qu'il n'est pas si populaire ces jours-ci.

OriginalL'auteur user397232 | 2010-01-29

  1. 1

    De ce que je peux rappeler read littéralement lit le fichier comme un flux de caractères, dont un espace vide et un retour chariot sont, mais je pense que cela doit être ignoré comme vous êtes la lecture dans un tableau d'entiers. Est-ce que votre fichier contient un caractère d'espace entre chaque numéro?

    Une autre approche serait d'utiliser readLn et les entiers stockés en tant que de nouvelles lignes dans le fichier, par exemple

    1

    2

    3

    OriginalL'auteur Andy Bowskill

  2. 1

    J'ai testé le problème sur Delphi 2009 les applications de console. Ce type de Code

    var
  F: Text;
  A: array[0..99] of Integer;
  I, J: Integer;

begin
  Assign(F, 'test.txt');
  Reset(F);
  I:= -1;
  while not EOF(F) do begin
    Inc(I);
    Read(F, A[I]);
  end;
  for J:= 0 to I do write(A[J], ' ');
  Close(F);
  writeln;
  readln;
end.

    fonctionne exactement comme vous l'avez écrit. Il peut être amélioré à l'aide de SeekEOLN fonction qui ignore tous les caractères espace; le code suivant ne produit pas de mal zéro supplémentaire:

    var
  F: Text;
  A: array[0..99] of Integer;
  I, J: Integer;

begin
  Assign(F, 'test.txt');
  Reset(F);
  I:= -1;
  while not EOF(F) do begin
    if not SeekEOLN(F) then begin
      Inc(I);
      Read(F, A[I]);
    end
    else Readln(F);
  end;
  for J:= 0 to I do write(A[J], ' ');
  Close(F);
  writeln;
  readln;
end.

    Depuis tous que le personnel est juste un héritage en Delphi, je pense qu'il doit travailler en Turbo Pascal.

    +1 Très belle et classique de la solution. Classiquement c'est seulement en fin de vie ou EOLN() ou quelque chose de pas SEEKEOLN(). Ne sais pas si c'est un Delphi gotcha

    OriginalL'auteur kludg

  3. 0

    Vous avez pu lire la chaîne de caractères en une temporaire puis garniture avant de le convertir.

    Il ne marche pas mal parler de base comme ce type de Pascal sur les plateformes que vous utilisez afin que les gens peuvent donner une réponse spécifique (comme l'article des notes, il n'y a pas une façon agréable OOTB dans de nombreux Pascals)

    OriginalL'auteur Ruben Bartelink

  4. 0

    Si je me souviens il y avait une chaîne de caractères la fonction appelée Val qui convertit une chaîne en nombre...à ma connaissance de Pascal est un peu rouillé (Turbo Pascal v6)

    var 
num : integer; 
str : string; 
commencer 
str := '1234'; 
Val(str, num); (* C'est la ligne que je ne suis pas sûr d' *) 
fin;

    Espère que cette aide,
    Meilleures salutations,
    Tom.

    Vous avez besoin d'une autre variable (mot tapé dans TP, longint tapé dans Delphi) que vous transmettez à Val, où val stocke ses erreurs. Traditionnellement le nom de "code" est utilisé pour le var, probablement parce qu'il était tellement dans le TP de l'aide.

    OriginalL'auteur t0mm13b