Discussion :

[veryellow]

Bonjour,

Je dois convertir un programme du Pascal au C.

Ne connaissant rien au Pascal, j'ai parcouru les cours sur developpez.com, et réussi à traduire 99% du code.
Il reste pourtant une ligne de code qui reste pour moi mystérieuse :

Code :

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

write(livre, tab[n]:succ(a))

Cette ligne se trouve dans une procédure qui ne prend pas d'arguments.
n est un entier local à la procédure
tab un tableau d'entiers à portée globale
a un entier à portée globale

Pourriez-vous me dire ce que fait cette ligne ?

[Roland Chastain]

Pourriez-vous me dire ce que fait cette ligne ?

Bonjour ! :succ(a) set à formater l'écriture de tab[n]. succ(a) veut dire a + 1.

Donc le tout signifie "écrire la valeur de la variable tab[n] sur au moins a + 1 caractères".

[veryellow]

Merci pour la rapidité, et la pertinence de la réponse.
Pour ceux que ça intéresse, voici le code (très) original issu de la "Grammaire de la nature" de Jean Marie Souriau (livre disponible sur www.jmsouriau.com)
Il s'agit du calcul des 1000 première décimales de pi avec la formule d'Euler.

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
program DernierFaust;
const multitude = 201 ; doigts = 5 ; sexe = 2 ; neant = 0 ;
type demon = longint;
var Faust, ciel, ange : demon ;
enfer: array[neant.. multitude] of demon ; grimoire : text;
procedure Invoquer(var ca, co, bra, da :demon); var a : demon; begin
a := bra + ca * da ; bra
:= a div co; da := a -
co * bra
end;
 
procedure Incube (Marguerite : demon); var homme : demon; begin
ciel := neant;
for homme := multitude downto neant do
invoquer(Marguerite, Faust, ciel, enfer[homme]) end;
 
procedure Succube (Marguerite : demon); var femme: demon; begin
ciel := neant;
for femme:= neant to multitude do
invoquer(Faust, Marguerite, enfer[femme], ciel) end;
 
procedure Vaderetro; var exorciste : demon; begin
for exorciste := neant to multitude do
enfer[exorciste] := neant end;
procedure Satanas; begin
enfer[neant]:=succ(enfer[neant])
end;
 
procedure Epilogue; var sorcier : demon; begin
for sorcier := neant to pred(multitude) do
write(grimoire, enfer[sorcier]: succ(doigts)) end;
 
procedure Prologue; begin
Faust := round(exp(ln(doigts*sexe) * doigts));
ange := round(multitude * ln(Faust) / ln(sexe));
rewrite(grimoire, 'parchemin'); end;
 
begin prologue;
vaderetro; satanas; satanas;
for ange := ange downto ange div ange do begin
incube (ange) ;
succube (succ (sexe * ange)) ;
satanas end ;
incube(sexe);
epilogue end.