File: prof_pgcd_euclide.alg

package info (click to toggle)
algobox 0.9%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd, stretch
  • size: 1,732 kB
  • sloc: cpp: 12,047; makefile: 11
file content (29 lines) | stat: -rw-r--r-- 1,652 bytes parent folder | download | duplicates (5)
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
<?xml version="1.0" encoding="UTF-8"?>
<Algo>
    <description texte="PGCD de deux entiers positifs par la méthode d'Euclide" courant="TANT_QUE (B!=0) FAIRE" />
    <fonction fctcode="" fctetat="inactif" />
    <repere repetat="inactif" repcode="-10#10#-10#10#2#2" />
    <item algoitem="VARIABLES" code="100#declarationsvariables" >
        <item algoitem="A EST_DU_TYPE NOMBRE" code="1#NOMBRE#A" />
        <item algoitem="B EST_DU_TYPE NOMBRE" code="1#NOMBRE#B" />
        <item algoitem="R EST_DU_TYPE NOMBRE" code="1#NOMBRE#R" />
    </item>
    <item algoitem="DEBUT_ALGORITHME" code="101#debutalgo" >
        <item algoitem="LIRE A" code="2#A#pasliste" />
        <item algoitem="LIRE B" code="2#B#pasliste" />
        <item algoitem="AFFICHER &quot;Le PGCD de &quot;" code="4#Le PGCD de #0" />
        <item algoitem="AFFICHER A" code="3#A#0#pasliste" />
        <item algoitem="AFFICHER &quot; et &quot;" code="4# et #0" />
        <item algoitem="AFFICHER B" code="3#B#0#pasliste" />
        <item algoitem="AFFICHER &quot; est : &quot;" code="4# est : #0" />
        <item algoitem="TANT_QUE (B!=0) FAIRE" code="15#B!=0" >
            <item algoitem="DEBUT_TANT_QUE" code="16#debuttantque" />
            <item algoitem="R PREND_LA_VALEUR A%B" code="5#R#A%B#pasliste" />
            <item algoitem="A PREND_LA_VALEUR B" code="5#A#B#pasliste" />
            <item algoitem="B PREND_LA_VALEUR R" code="5#B#R#pasliste" />
            <item algoitem="FIN_TANT_QUE" code="17#fintantque" />
        </item>
        <item algoitem="AFFICHER A" code="3#A#0#pasliste" />
    </item>
    <item algoitem="FIN_ALGORITHME" code="102#finalgo" />
</Algo>