Section courante

A propos

Section administrative du site

APPEND

 Apposez
Turbo Pascal pour Windows 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'un fichier texte en mode ajouté.

Exemple

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

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

Dernière mise à jour : Dimanche, le 10 décembre 2017