Section courante

A propos

Section administrative du site

WRITELN

Écrire avec saut ligne
Turbo Pascal 1+ System

Syntaxe

Procedure WriteLn([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 avec un saut de ligne 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

MODULE WriteLn(valeur)
   APPEL Write(valeur + caractère ASCII 13 + caractère ASCII 10)

Exemple

Voici divers exemple d'affichages de format :

Essayer maintenant !
  1. Program WriteLnSamples;
  2.  
  3. BEGIN
  4.  WriteLn('Bonjour!');
  5.  WriteLn('Entier 15 = ',15);
  6.  WriteLn('Chaine de caracteres message = ','message');
  7.  WriteLn('Reel 123.45 = ',123.45);
  8.  WriteLn('Reel 123.45 = ',123.45:3:2);
  9. END.

on obtiendra le résultat suivant :

Bonjour!
Entier 15 = 15
Chaine de caracteres message = message
Reel 123.45 = 1.2345000000E+02
Reel 123.45 = 123.45

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 456.

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