PROGRAMME 1 : Réalisation d'un dessin
Ecrire le Programme PASCAL qui réalise le dessin
suivant : ************
*111111111**
*11111111*O*
*1111111*OO*
*111111*OOO*
*11111*OOOO*
*1111*OOOOO*
*111*OOOOOO*
*11*OOOOOOO*
*1*OOOOOOOO*
**OOOOOOOOO*
************
|
Le programme
PROGRAM Carre;
VAR
I,N,L, K : INTEGER;
F : TEXT;
BEGIN
ASSIGN( F,'R_carre.Pas');
REWRITE(F);
N := 12;
WRITE(F,'
');
FOR I := 1 TO N DO WRITE(F,'*'); WRITELN(F);
FOR K := 2 TO N-1 DO
BEGIN
WRITE(F,'
');
WRITE(F,'*');
FOR L:=2 TO N-K DO WRITE(F,'1');
WRITE(F,'*');
FOR L:=1 TO K-2 DO WRITE(F,'O');
WRITE(F,'*');
WRITELN(F)
END;
WRITE(F,'
');
FOR I := 1 TO N DO WRITE(F,'*'); WRITELN(F);
CLOSE(F)
END.
Les résultats
Contenu du fichier R_Carre.Pas.
************
*111111111**
*11111111*O*
*1111111*OO*
*111111*OOO*
*11111*OOOO*
*1111*OOOOO*
*111*OOOOOO*
*11*OOOOOOO*
*1*OOOOOOOO*
**OOOOOOOOO*
************