Discussion :

[vladimire]

Bonjour,
je suis nouveau sur Pascal (programmation en général).
Ma question si pouviez m'aider est :
j'ai écrit une procédure qui affiche en écran d'accueil quelques phrases; le problème c'est que j'ai besoin de tape writeln; des dizaines de fois pour que ça s'affiche comme je veux.
Je vous présente le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
program menu;
uses crt;
begin
clrscr;
writeln;
textcolor(0);
writeln;
writeln;
writeln;
writeln;
textcolor(red);
writeln;
writeln;
writeln;
writeln;
writeln;
writeln('                           Projet Nø1         ');
writeln;
writeln;
writeln;
writeln;
writeln('                         Statistique Descriptive             ');
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
textcolor(white);
writeln('  *** Prof : Mr ..... ***');
writeln;
writeln;
writeln('                                                  Nom prenom ');
readln;
end.

Si il y a un truc qui peut m'aider à sauter ces lignes sans retaper chaque fois Writeln; (autre truc que copier/coller ).
Merci pour votre temps.

[M.Dlb]

GoToXY()

[vladimire]

problem resolu...en menu Help on trouve tt les combinaison de Goto à utiliser..

merci .

et pour les fonts, je peux utiliser differents fonts en ecrivant mes phrases ?du Comic sans Ms, du verdana... ???

[M.Dlb]

En mode console, tu n'as qu'une seule police. Il est ensuite possible de modifier ces polices une à une pixel par pixel pour obtenir ce que tu veux

[vladimire]

c'est un peu compliqué alors (pour moi)... je laisserai tomber la police pour le moment..
merci pour votre temps