Section courante

A propos

Section administrative du site

APPEND

Apposez
Turbo Pascal 3+ System

Syntaxe

Procedure Append(varfich:Text);

Paramètres

Nom Description
varfich Ce paramètre permet d'indiquer l'identificateur de fichier

Description

Cette procédure permet d'effectuer l'initialisation d'une fichier texte en mode ajouter.

Remarques

Exemples

L'exemple suivant permet de créer un fichier, d'insérer un «Texte original», de le fermer et d'ouvrir a nouveau le même fichier et d'y insérer le texte «Texte ajouter» :

  1. Program AppendSamples;
  2. Var 
  3.  F:Text;
  4. BEGIN
  5.  Assign(F, 'SAMPLES.TXT');
  6.  Rewrite (F) ;
  7.  Writeln(F, 'Texte original');
  8.  Close(F);
  9.  Append(F);
  10.  Writeln(F, 'Texte ajouter');
  11.  Close(F);
  12. END.

Voici un exemple de générer les 160 premier nombre de π dans un fichier :

  1. Program PiSamples;
  2.  
  3. Var
  4.  Handle:Text;
  5.  I:Integer;
  6.  a,b,c,d,e,g:LongInt;
  7.  f:Array[0..8401]of LongInt;
  8.  X:String;
  9.  
  10. Function Right(Const S:String;L:Byte):String;Begin
  11.  Right:=Copy(S,Length(S)-L+1,L);
  12. End;
  13.  
  14. BEGIN
  15.  Assign(Handle, 'NUMPI.TXT');
  16.  Rewrite(Handle);
  17.  WriteLn(Handle,'Génération du nombre PI :');
  18.  Close(Handle);
  19.  Append(Handle);
  20.  a := 10000;
  21.  c := 8400;
  22.  I := 0;
  23.  While b <> c do Begin
  24.   f[b] := a div 5;
  25.   Inc(b);
  26.  End;
  27.  While c > 0 do Begin
  28.   g := 2 * c;
  29.   d := 0;
  30.   b := c;
  31.   While b > 0 do Begin
  32.    Inc(d,f[b] * a);
  33.    Dec(g);
  34.    f[b] := d mod g;
  35.    d := d div g;
  36.    Dec(g);
  37.    Dec(b);
  38.    If b <> 0 Then d := d * b;
  39.   End;
  40.   Dec(c,14);
  41.   Str(e + (d div a),X);
  42.   Write(Handle,Copy('0000',1, 5 - Length(X) - 1));
  43.   Write(Handle,Right(X,Length(X)));
  44.   e := d mod a;
  45.   Inc(I);
  46.   If I> 39 Then Break;
  47.  End;
  48.  Close(Handle);
  49. END.

on obtiendra le résultat suivant dans le fichier «NUMPI.TXT» :

Génération du nombre PI :
3141592653589793238462643383279502884197169399375105820974944592307816406286208998628034825342117067982148086513282306647093844609550582231725359408128481117450

Voir également

Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - ASSIGN
Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - CLOSE
Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - RESET
Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - REWRITE

Référence

Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 95.
Le grand livre du Turbo & Borland Pascal 7.0, Edition Micro Application, Reiner Scholles, 1993, ISBN: 2-86899-873-9, page 1211.

Dernière mise à jour : Dimanche, le 25 janvier 2015