Section courante

A propos

Section administrative du site

WRITE

Écrire
Turbo Pascal 1+ System

Syntaxe

Procedure Write([var fich:File;]var1, var2,...);

Paramètres

Nom Description
fich Ce paramètre permet d'indiquer l'identificateur de fichier
var1, var2 Ce paramètre permet d'indiquer des variables ou du texte à afficher

Description

Cette procédure permet d'écrire différentes données sur une périphérique, dans un fichier ou sur la console.

Remarques

Algorithme

MODULE Write(chaine)
   SI unité Crt est chargé et DirectVideo ALORS
      BOUCLE POUR I ← 1 JUSQU'A Longueur(chaine)
         Memoire(Segment vidéo:Position courante + I) ← chaine(I)
         Position courantePosition courante + 1
      FIN BOUCLE POUR
   SINON
      chainechaine + '$'
      registre DS ← Segment(chaine)
      registre DX ← Offset(chaine)
      registre AH ← 9
      Interruption 21h
   FIN SI

Exemple

Voici divers exemple d'affichages :

Essayer maintenant !
  1. Program WriteSamples2;
  2.  
  3. BEGIN
  4.  Write('ABCDEF');
  5.  Write('GHI');
  6.  Write('JKL');
  7.  WriteLn('MNOP');
  8.  Write('QRS');
  9. END.

on obtiendra le résultat suivant :

ABCDEFGHIJKLMNOP
QRS

Références

Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 455.

Dernière mise à jour : Dimanche, le 8 février 2015