Commit ce6479ff authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Removed files under non-owned copyright.

parent 924610fb
*~
\#*
.\#*
.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<B+C ALORS AFFICHER 'OUI' SINON AFFICHER 'NON'
4 AFFICHER 'VOULEZ-VOUS RECOMMENCER ? OUI/NON : ';CHAINE R;LIRE R
5 SI R='OUI' ALORS ALLER EN 10 SINON AFFICHER 'C''EST DOMAGE...'
6 AFFICHER 'ON S''AMUSAIT SI BIEN !';TERMINER
10 AFFICHER 'BRAVO ! RETAPEZ 3 NOMBRES QUE VOUS PENSEZ ETRE LES COTES'
11 ALLER EN 2
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<T 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 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]<MIN ALORS MIN_TAB[I] SINON 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