- Ecriture ; Constante chaîne de caractères
(* Objectif : dire bonjour à la dame *)
PROGRAM bonjour1 ;
BEGIN
WriteLn ( "Bonjour à la dame" ) ;
END
- Lecture ; Variable chaîne de caractères
(* Objectif : dire bonjour à la dame par son nom *)
PROGRAM boujour2 ;
VAR nom : string[80] ;
BEGIN
WriteLn ( "Quel est votre nom ? " ) ;
ReadLn ( nom ) ;
WriteLn ( "Bonjour madame ", nom ) ;
END
- Opérateurs affectation et arithmétiques ; Variables réelles
(* Objectif : calcul de la surface d'un carré *)
PROGRAM surface1 ;
VAR cote, surface : REAL ;
BEGIN
WriteLn ( "Quel est la longueur du cote ? " ) ;
ReadLn ( cote ) ;
surface := cote * cote ;
WriteLn ( "Surface = ", surface ) ;
END
- Boucle "for" ; Variables entières
(* Objectif : écrire les nombres de 0 à n *)
PROGRAM surface1 ;
VAR i , n : INTEGER ;
BEGIN
WriteLn ( "Entiers jusqu'à quel nombre ? " ) ;
ReadLn ( n ) ;
FOR i := 0 TO n DO WriteLn ( i ) ;
END
- Test "if" ; instruction seule remplacée par un bloc BEGIN ... END
(* Objectif : écrire les nombres multiples de 3 *)
PROGRAM surface1 ;
VAR i , n : INTEGER ;
BEGIN
WriteLn ( "Entiers jusqu'à quel nombre ? " ) ;
ReadLn ( n ) ;
FOR i := 0 TO n DO
BEGIN
IF i MOD 3 = 0 THEN WriteLn ( i ) ;
END
END
- page suivante : page 3
retour aux menus :