Algorithme journal
variables
t: tableau [2,5] de chaîne
td,tc,solde,i:entier
choix: caractère

Début

i=0
répéter
i=i+1
écrire ("débiter ou credier ? ")
lireln(choix)
si choix ="d" ou choix ="D" alors
écrire ("numéro compte")
lireln(t[i,1])
t[i,2]=" "
écrire ("description ")
lireln(t[i,3])
écrire("montant ")
lireln(t[i,4])
t[i,5]="0"sinon
écrire ("numéro compte ")
t[i,1]="' "
lireln(t[i,2])
écrire ("désignation compte")
lireln(t[i,3])
écrire ("montant ")
lireln(t[i,5])
t[i,4] = "0"
finsi
jusqua(i=2)
td=0
tc=0
solde=0
i=0
répéter
i=i+1
si t[i,1]="5712" alors
td = td + val(t[i,4])
finsi
si t[i,2]="5712" alors
tc =tc+val(t[i,5])
finsi
jusqua(i=2)
écrireln("================")
écrireln("total debit ",td)
écrireln("total credit ",tc)
si td>tc alors
écrireln("solde débiteur ",(td-tc))
sinon
ecrireln("solde créditeur= ",(tc-td))
finsi
Fin