NASIUM L.S.E.

Exemples

Un serveur NASIUM LSE en cours de dévelopement est accessible via telnet ou via http.

Par telnet: telnet://nasium-lse.ogamita.com:8115

Par http: http://nasium-lse.ogamita.com:8117

      REPERTOIRES EXISTANTS, NON MODIFIABLES:

      /BOURG    PROGRAMMES ECRITS AU COLLEGE PAR PASCAL BOURGUIGNON.
      /EXEMP    EXEMPLES DE "LANGAGE SYMBOLIQUE D'ENSEIGNEMENT L.S.E. 
      MANUEL D'UTILISATION".
      /TESTS    PROGRAMMES DE TEST DE NASIUM-LSE.

      REPERTOIRES EXISTANTS, MODIFIABLES:
      
      /PROGR    PROGRAMMES DES UTILISATEURS.
      /RUBANS   ETAGERE DE RUBANS.
    

Exemple d'interaction: mode machine de bureau

En gras les caractères que vous devez taper, suivi de ENTRÉE

      ?atg(1)
      0.7853982 
      pi_atg(1)*4
      ?pi
      3.1415927
      ?2*pi
      6.2831855 
    

Exemple d'interaction: exécution d'un programme existant

En gras les caractères que vous devez taper, suivi de ENTRÉE


      CHANGER REPERTOIRE /exemp
      TABLE DES FICHIERS   05/05/12 17:39:55

      FICHIERS-PROGRAMMES
      *******************

      NOM NO.COMPTE  DATE  NB.MOTS

      FLIBU  00    05/05/12   558
      PG01   00    05/05/12   193
      PG02   00    05/05/12   194
      …
      PG641  00    05/05/12   329
      PG642  00    05/05/12   311
      PG76   00    05/05/12  1123
      PG77   00    05/05/12   966

      FICHIERS-PERMANENTS
      *******************

      NOM NO.COMPTE  DATE  NB.SECTEURS


      FICHIERS-DONNEE TEMPORAIRES
      *****************************

      NOM CONSOLE NB.SECTEURS


      APPELER pg09
      LISTER A PARTIR DE 1

      1*SOMME DES CARRES DES N PREMIERS ENTIERS NATURES
      4 AFFICHER 'N=';LIRE N
      6 I_1;S_0
      8 S_S+I^2
      10 SI N=I ALORS ALLER EN 12
      11 I_I+1;ALLER EN 8
      12 AFFICHER 'SOMME = ',S
      14 TERMINER
      251*EXTRAIT DE "LANGAGE SYMBOLIQUE D'ENSEIGNEMENT L.S.E. MANUEL D'UTILISATION"
      252*BULLETIN DE LIAISON "L'INFORMATIQUE ET L'ENSEIGNEMENT SECONDAIRE" JAN 1975
      253*C.LAFOND - INSTITUT NATIONAL DE RECHERCHE ET DE DOCUMENTATION PEDAGOGIQUES
      254*PROGRAMME PG9, PAGE 53, SOMME DES CARRES DES N PREMIERS NOMBRES ENTIERS
      255*[PAS TESTE SUR EMULSE]

      EXECUTER A PARTIR DE 1

      N=20
      SOMME = 2870 
      TERMINE EN LIGNE 014

    

Exemple d'interaction: création d'un nouveau programme

En gras les caractères que vous devez taper, suivi de ENTRÉE

      CHANGER REPERTOIRE /progr
      TABLE DES FICHIERS   05/05/12 17:48:46

      FICHIERS-PROGRAMMES
      *******************

      NOM NO.COMPTE  DATE  NB.MOTS


      FICHIERS-PERMANENTS
      *******************

      NOM NO.COMPTE  DATE  NB.SECTEURS


      FICHIERS-DONNEE TEMPORAIRES
      *****************************

      NOM CONSOLE NB.SECTEURS


      1*auteur: Pascal Bourguignon
      2*resolution d'une equation du 2e degre
      10 afficher [/,'resolution d'une equation du second degre',/]
      ERREUR EN LIGNE  10 : COLONNE 29 : ATTENDU "]", PAS U "U"
      10 AFFICHER [/,'RESOLUTION D'UNE EQUATION DU SECOND DEGRE',/]
      ^

      PRET
      10 afficher [/,'resolution d''ene equation du second degre',/]
      12 afficher [/,'A*X^2+B*X+C=0',/]
      20 afficher [/,'A='];lire a
      22 afficher [/,'B='];lire b
      24 afficher [/,'C='];lire c
      30 delta=b^2-4*a*c
      ERREUR EN LIGNE  30 : COLONNE 8 : ATTENDU "_", PAS = "="
      30 DELTA=B^2-4*A*C
      ^

      PRET
      30 delta_b^2-4*a*c
      32 si delta<0 alors debut afficher 'pas de solution' ; terminer fin
      34 si delta=0 alors debut afficher[/,'solution: x=',u,/]-b/(2*a) ; terminer fin
      36 x1_(-b-rac(delta))/(2*a); x1_(-b+rac(delta))/(2*a)
      38 afficher[/,'deux solutions: x1=',u,' et x2=',u,/]x1,x2
      40 terminer

      LISTER A PARTIR DE 1
      1*AUTEUR: PASCAL BOURGUIGNON
      2*RESOLUTION D'UNE EQUATION DU 2E DEGRE
      10 AFFICHER[/,'RESOLUTION D''ENE EQUATION DU SECOND DEGRE',/]
      12 AFFICHER[/,'A*X^2+B*X+C=0',/]
      20 AFFICHER[/,'A='];LIRE A
      22 AFFICHER[/,'B='];LIRE B
      24 AFFICHER[/,'C='];LIRE C
      30 DELTA_B^2-4*A*C
      32 SI DELTA<0 ALORS DEBUT AFFICHER 'PAS DE SOLUTION';TERMINER FIN
                    34 SI DELTA=0 ALORS DEBUT AFFICHER[/,'SOLUTION: X=',U,/]-B/2*A;TERMINER FIN
                    36 X1_(-B-RAC(DELTA))/2*A;X1_(-B+RAC(DELTA))/2*A
                    38 AFFICHER[/,'DEUX SOLUTIONS: X1=',U,' ET X2=',U,/]X1,X2
                    40 TERMINER

                    EXECUTER A PARTIR DE 1

                    RESOLUTION D'ENE EQUATION DU SECOND DEGRE

                    A*X^2+B*X+C=0

                    A=2
                    B=4
                    C=2
                    SOLUTION: X=-1 

                    TERMINE EN LIGNE 034
                    EXECUTER A PARTIR DE 1

                    RESOLUTION D'ENE EQUATION DU SECOND DEGRE

                    A*X^2+B*X+C=0

                    A=2
                    B=5
                    C=1
                    DEUX SOLUTIONS: X1=-0.21922362  ET X2=
                    ERREUR EN LIGNE  38 : LA VARIABLE X2 N'A PAS ETE INITIALISEE

                    PRET
                    36 X1_(-B-RAC(DELTA))/2*A;X2_(-B+RAC(DELTA))/2*A
                    REPRENDRE A PARTIR DE 36

                    DEUX SOLUTIONS: X1=-9.123106  ET X2=-0.8768945 

                    TERMINE EN LIGNE 040
                    LISTER A PARTIR DE 36
                    36 X1_(-B-RAC(DELTA))/2*A;X2_(-B+RAC(DELTA))/2*A
                    38 AFFICHER[/,'DEUX SOLUTIONS: X1=',U,' ET X2=',U,/]X1,X2
                    40 TERMINER

                    36 X1_(-B-RAC(DELTA))/(2*A);X2_(-B+RAC(DELTA))/(2*A)
                    EXECUTER A PARTIR DE 1

                    RESOLUTION D'ENE EQUATION DU SECOND DEGRE

                    A*X^2+B*X+C=0

                    A=2
                    B=5
                    C=1
                    DEUX SOLUTIONS: X1=-2.2807765  ET X2=-0.21922362 

                    TERMINE EN LIGNE 040
                    ?a*x1^2+b*x1+c
                    0 
                    ?a*x2^2+b*x2+c
                    -1.1920929E-07 

                    RANGER equa2
                    TABLE DES FICHIERS   05/05/12 17:56:43

                    FICHIERS-PROGRAMMES
                    *******************

                    NOM NO.COMPTE  DATE  NB.MOTS

                    EQUA2  00    05/05/12   262

                    FICHIERS-PERMANENTS
                    *******************

                    NOM NO.COMPTE  DATE  NB.SECTEURS


                    FICHIERS-DONNEE TEMPORAIRES
                    *****************************

                    NOM CONSOLE NB.SECTEURS

    


Nasium LSE