|
Manipulation de fichiers à accès direct |
 |
 |
|
Written by Administrator
|
Définissez la procédure creer_fichier(str: string; n: integer); qui crée un fichier d'entiers nommé str contenant n entiers aléatoires, en vous inspirant du code ci-dessous :
PROGRAM TestRandom;
VAR
i: INTEGER;
BEGIN
{randSeed est une variable globale de la ToolBox de Mac qui}
{initialise le générateur de nb aléatoires ; TickCount donne}
{le temps en 1/60 eme de seconde depuis le dernier démarrage}
{du Mac}
randSeed := TickCount;
FOR i := 1 TO 10 DO
{la fonction random génère un nb aléatoire de type integer}
writeln{random};
END.
Définissez la procédure afficher_fichier(str: string); qui affiche tous les entiers du fichier nommé str.
Définissez la procédure trier(str: string); qui trie le fichier nommé str à accès direct.
|
Exercices 