Commit ce6479ff by Pascal J. Bourguignon

### Removed files under non-owned copyright.

parent 924610fb
.gitignore 0 → 100644
 *~ \#* .\#* .DS_Store ._*
 1* PASCAL BOURGUIGNON 2012-09-19 2* ALIRE 3* DESCRIPTION DE CE REPERTOIRE EN COMMENTAIRE -- CE PROGRAMME NE FAIT RIEN. 4* 5* TOURNE 10 TERMINER 11* CE REPERTOIRE CONTIENT QUELQUES PROGRAMMES EXEMPLE ADDITIONNELS, 12* D'ORIGINES DIVERSES. 13* ALIRE.LSE CE PROGRAMME. 14* EQUA2.LSE RESOLUTION D'EQUATIONS DU 2ND DEGRÉ 15* FIZZB.LSE LE PROBLÈME FIZZBUZZ. 16* 17* CRISTAL.LSE DESSINE UN CRISTAL IMPOSSIBLE - CE PROGRAMME EST ECRIT 18* DANS UN DIALECTE DIFFERENT DU L.S.E: LES NUMÉROS DE LIGNE 19* DE SONT PAS D'ORIGINE MAIS AJOUTÉES PAR MOI; LES MOTS 20* CLÉS SONT EN ANGLAIS, IL Y A DES PRIMITIVES GRAPHIQUES. 21* SI JE ME SOUVIENS BIEN, L'AUTEUR EST LE PROFESSEUR 22* ARSAAC.
 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;X2_(-B+RAC(DELTA))/2*A 38 AFFICHER[/,'deux solutions: x1=',U,' et x2=',U,/]X1,X2 40 TERMINER
 1*PASCAL J. BOURGUIGNON, 2012-09-19 2*FIZZBUZZ 3*AFFICHE LES ENTIERS DE 1 A 100, SAUF FIZZ POUR LES MULTIPLES DE 3, BUZZ POUR LES MULTIPLES DE 5. 4* 5*TOURNE 10 CHAINE FB 20 FAIRE 45 POUR I_1 JUSQUA 100 30 FB_SI &MOD(I,3)=0 ALORS SI &MOD(I,5)=0 ALORS 'FIZZBUZZ' SINON 'FIZZ' SINON SI &MOD(I,5)=0 ALORS 'BUZZ' SINON '' 40 AFFICHER[U,/] SI FB='' ALORS I SINON FB 45*FIN BOUCLE 50 TERMINER 100 PROCEDURE &MOD(A,B) LOCAL A,B 110 RESULTAT A-B*ENT(A/B)
 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 FLIBU, PAGE 193, SAISIE DU FICHIER VOCA (VOCABULAIRE) 255*[PAS TESTE SUR EMULSE] 1* FLIBU ENTREE FICHIER COMMENTAIRE DU DEBUT 2 AFFICHIER[2/,'DONNER LE TEXTE LIGNE PAR LIGNE. TERMINER PAR ***'] 3 CHAINE TEXTE,LGNE;TEXTE_'' 4 AFFICHER ':';LIRE LIGNE 5 TEXTE_TEXTE!EQC(13)!EQC(10)!SCH(LIGNE,1,'*') 6 SI POS(LIGNE,1,'*')=0 ALORS ALLER EN 4 7 I_1;GARER TEXTE,I,'VOCA' 10* ENTREE FICHIER DES MOTS SECRETS 11 AFFICHER[2/,'ENREZ VOS MOTS SEPARES PAR DES + . UN ENREGISTREMENT'] 12 AFFICHER[/,'EST COMPOSE DE 3 LIGNES . TAPEZ *** A LA FIN.'] 13 AFFICHER[/,'NOMBRE D''ENREGISTREMENTS : '];LIRE N;CHAINE D;D_CCA(N)!'+' 14 FAIRE 16 POUR K_1 JUSQUA 3;AFFICHER ':' 15 LIRE LIGNE;D_D!SCH(LIGNE,1,'*') 16 SI POS(LIGNE,1,'*')#0 ALORS ALLER EN 18 17 I_I+1;GARER D,I,'VOCA';D_'+';ALLER EN 14 18 I_I+1;GARER D,I,'VOCA' 19 AFFICHER[2/,'N''OUBLIEZ PAS DE CATALOGUER VOCA,VOCA'];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 PG1, PAGE 47, EXERCICES SIMPLE LECTURE AFFICHAGE 255*[PAS TESTE SUR EMULSE] 1 LIRE A,B 3 AFFICHER A+B 5 AFFICHER A*B^2,A/B 7 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 PG2, PAGE 47, EXERCICES SIMPLE LECTURE AFFICHAGE 255*[PAS TESTE SUR EMULSE] 1 LIRE A,B,C 2 LIRE Q 3 LIRE D 4 AFFICHER A,B,C,D,Q 7 TERMINER \ No newline at end of file
 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 PG3, PAGE 47, EXERCICES SIMPLE LECTURE AFFICHAGE 255*[PAS TESTE SUR EMULSE] 1 CHAINE A,B,E 2 LIRE C,A,D 3 LIRE B,E 4 AFFICHER C,A,D,B,C+D,E 5 TERMINER \ No newline at end of file
 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 PG4, PAGE 47, EXERCICES SIMPLE LECTURE AFFICHAGE 255*[PAS TESTE SUR EMULSE] 10 AFFICHER 'A=';LIRE A 12 AFFICHER 'B=';LIRE B 13 AFFICHER 'A+B=',A+B 15 AFFICHER 'TOTO=',A*B^2,'A/B=',A/B 17 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 PG5, PAGE 47, EXERCICES SIMPLE LECTURE AFFICHAGE 255*[PAS TESTE SUR EMULSE] 1 CHAINE PR 3 AFFICHER 'TAPEZ VOTRE PRENOM : ';LIRE PR 5 AFFICHER 'BON COURAGE, ',PR,', POUR L''ETUDE DU L S E !' 7 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 PG6, PAGE 48, CALCUL DE L'AIRE D'UN TRIANGLE 255*[PAS TESTE SUR EMULSE] 1*CALCUL DE L"AIRE DE PLUSIEURS TRIANGLES 4 AFFICHER 'B=';LIRE B 5 AFFICHER 'H=';LIRE H 6 S_B*H/2 8 AFFICHER 'S=',S 10 AFFICHER '' 12 ALLER EN 4
 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 PG7, PAGE 49, CALCUL DE L'AIRE D'UN TRIANGLE 255*[PAS TESTE SUR EMULSE] 1 AFFICHER 'CE PROGRAMME PERMET DE CALCULER L"AIRE DE PLUSIEURS TRIANGLES' 2 AFFICHER 'VOUS DONNEREZ LA VALEUR DE LA BASE,DEMANDEE COMME SUIT:' 3 AFFICHER 'B=' 4 AFFICHER 'ET CELLE DE LA HAUTEUR, DEMANDEE COMME SUIT :' 5 AFFICHER 'H=' 6 AFFICHER 'SI B=67 ET H=43 PAR EXEMPLE,LA SOLUTION SERA DONNEE SOUS LA FORME' 7 B_67;H_43;ALLER EN 9 8 AFFICHER 'B=';LIRE B;AFFICHER 'H=';LIRE H 9 S_B*H/2 10 AFFICHER 'S=',S 11 AFFICHER '' 12 ALLER EN 8
 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 PG8, PAGE 49, SOMME, DIFFERENCE, PRODUIT DE 2 NOMBRES 255*[PAS TESTE SUR EMULSE] 1 AFFICHER 'TAPEZ DEUX NOMBRES : ';LIRE B,C 2 AFFICHER '10 = SOMME 20 = DIFFERENCE 30 = PRODUIT' 3 AFFICHER 'TAPEZ LE NUMERO DE L''OPERATION A EFFECTUER : ' 4 LIRE I;ALLER EN I 10 S_B+C;AFFICHER 'SOMME = ',S;ALLER EN 1 20 D_B-C;AFFICHER 'DIFFERENCE = ',D;ALLER EN 1 30 P_B*C;AFFICHER 'PRODUIT = ',P;ALLER EN 1
 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] 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 PG10, PAGE 53, SOMME DES CARRES DES N PREMIERS NOMBRES ENTIERS 255*[PAS TESTE SUR EMULSE] 1*SOMME DES CARRES DES N PREMIERS ENTIERS NATURES 4 AFFICHER 'N=';LIRE N 6 I_1;S_0 8 S_S+I^2;SI N=I ALORS ALLER EN 9;I_I+1;ALLER EN 8 9 AFFICHER 'SOMME = ',S 10 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 PG11, PAGE 55, SOMME DES CARRES DES N PREMIER NOMBRES ENTIERS 255*[PAS TESTE SUR EMULSE] 1*SOMME DES CARRES DES N PREMIERS ENTIERS NATURELS 4 AFFICHER 'N=';LIRE N 6 I_1;S_0 8 S_S+I^2;SI N#I ALORS ALLER EN 12 9 AFFICHER 'SOMME = ',S 10 TERMINER 12 I_I+1;ALLER EN 8
 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 PG12, PAGE 55, SOMME DES CARRES, CUBES DES N 1ER NOMBRES ENTIERS 255*[PAS TESTE SUR EMULSE] 1 AFFICHER 'N=';LIRE N;I_1;S_0 2 S_S+I^2;SI I=N ALORS ALLER EN 3;I_I+1;ALLER EN 2 3 AFFICHER 'SOMME DES CARRES = ',S 4 AFFICHER 'FAISONS UNE PAUSE POUR ETUDIER LE RESULTAT. SI VOUS VOULEZ ENSUITE' 5 AFFICHER 'RECOMMENCER POUR UNE AUTRE VALEUR DE N,TAPEZ "CO"NTINUER.' 6 AFFICHER 'SI VOUS VOULEZ LA SOMME DES CUBES, TAPEZ "RE"PRENDRE EN "10".' 7 PAUSE 8 ALLER EN 1 10 I_1;S_0 11 S_S+I^3;SI I=N ALORS ALLER EN 12;I_I+1;ALLER EN 11 12 AFFICHER 'SOMME DES CUBES = ',S 13 ALLER EN 1
 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 PG13, PAGE 56, DETERMINATION DU SEXE EN FONCTION DU NO. DE SS. 255*[PAS TESTE SUR EMULSE] 1 AFFICHER 'DONNEZ VOTRE NUMERO DE SECURITE SOCIALE : ' 3 CHAINE A,B;LIRE B;A_SCH(B,1,1) 7 SI A='1' ALORS AFFICHER 'BONJOUR MONSIEUR' SINON AFFICHER 'BONJOUR MADAME' 9 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 PG14, PAGE 57, COTES D'UN TRIANGLE 255*[PAS TESTE SUR EMULSE] 1 AFFICHER 'TAPEZ 3 NOMBRES ET JE VOUS DIRAI S''ILS PEUVENT ETRE LES COTES' 2 AFFICHER 'D''UN TRIANGLE : ';LIRE A,B,C 3 SI A>=ABS(B-C) ET A
 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 PG15, PAGE 58, CALCUL DE LA MOYENNE DES NOTES D'UN ELEVE 255*[PAS TESTE SUR EMULSE] 1 AFFICHER 'TAPEZ LES NOTES : ';S_0 2 I_0 3 LIRE N; SI N=99 ALORS ALLER EN 6 4 I_I+1 5 S_S+N;ALLER EN 3 6 MOY_S/I;AFFICHER 'MOYENNE = ',MOY 7 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 PG16, PAGE 59, CALCUL DE LA MOYENNE DES NOTES D'UN ELEVE 255*[PAS TESTE SUR EMULSE] 1 AFFICHER 'NOMBRE DE NOTES = ';LIRE T 2 AFFICHER 'TAPEZ LES NOTES : ';S_0 3 I_0 4 LIRE N;I_I+1 5 S_S+N 6 SI I
 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 PG17, PAGE 59, CALCUL DE LA MOYENNE DES NOTES D'UN ELEVE 255*[PAS TESTE SUR EMULSE] 1 AFFICHER 'NOMBRE DE NOTES = ';LIRE T 2 AFFICHER 'TAPEZ LES NOTES : ';S_0 3 I_T 4 LIRE N;I_I-1 5 S_S+N 6 SI I>0 ALORS ALLER EN 4 7 AFFICHER 'MOYENNE = ',S/T 8 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 PG18, PAGE 61, CALCUL DU PGCD DE 2 ENTIERS PAR EUCLIDE 255*[PAS TESTE SUR EMULSE] 1*CALCUL DU PGCD DE 2 ENTIERS NATURELS A ET B 3 AFFICHER 'A=';LIRE A 5 AFFICHER 'B=';LIRE B 7 SI A=B ALORS DEBUT AFFICHER 'PGCD(A,B)=',A;TERMINER FIN 9 SI A>B ALORS A_A-B SINON B_B-A 11 ALLER EN 7
 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 PG19, PAGE 62, CALCUL D'UN POLYNOME PAR LA METHODE DE HORNER 255*[PAS TESTE SUR EMULSE] 1*EVALUATION D'UN POLYNOME PAR LA METHODE DE HORNER 2 AFFICHER 'DEGRE DU POLYNOME : ';LIRE N;AFFICHER 'VALEUR DE X : ';LIRE X 3 I_0;P_0;AFFICHER 'DONNEZ LES COEFFICIENTS DU POLYNOME : ' 4 LIRE COEF;P_P*X+COEF;SI I#N ALORS DEBUT I_I+1;ALLER EN 4 FIN 5 AFFICHER 'VALEUR DU POLYNOME : ',P 6 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 PG20, PAGE 63, EXTRACTION DES NOMS DANS UN LISTE 255*[PAS TESTE SUR EMULSE] 1*EXTRAIRE DE LA CHAINE REF LA LISTE DES NOMS DES ELEVES 4 CHAINE REF 6 AFFICHER 'REF = ';LIRE REF 7 L_LGR(REF)+1 8 I_1 11 AFFICHER GRL(REF,I,J) 12 SI J#L ALORS DEBUT I_J;ALLER EN 11 FIN 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 PG21, PAGE 64, EXTRACTION DES NOMS DANS UNE LISTE SELON CRITERE 255*[PAS TESTE SUR EMULSE] 1*AN EST UNE CHAINE DEC ARACTERES FORMEE PAR LES DEUX DERNIERS CHIFFRES 2*DE L"ANNEE DE NAISSANCE 3 CHAINE REF,AN 4 AFFICHER 'REF= ';LIRE REF;L_LGR(REF)+1 6 AFFICHER 'AN= ';LIRE AN;SI AN='FIN' ALORS ALLER EN 25 8 I_1;N_0 8 A_POS(REF,I,' ') 11 SI SCH(REF,A+1,2)=AN ALORS DEBUT AFFICHER GRL(REF,I);N_N+1 FIN 13 I_SKP(REF,A);SI I#L ALORS ALLER EN 9 17 AFFICHER 'NOMBRE D"ELEVES NES EN ',AN,' = ',N 19 AFFICHER '';ALLER EN 6 25 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 PG22, PAGE 65, CALCUL DU PGCD DE 2 ENTIERS PAR EUCLIDE 255*[PAS TESTE SUR EMULSE] 1*CALCUL DU PGCD DE 2 ENTIERS NATURELS A ET B 3 AFFICHER 'A=';LIRE A 5 AFFICHER 'B=';LIRE B 7 SI A#B ALORS DEBUT SI A>B ALORS A_A-B SINON B_B-A;ALLER EN 7 FIN 9 AFFICHER 'PGCD(A,B)=',A 11 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 PG23, PAGE 66, NOMBRE D'ELEVES INCRITS EN COURS DE LANGUES 255*[PAS TESTE SUR EMULSE] 1 CHAINE REF,L 5 AFFICHER 'REF=';LIRE REF;LONG_LGR(REF) 10 AFFICHER 'NOMBRE D''ELEVES ETUDIANT LA LANGUE DE CODE : ';LIRE L 15 SI L='FIN' ALORS ALLER EN 60 20 N1_0;N2_0;I_1 25 I_POS(REF,I,'.') 30 SI SCH(REF,I-2,1)=L ALORS N1_N1+1 SINON SI SCH(REF,I-1,1)=L ALORS N2_N2+1 35 SI I#LONG ALORS DEBUT I_I+1;ALLER EN 25 FIN 40 AFFICHER ' PREMIERE LANGUE : ',N1 45 AFFICHER ' SECONDE LANGUE : ',N2 50 ALLER EN 10 60 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 PG24, PAGE 68, CALCUL DE LA MOYENNE DE T NOTES 255*[PAS TESTE SUR EMULSE] 1 AFFICHER 'NOMBRE DE NOTES = ';LIRE T 2 AFFICHER 'TAPEZ LES NOTES : ';S_0 3 FAIRE 4 POUR I_1 JUSQUA T 4 LIRE N;S_S+N 5 MOY_S/(I-1);AFFICHER 'MOYENNE = ',MOY 6 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 PG25, PAGE 68, CALCUL DE LA MOYENNE DE T NOTES 255*[PAS TESTE SUR EMULSE] 1 AFFICHER 'NOMBRE DE NOTES = ';LIRE T 2 AFFICHER 'TAPEZ LES NOTES : ';S_0 3 FAIRE 3 POUR I_T PAS -1 JUSQUA 1;LIRE N;S_S+N 4 MOY_S/T;AFFICHER 'MOYENNE = ',MOY;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 PG26, PAGE 69, COMPTE OCCURENCES D'UN CARACTERE DANS UNE CHAINE. 255*[PAS TESTE SUR EMULSE] 1*RECHERCHE DANS UNE PHRASE DONNEE DU NOMBRE N DE LETTRES LET 5 CHAINE LET,PH,CH 7 AFFICHER 'LETTRE : ';LIRE LET 10 AFFICHER 'PHRASE : ';LIRE PH 15 N_0;L_LGR(PH) 18 FAIRE 20 POUR I_1 JUSQUA L 20 SI SCH(PH,I,1)=LET ALORS N_N+1 30 CH_SI N>1 ALORS ' LETTRES ' SINON ' LETTRE ' 35 AFFICHER 'IL Y A ',N,CH,LET,' DANS LA PHRASE : ';AFFICHER PH 40 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 PG27, PAGE 70, CALCUL LA MOYENNE D'UN NOMBRE VARIABLE DE NOTES 255*[PAS TESTE SUR EMULSE] 1 AFFICHER 'TAPEZ LES NOTES : ';S_0;N_0 2 FAIRE 2 POUR I_0 TANT QUE N#99;S_S+N;LIRE N 3 AFFICHER 'MOYENNE = ',S/(I-1);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 PG28, PAGE 71, CODE DE JULES CESAR 255*[PAS TESTE SUR EMULSE] 1*CODE DE CESAR 3 CHAINE CODE,TEXTE,TEXCO,V 4 CODE_'ABCDEFG HIJKLMNOPQRSTUVWXYZ' 5 AFFICHER 'CLE : ';LIRE N 6 AFFICHER 'DONNER LE TEXTE;TERMINER PAR ***' 7 AFFICHER ': ';LIRE TEXTE;TEXCO_'' 10 FAIRE 25 POUR I_1 TANT QUE SCH(TEXTE,I,2)#'***' 12 V_SCH(TEXTE,I,1);X_POS(CODE,1,V) 14 SI X=0 ALORS ALLER EN 25 16 SI N<0 ALORS DEBUT SI X<=-N ALORS X_X+27;ALLER EN 20 FIN 18 SI X>27-N ALORS X_X-27 20 V_SCH(CODE,X+N,1) 25 TEXCO_TEXCO!V 30 AFFICHER TEXCO;AFFICHER 'AUTRE TEXTE ? ';CHAINE REP;LIRE REP 35 SI REP='OUI' ALORS ALLER EN 5 SINON 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 PG29, PAGE 73, RECHERCHE DE CARACTERES DONNES DANS UN TEXTE. 255*[PAS TESTE SUR EMULSE] 1*RECHERCHE DU NOMBRE DE CARACTERES DONNES DANS UN TEXTE 5 CHAINE LIGNE,TEXTE,CS,CAR;TEXTE_'' 10 AFFICHER 'TAPER LE TEXTE LIGNE PAR LIGNE.TERMINER PAR ***' 15 AFFICHER ': ';LIRE LIGNE;TEXTE_TEXTE!LIGNE;L_LGR(LIGNE) 20 SI SCH(LIGNE,L-1,2)#'**' ALORS ALLER EN 15;L1_LGR(TEXTE) 25 AFFICHER 'CARACTERES CHERCHES : ';LIRE CS;L2_LGR(CS);N_0 30 FAIRE 60 POUR I_1 JUSQUA L2;M_0;CAR_SCH(CS,I,1) 35 FAIRE 40 POUR J_1 JUSQUA L1 40 SI CAR=SCH(TEXTE,J,1) ALORS DEBUG N_N+1;M_M+1 FIN 45 SI M=0 ALORS ALLER EN 55 50 AFFICHER 'LE CARACTERE ',CAR,' EST UTILISE ',M,'FOIS';ALLER EN 60 55 AFFICHER 'LE CARACTERE ',CAR,' N''EST PAS UTILISE' 60* 65 AFFICHER 'LES CARACTERES ',CS,' SONT UTILISES ',N,'FOIS';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 PG30, PAGE 75, MINIMUM ET MAXIMUM D'UN ENSEMBLE DE NOMBRES. 255*[PAS TESTE SUR EMULSE] 1*RECHERCHE DU MINIMUM ET DU MAXIMUM D'UN ENSEMBLE DE N NOMBRES 2*LES N NOMBRES SONT RANGES DANS UN TABLEAU TAB 3 AFFICHIER 'N= ';LIRE N 5 TABLEAU TAB[N] 7 AFFICHER 'LECTURE DES N NOMBRES : ';LIRE TAB;AFFICHER '' 9 MIN_TAB[1];MAX_TAB[1] 11 FAIRE 13 POUR I_2 JUSQUA N 13 SI TAB[I]MAX ALORS MAX_TAB[I] 15 AFFICHER 'PLUS PETIT NOMBRE = ',MIN 17 AFFICHER 'PLUS GRAND NOMBRE = ',MAX;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 PG31, PAGE 79, RANGEMENT DE N NOMBRES DANS L'ORDRE CROISSANT. 255*[PAS TESTE SUR EMULSE] 1*RANGEMENT DE N NOMBRES DANS UN TABLEAU DANS L'ORDRE CROISSANT 3 AFFICHER 'N= ';LIRE N;TABLEAU A[N] 5 AFFICHER 'LECTURE DES N NOMBRES : ';LIRE A;AFFICHER '' 7 FAIRE 13 POUR I_1 JUSQUA N-1 9 FAIRE 13 POUR J_I+1 JUSQUA N 11 SI A[I]>A[J] ALORS DEBUT AUX_A[I];A[I]_A[J];A[J]_AUX;FIN 13* 15 AFFICHER A;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 PG32, PAGE 80, RECHERCHE DE MIN ET DE MAX. 255*[PAS TESTE SUR EMULSE] 1*RECHERCHE DE MIN ET DE MAX 2 AFFICHER 'NOMBRE D ELEVES = ';LIRE NEL 3 AFFICHER 'NOMBRE D EPREUVES =';LIRE NEP 4 TABLEAU TAB[NEL,NEP],MINI[NEL],MAXI[NEL] 5 AFFICHER ;LECTURE DES NOTES';LIRE TAB 6 FAIRE 14 POUR I_1 JUSQUA NEP 7 MIN_TAB[1,I];MAX_MIN 9 FAIRE 12 POUR J_2 JUSQUA NEL 11 SI TAB[J,I]<=MIN ALORS MIN_TAB[J,I] 12 SI TAB[J,I]>=MAX ALORS MAX_TAB[J,I] 14 MINI[I]_MIN;MAXI[I]_MAX 15 FAIRE 16 POUR K_1 JUSQUA NEP 16 AFFICHER 'EPREUVE NO= ',K,'MINI= ',MINI[K],'MAXI= ',MAXI[K] 17 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 PG33, PAGE 80, MULTIPLICATION DE DEUX MATRICES 255*[PAS TESTE SUR EMULSE] 1 AFFICHER 'MULTIPLICATION DE 2 MATRICES A[M,N]*B[N,P]';AFFICHER '' 2 AFFICHER 'M= ';LIRE M 3 AFFICHER 'N= ';LIRE N 4 AFFICHER 'P= ';LIRE P;AFFICHER '' 5 TABLEAU A[M,N],B[N,P],T[M,P] 6 AFFICHER 'A= ';LIRE A;AFFICHER 'B= ';LIRE B 7 FAIRE 8 POUR I_1 JUSQUA M;FAIRE 8 POUR J_1 JUSQUA P;T[I,J]_0 8 FAIRE 8 POUR K_1 JUSQUA N;T[I,J]_T[I,J]+A[I,K]*B[K,J] 9 AFFICHER '';AFFICHER 'A=',A;AFFICHER '';AFFICHER 'B=',B 10 AFFICHER '';AFFICHER 'T=A*B=',T;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 PG34, PAGE 83, TABLES D'ADDITION ET DE MULTIPLICATION EN BASE B. 255*[PAS TESTE SUR EMULSE] 1* TABLES D'ADDITION ET DE MULTIPLICATION DANS UNE BSAE DONNEE 2*LA BASE EST INFERIEURE A 10;LES TABLES SONT DE DIMENSION QUECONQUE 3 AFFICHER ' BASE B = ';LIRE B 4 AFFICHER 'DIMENSION DES TABLES EN DECIMAL : ';LIRE N 5 TABLEAU A[N+1,N+1],M[N,N] 6 FAIRE 9 POUR I_1 JUSQUA N+1;FAIRE 9 POUR J_1 JUSQUA N+1 7 X_I+J-2;Z_0;FAIRE 8 POUR K_0 TANT QUE X>=B 8 Z_(X-ENT(X/B)*B)*10^K+Z;X_ENT(X/B) 9 A[I,J]_X*10^K+Z 10 AFFICHER 'TABLE D''ADDITION :';A;AFFICHER '' 12 FAIRE 15 POUR I_1 JUSQUA N;FAIRE 15 POUR J_1 JUSQUA N 13 X_I*J;Z_0;FAIRE 14 POUR K_0 TANT QUE X>=B 14 Z_(X-ENT(X/B)*B)*10^K+Z;X_ENT(X/B) 15 M[I,J]_X*10^K+Z 16 AFFICHER 'TABLE DE MULTIPLICATION :',M 17 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 PG34B, PAGE 84, TABLES D'ADDITION ET MULTIPLICATION EN BASE B. 255*[PAS TESTE SUR EMULSE] 1* TABLES D'ADDITION ET DE MULTIPLICATION DANS UNE BSAE DONNEE 2*LA BASE EST INFERIEURE A 10;LES TABLES SONT DE DIMENSION QUECONQUE 3 AFFICHER ' BASE B = ';LIRE B 4 AFFICHER 'DIMENSION DES TABLES EN DECIMAL : ';LIRE N 5 TABLEAU A[N+1,N+1] 6 FAIRE 9 POUR I_1 JUSQUA N+1;FAIRE 9 POUR J_1 JUSQUA N+1 7 X_I+J-2;Z_0;FAIRE 8 POUR K_0 TANT QUE X>=B 8 Z_(X-ENT(X/B)*B)*10^K+Z;X_ENT(X/B) 9 A[I,J]_X*10^K+Z 10 AFFICHER 'TABLE D''ADDITION :';A;AFFICHER '' 11 LIBERER A;TABLEAU M[N,N] 12 FAIRE 15 POUR I_1 JUSQUA N;FAIRE 15 POUR J_1 JUSQUA N 13 X_I*J;Z_0;FAIRE 14 POUR K_0 TANT QUE X>=B 14 Z_(X-ENT(X/B)*B)*10^K+Z;X_ENT(X/B) 15 M[I,J]_X*10^K+Z 16 AFFICHER 'TABLE DE MULTIPLICATION :',M 17 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 PG34T, PAGE 84, TABLES D'ADDITION ET MULTIPLICATION EN BASE B. 255*[PAS TESTE SUR EMULSE] 1* TABLES D'ADDITION ET DE MULTIPLICATION DANS UNE BSAE DONNEE 2*LA BASE EST INFERIEURE A 10;LES TABLES SONT DE DIMENSION QUECONQUE 3 AFFICHER ' BASE B = ';LIRE B 4 AFFICHER 'DIMENSION DES TABLES EN DECIMAL : ';LIRE N 5 TABLEAU A[N+1,N+1] 6 FAIRE 9 POUR I_1 JUSQUA N+1;FAIRE 9 POUR J_1 JUSQUA N+1 7 X_I+J-2;Z_0;FAIRE 8 POUR K_0 TANT QUE X>=B 8 Z_(X-ENT(X/B)*B)*10^K+Z;X_ENT(X/B) 9 A[I,J]_X*10^K+Z 10 AFFICHER 'TABLE D''ADDITION :';A;AFFICHER '' 11 TABLEAU A[N,N] 12 FAIRE 15 POUR I_1 JUSQUA N;FAIRE 15 POUR J_1 JUSQUA N 13 X_I*J;Z_0;FAIRE 14 POUR K_0 TANT QUE X>=B 14 Z_(X-ENT(X/B)*B)*10^K+Z;X_ENT(X/B) 15 A[I,J]_X*10^K+Z 16 AFFICHER 'TABLE DE MULTIPLICATION :',A 17 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 PG35, PAGE 85, FORMATS 255*[PAS TESTE SUR EMULSE] 1 AFFICHER[2'*',4X.2'*'] 2 AFFICHER[/,2'*',/,4'*',L,4'*',C,'*'] 3 AFFICHER[/,3X,'TABLEAU',/,3X,7'-'] 4 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 PG36, PAGE 88, FORMATS. 255*[PAS TESTE SUR EMULSE] 1 A_1;B_2;C_3;D_4 2 AFFICHER A,B,C 3 AFFICHER D 4 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 PG37, PAGE 88, FORMATS. 255*[PAS TESTE SUR EMULSE] 1 TABLEAU A[3,4];LIRE A;B_5;CHAINE C;C_'LUNDI' 2 AFFICHER A 3 AFFICHER[5'-'] 4 AFFICHER B,A 5 AFFICHER[5'-'] 6 AFFICHER B,A,C 7 AFFICHER[5'-'] 8 AFFICHER B,C,A 9 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 PG38, PAGE 89, FORMATS. 255*[PAS TESTE SUR EMULSE] 1 CHAINE C 2 C_'SI LE NOMBRE DE CARACTERES A AFFICHER EST SUPERIEUR A 72 AUCUN "RETOUR-' 3 C_C!'CHARIOT N''EST INSERE AUTOMATIQUEMENT EN FIN DE LIGNE SUR TTY.' 4 AFFICHER C 5 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 PG39, PAGE 89, FORMATS. 255*[PAS TESTE SUR EMULSE] 1 CHAINE C 2 C_'SI LE NOMBRE DE CARACTERES A AFFICHER EST SUPERIEUR A 72 AUCUN "RETOUR-' 3 C_C!EQC(10)!EQC(13)!'CHARIOT N''EST INSERE AUTOMATIQUEMENT EN FIN DE ' 4 C_C!EQC(10)!EQC(13)!'LIGNE SUR TTY.' 5 AFFICHER C 6 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 PG40, PAGE 89, FORMATS. 255*[PAS TESTE SUR EMULSE] 1 CHAINE C 2 C_'SI LE NOMBRE DE CARACTERES A AFFICHER EST SUPERIEUR A 72 AUCUN "RETOUR-' 3 C_C!EQC(10)!EQC(13)!' CHARIOT N''EST INSERE AUTOMATIQUEMENT EN FIN DE ' 4 C_C!EQC(10)!EQC(13)!' LIGNE SUR TTY.' 5 AFFICHER C 6 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 PG41, PAGE 89, FORMATS. 255*[PAS TESTE SUR EMULSE] 1 CHAINE C 2 C_'SI LE NOMBRE DE CARACTERES A AFFICHER EST SUPERIEUR A 72 AUCUN "RETOUR-' 3 C_C!EQC(13)!EQC(10)!'CHARIOT N''EST INSERE AUTOMATIQUEMENT EN FIN DE ' 4 C_C!EQC(13)!EQC(10)!'LIGNE SUR TTY.' 5 AFFICHER C 6 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 PG42, PAGE 90, FORMATS. 255*[PAS TESTE SUR EMULSE] 1 CHAINE JOUR,MOIS 5 JOUR_'LUNDI';MOIS_'AVRIL' 12 FAIRE 14 POUR I_3 PAS 7 TANT QUE I<=30 14 AFFICHER[/,U,X,F2.0,X,U,'1972']JOUR,I,MOIS 16 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 PG43, PAGE 90, AFFICHAGE D'UN TABLEAU AVEC ET SANS FORMAT 255*[PAS TESTE SUR EMULSE] 1 TABLEAU A[5,5] 2 FAIRE 2 POUR I_1 JUSQUA 5;FAIRE 2 POUR J_1 JUSQUA 5;A[I,J]_J+5*(I-1) 3 AFFICHER A 4 FAIRE 5 POUR I_1 JUSQUA 5;AFFICHER[/];FAIRE 5 POUR J_1 JUSQUA 5 5 AFFICHER[F5.0]A[I,J] 6 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