Exemples de programmation d'entrée/sortie
Les programmes suivants fournissent des exemples pour aider les utilisateurs à se familiariser avec la nature des entrées/sorties Pascal.
Exemple 1 :
- PROGRAM intcpy(infil, OUTPUT);
- (* CE PROGRAMME COPIE UN FICHIER TEXTE DE NOMBRE ENTIERS (1 PAR LIGNE) DE L'ENSEMBLE DE DONNEES LOCAL COS INFIL VERS LE FICHIER DE SORTIE STANDARD *)
- VAR
- i:INTEGER;
- buffer,wdcnt,status:INTEGER;
- dsname:ALFA;
- infil:TEXT;
- BEGIN
- RESET(infil);
- WHILE NOT EOF( infil) DO BEGIN
- READLN(infil, i);
- WRITELN(OUTPUT, i);
- END;
- END.
Exemple 2 :
- PROGRAM strcpy( infil, outfil);
- (* CE PROGRAMME COPIE DES LIGNES DE TEXTE DE L'ENSEMBLE DE DONNEES LOCAL COS INFIL VERS L'ENSEMBLE DE DONNEES LOCAL COS BLEEM. SI L'ENSEMBLE DE DONNEES LOCAL BLEEM CONTIENT DEJA QUELQUE CHOSE, IL EST ECRASE *)
- VAR
- str :ARRAY[1..132] OF CHAR;
- i, length: 0..132;
- infil,outfil:TEXT;
- BEGIN
- CONNECT(outfil,'BLEEM ');
- REWRITE(outfil);
- RESET(infil);
- (* NOTEZ QUE INFIL A ETE AUTOMATIQUEMENT CONNECTÉ AU ENSEMBLE DE DONNÉES LOCAL COS INFIL, CAR IL APPARAIT DANS L'ENTETE DU PROGRAMME.
-
- OUTFIL AURAIT ETE CONNECTE DE MEME MEME SI NOUS N'AVONS PAS REMPLACE LA CONNEXION AVEC LA PROCEDURE PREDEFINIE CONNECT *)
- WHILE NOT EOF(infil) DO BEGIN
- length:=0;
- WHILE NOT EOLN(infil) DO BEGIN
- READ(infil, str[ length + 1]);
- length:=length+1;
- END;
- READLN(infil);
- FOR i:=1 TO length DO WRITE(outfil,str[i]);
- WRITELN(outfil);
- END;
- END.
Dernière mise à jour : Vendredi, le 13 octobre 2017