Section courante

A propos

Section administrative du site

APPEND

Apposez
Virtual Pascal 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.

Exemple

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


Dernière mise à jour : Vendredi, le 29 juillet 2016