Section courante

A propos

Section administrative du site

APPEND

Apposez
Free Pascal System

Syntaxe

Procedure Append(var t:Text);

Paramètres

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

Description

Cette procédure permet d'effectuer l'initialisation d'un fichier texte en mode d'ajout.

Remarques

Exemple

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

Essayer maintenant !
  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

Gladir.com - Langage de programmation - Free Pascal - Référence de procédures et fonctions - «CLOSE»
Gladir.com - Langage de programmation - Free Pascal - Référence de procédures et fonctions - «RESET»
Gladir.com - Langage de programmation - Free Pascal - Référence de procédures et fonctions - «REWRITE»

Dernière mise à jour : Samedi, le 18 juillet 2015