From 53195fdfcda33ce23d0349d1ca977785fe2fc58a Mon Sep 17 00:00:00 2001 From: olivier Date: Thu, 20 Nov 2008 17:07:43 +0100 Subject: [PATCH] =?UTF-8?q?R=C3=A9cup=C3=A9ration=20des=20fichiers=20de=20?= =?UTF-8?q?l'IUT=20sur=20sterne.u-strasbg.fr?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- P5B1/carmag | Bin 15226 -> 0 bytes P5B1/carmag.cbl | 163 ----------------------------------------------- P5B1/carmag0 | Bin 10124 -> 0 bytes P5B1/carmag0.cbl | 50 --------------- P5B1/impair.cbl | 57 ----------------- P5B1/multpl.cbl | 64 ------------------- P5B1/palind | Bin 10270 -> 0 bytes P5B1/palind.cbl | 91 -------------------------- 8 files changed, 425 deletions(-) delete mode 100644 P5B1/carmag delete mode 100644 P5B1/carmag.cbl delete mode 100644 P5B1/carmag0 delete mode 100644 P5B1/carmag0.cbl delete mode 100644 P5B1/impair.cbl delete mode 100644 P5B1/multpl.cbl delete mode 100644 P5B1/palind delete mode 100644 P5B1/palind.cbl diff --git a/P5B1/carmag b/P5B1/carmag deleted file mode 100644 index b878b01ceb0a0d2885cdb0405e1da0f349c7718f..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 15226 zcmeHOeRP!7nZJ`6aMUOPqqTzgq5;8$$p=Y5*KG-5_^`;gf`YzGGH)`o&X@CnK(Rt& zj>M2{s_aUuo&{}P?eVxA*R~vsyHT)#U3X7pJ*&HQd$3~9Q1BQn)mT|)f4}>Yyc1Fn z?%Mrly>sr|`+J_}KKHqw@4fGP?>)iA^F1DqFs?*+1ySmLpT8Di)l|i)6_)UesrbKK zj0TCk+O3d*mkE$)6lgwpFL}VV+rWpv2$-Hckflc;1k=KoepLv1rWa+JZy~-LeE9wn zAx@nqWWMABigNJF!J{7lrl(!ZgMJ}0T8O;qEns@XTmDWq40wh!>9=0&bIxFrfV!ZL z%2>3iG8Uc@izad#1DRx?M$uuKEZc%5H&I&JNuB4yPlo>!cvj~$c;irPaRK}}@KfNg zfoC0k1-=}f?n3y>WNhe<`bsstdWbB`IZ5M*Ivl6Ns}NSekB4U)O@RMHj^!NgWcv&w zqFK-{&U9=emVG35DTwS3tS`FD;m5+CPXKo@{FU%y;IDwEV;x>1W5s{0JG%GaSx!^t zEy$dh{ge((B=LNSglN%t2}1TElE;eo3#%D{TaHFx`X-4~+YrAAdiO&%Ud z_n|zk5|@fT;Qq&y{xa0pLE!REpTA!7e+o?ZeS}Q^p+u_B5qsG&bbT|uSIch(nf!8% z*++=0A)no&^0UwbCTspu&3_j-i}nD7`~~7Lu-m>dNPp@_L-y{`=^J(Wa`10}{Tyqo zuL;BKdlK?HUF}`zvZoC8)M3=7N^&B-Rt64e3`I~?6$-`XS4&e}GsHO@+{XDr-Qt)^kbTjMFlXObSvhGT;u(VR;|5pf-v&5YHHxD!Wlg}rDg zbcdq}JC||7$c+*@H@1SXop2}{0;4IDQFLLqr0mFDMz%SVL;EG7ZY*otM)gFqb|{?= zZ9)y8+C%AhsI>}$E`}@^NX$j+U$A)5+(x@5P{q!ro$6lvH@=ud6hqj5Q^z}PC;j;!!sPsE{w+Y}hYyHCT{$EQlP|?T z%UhVtl0_IjezX8LnI(*ncf3zxmNdfZI^H8OOB~@;b$qYHEP2Et-Yqd}ATpJ>TVmEk zgw1(;tHi942&dZPDT!G#kvYWcC1wpp77{O$m^BqyMm$Gi)>vc>ah1fZxyX8AOJdew zgatZYCNXO=k|GuovqmEuiTghVVKQqrvX%I##H``ScH%yXS<{hj;vR`v=VXKrm*qD{_zcP40UJ(rccZ;lww?6l zDZh5xffSm)^TE^LwI9ij%0Gd~nze@ybW5k&cI%&&qi>3A>4^z#J-)}cAlt%`Jq$X_ z+K=Q;{CpJo9wbuod&=+#YVXO8+s8Z*Ik(qWL0X{?GF^)+d@!+a=V?eUZ#!Ah+2HG# zSK;gQboeUr^HGvKdadXP4s-?w+74FSa$8sE^Z}(AdZ;qbA#|9umD^6<>lXs_qj+rQ zpG4|Cb6`w+&zPM(V}8CSE zCUHdP9pusrd>ZnGwp`KtD=~b@W1j^tLivkP1k(Cl@{_cVV~X|~i+X{kz2TyLjAmro zS6sArG_A*_?^R8E&P97c)1GwEo+2%H3e{BTZSVewVWIFmD`gL7t&S2HeTc^Fg<$>@ zt%2r&!2;xe3L4sAN+EcvGkB`^-j}I`t8#^Q0$tPP^PkvUxbf79myl{d)rF|;X{z&8 z>?L8Din9*$^T_-T{)%*R)jgzh8+0D8Kx;xRbo_uiN||mo{$vAp3U+}AAo#n;KlzD_ z%RIUfFH+A9!jSs^q{&mE8>CKErnZ5v=Fq_iS*VWo?X0dJ@*gcy$_|UrFIxdEv;#RJ zW0~38zn3yTDdVeP1LWV+Gs_^Q8REJtbIj!b0|NW1Xc2OvwXDLI4bd&x2O^7$$Cm8iy7Ngb zKJt7OB<1%Z-tkgLpQp#u*YVOmbm_tddLAW!xUkUJqStxn8vU0Ia&=L4Oe+$+hJs&Hf<*acyrkl44@%%Rxfen|p z5g!~_2Tc1c($p7^mTtJ7ZWIMh|{9U6OW`ESVKcSsGtS9*heyP&c&ct{Sv zSLE>P8$SGG4Q~2Snq<+uM^#)l=yz4Tob+}TmsV0fe-MA}roCc>ru{oLj*1>^rBsBT zqnl7FTnJiw&!*xIIHjm6A9)Z}`R^c&+ySMUSAVBFpr021D-dc>a?U{pXV&ZckRbJ} z>h(2MuW$4Q-&FPbT1RkeXYh@V;Jux}H#>scv4-Hpx=v*)O<0C_{$c#ND{Arx6?MNF z;xf^Ar9j%f6!A0dzE)Gu%I>4e?qj{dyt4bKwELK}J3nOi53pW9bx9L;A?`ML$_OUE zj-frmu$3KW;jr{mM@awBXQbcv+YxokDtQDvw{6o#(EX=MchT&04C&CvS;yVv%{sA1f#d2Sg({_@6xMfrQU%LipzA(2xXE} znqDt&haSBg+IEl&>9x1%mH*)S|F#2N*(suH|J4{W-0Q8rd1ZbbqT3GCohL-w$qD&S z-Y*oo+PKB(dXWFq`d%C;=?L~`tEvkf|JL;rCe-OWgJlcwe8glT*T|hgF2oC$wEf(7 z?cM#kx7rR)SbMvD+kwsr70L{*@PEb^TG+7ck>Nlgdr8*@qp$6Ruh7@&Z5t@$POVvc zTQ^fNjcb3?jjeUQ7UjGJyBc<3?$fu3>6X}HSq&{MPIK0AtdMmb2)4qZY&4m$!VYN- z^XD&WT-dN6XsrsaxN*^vpo=o^CTms0+{M8L`9j*2He=z{N*u3hoQyTeT9wR(V$>ys zO9uKg)`n2b!Fv-clZ$Q$;q6T(5a6rFA~~Z9ni`X_WFi4;o3lA57E=bwA}EuUIxClO zsHdi0zL#AYie{pC$+H=Bt2q*FX-PX)G@c4Y(^fRm;-sT60TobFPa7NYBE_-r0wsE9 z&awE$#hNr}l2{drGQV)n%7&WoS}8|aso5DUt2If?bDDBl)?6%PWtgutq?$$g(tTM2 zU)I2vHSlE(d|3nkZ)yPVGvs?&6SCmgrVsix0K`o?Oz3d44)4<;za#J)Bfo9p6~Fu@ z$DMOzoB9^Iz8&8ZfcJje=f|o{%*O_s-+Rm8`MsBpYo9W#EBP*BFFe1=@w+g;h1Wta z;}a0_yWpkp{DzDbp}>kRdHO!QyhR8zL_fkOfD!%N&U_1I!f_ow|CR7H@N?l;z&F9C z;lB<40Q_U{&%(b1e+2$l@E^dJ;2Z2X_$%RS;OD}xfNz2~MwMdOSjNJ_O;UjaXG@%4B?M4ilb7rt|D*Y*E>9cTMI zs^hHhXLOux@sf_SonF&%mgA(3S0G-tOX=j>g4sIGx2w%M&f?#V_*QMhR>Zpzp8@*4 zS_bd`#j`rjybkL)ZTO{*vk&#_ILk8ndrA+YgDy}peY9B6*m#{a6-P9tS+#-cKsDm{ zDw#|wG$TC|uRs0=GBrhdYOGXspej&(rmnMyR#eyHC{^Q??aT4Yak=w; zpP#QKjAL7t$Wf`}cc6_K`xx@N3ro?br5vL^*^?_bgwmDSc&aj$OlL!_PGx3O1_x)F zGL^0T!aAcSP*-_ZGJQv7Q!a`lHDRYEl#69&MC)hQ&qy_^BQ`Ty6S*0QR5n(LZ>*Kg z>1;HxQk=Eop?r{9py92Cl~zrlx*i|oJzJH%?Bzbs^Y}k&wV%h{#206;XRIh2?e&lM zPxfELGbY0^_p&7-Mvmu`3(vzp-?|FV7hWz5Vbu__nMalI5QcZAXX5mU*R7sdG8!3+ zQ6=n6-m5^ou4I&=uwQx4*J9!D^y#Z7PMlbRZ_}Qg|EHF-Nwnqc%HDAvV+YJ;r}m!f zQFe(yW>Xw{N`zT-VTKVC!?_11of3gWGV25y<}R9nE-nI*P$nV*;Y|r7RADwP0_enn z4Nf|PoqG|m!Amp2cMC=xv>u^M%Ih#ypkbw&R zycvq1BovP}BZDLo;x8bzsgyXmfJDi7oJUUrVeEukaVjB{XvOgg4YA!$ns}(GDeY`9 zNS^CJ6P=|S4>{H^=LUHW5Pw#eb8>eO)d^ZMx{hj)_riegp zA-v%;q@M-P`HON~YwSgYUXB&eD8teIb$C8UDaWj0=Q@OOu0>8m&O+RsFQ90K=OdkRT+2+rYJh7QqmLmM2pqvij%%M<5VD#~{b`l5s|F3Iro}8gi#0mokL}k87*eYU`aX3@>yf#xaKW`T$lpdQHK5iyphX7E(^IWBxpw&y2J3yU)BrObp2Q2 z+#C9!ah8to{GThipqyO%X};mTK1^=lDxAO3G7Oj(-LK(I8scRY7*8&OiGDClZtr9v zEGE#-$Whr~9K1frt#A=clxsg(R-OLJtFiwuOwde}A^VhZRajV7VPNs|WE7tD$36{G zk-qiyICEV_S8!)BBk&x|`;=$- zhS$d};2X#Kdv+N9dtmMjsetw$0OlUm;6uRNFB<&Mz}(Lod<1y63%?G`Z{%z@>f?EC z?yEU6Szm7f^K66R{~DNkZNonS%!3ey-w(|Fx8eT|nBTh$|M$S$lN&zIS@Xl2;qzNQ z_vwazE-=4T8~%mB+`Ak8MZob!2H-}(oX{B9^ddM1M|bD;a>yHuiggp zd^5j}8(a&_kNE~)3(P|g27e8h$2AOY1m@WegBJqx?25rR0!LhU1#s4dR|E6tkda>p z%%eyKhk$t)%HS4Y9-cDz4qzV0GB^dy6I%x7fDgIwW?+7pH2iyjZ^v20o3Y4Zf87pz z6ns7-*k5)6Tc}S<_m_u(=KymiXa9K`c%ch(?aAY4hW{Ke&*vGu518kPc+igN_XBT4 z`$3)Xlw2YX1J5$!r=(OI1vc}gr{rSsAu!#0@SJUV4wuf{f4E%Z8qmnE)VM|CS-|F< z7wyS4s@ zH8%D=t}$n7+W)s2^CKj&{9uZZb`$>-Li2p%dHy57Jfg<-rG3B9={fIG{)EQn{=-Ka z&(?e|8p?hD;UeIE^arpp8^2$;0@!{3p@IzyXYM~VXw3Z(^IJl!=TD}$HGi|_r!?l1 zjq=-o&GV4=A9iT|Qq6yaeBD2I|KTxUw|!3myYD|dqtiF)^gY1t`wxf6ciHy~;GNJ< zGVi~G*hISUh^IdBuVi9VJ&XC*Vl_C(}+n=zL%2Y;Y&aSU?Vl9>O*gN*( z-0udOWx(w&qF?wM3-jhk-i;W#Ou+XTnQX451$o+b#uEHGy+n!g1ZfG22 zVHcf>IawzhsIRKJR-_or;_3aQ-5N_a;W~%hmD{1*Mj?0Wb~qQ0Z!#GKm&_Z|Z@~N& z4L1gDgP56#4{4QKeyR13QayYtf=enJqwy8DCQu(CyY5>2)yltFjMek6PPEw7vqcmC z5Szu=EXL{?t7oi^F)3HeSS@KY8Jo#iHDlF?F+sg(wr9z|TE=GbuLghhv-w9xeI5VE zsFw`fq_OL(@K;BXI*Qa$q>dtW6saS(7F>1J!WQbjNuX|KeXR&Hm?`^OG!%<&Mk|6) z15@Z}C2f|?nMvA_P$C?2&~khy8Q^V~RI{CpllauD&q4!K*|?H)iBj8deOYRqU=B8 QuFmi)L$0jO;s(=y0}wyZ^#A|> diff --git a/P5B1/carmag.cbl b/P5B1/carmag.cbl deleted file mode 100644 index 183b9ac..0000000 --- a/P5B1/carmag.cbl +++ /dev/null @@ -1,163 +0,0 @@ - IDENTIFICATION DIVISION. - PROGRAM-ID. carmag0. - - AUTHOR. OD. - ***--------------------------------------------------------------- - - *----------------------------------------------------------------* - * PROGRAMME * - * CREATION TABLEAU IMPAIR * - *----------------------------------------------------------------* - - ENVIRONMENT DIVISION. - ***--------------------------------------------------------------- - - DATA DIVISION. - WORKING-STORAGE SECTION. - *--------------------------* - * DEFINITION DES VARIABLES * - *--------------------------* - * Nombre entre au clavier - 77 NBR-DPRT PICTURE 999 VALUE ZERO. - * Tableau du carre magique - 01 TABLE-CARMAG. - * - Numero de ligne - 05 LGN OCCURS 25. - * - Colonnes de la ligne - 10 CLN OCCURS 25. - * - - Contenu de chaque colonne : chiffre - 15 CNTN PICTURE 999. - * Nombre pour verifier le nombre saisie - 77 NBR PICTURE 999 VALUE ZERO. - 88 IMPAIR VALUE 1. - * Valeur a inserer dans le tableau final - 77 VALEUR PICTURE 999 VALUE 1. - * Curseur ligne - 77 CRSR-LGN PICTURE 999 VALUE 1. - * Curseur colonne - 77 CRSR-CLN PICTURE 999 VALUE 1. - * Total d'un calcul puis reutilisation pour diverses taches - 77 TOTAL PICTURE 999 VALUE ZERO. - * Nombre de cases dans le tableau a afficher - 77 NBR-CRR PICTURE 999 VALUE ZERO. - * Reste dans la division euclidienne - 77 RST PICTURE 999 VALUE ZERO. - ***--------------------------------------------------------------- - - PROCEDURE DIVISION. - * - * Nom du programme - * - PROGRAMME SECTION. - * Debut du programme (initialisation) - DEBUT. - DISPLAY "Debut de la saisie...". - PERFORM SAISIE UNTIL IMPAIR. - DISPLAY "Saisie terminee !". - * Corps du programme (contenu) - CORPS. - DISPLAY "Taille du tableau : " NBR-DPRT. - PERFORM REMPLISSAGE. - * Fin du programme - FIN. - DISPLAY "Carre magique fini !!!". - STOP RUN. - - * - * Arborescence de niveau 2 : Saisie de l'utilisateur - * - SAISIR SECTION. - SAISIE. - DISPLAY "Saisissez un chiffre impair inferieur a 26 : " - WITH NO ADVANCING. - ACCEPT NBR-DPRT. - PERFORM VERIF. - VERIF. - DIVIDE NBR-DPRT BY 2 GIVING TOTAL REMAINDER RST. - IF (RST NOT EQUAL TO ZERO AND NBR-DPRT LESS THAN 26) THEN - MOVE 1 TO NBR. - - * - * Arborescence niveau 2 : REMPLISSAGE PUIS AFFICHAGE - * - REMPLISSAGE SECTION. - * Affectation de la premiere valeur, ligne une, colonne du milieu - VAL-UNE. - DISPLAY "Affectation valeur une...". - * COMPUTE TOTAL ROUNDED = NBR-DPRT / 2. - DIVIDE 2 INTO NBR-DPRT GIVING TOTAL ROUNDED. - * Affectation de la premiere valeur a la colonne trouvee - MOVE 1 TO CNTN(1,TOTAL). - * Affectation du numero de colonne vers le curseur des colonnes - MOVE TOTAL TO CRSR-CLN. - DISPLAY "Affectation terminee ! Colonne actuelle : " TOTAL. - VAL-SUIV. - DISPLAY "Affectation des valeurs suivantes...". - MULTIPLY NBR-DPRT BY NBR-DPRT GIVING TOTAL. - MOVE TOTAL TO NBR-CRR. - PERFORM TRAITEMENT UNTIL VALEUR EQUAL TO NBR-CRR. - DISPLAY "Affectations terminees ! Total : " VALEUR. - AFFICHAGE. - DISPLAY "AFFICHAGE DU TABLEAU". - MOVE 1 TO CRSR-LGN. - MOVE 1 TO CRSR-CLN. - PERFORM PARCOURS VARYING CRSR-LGN FROM 1 BY 1 UNTIL CRSR-LGN - > NBR-DPRT. - * AFTER CRSR-CLN FROM 1 BY 1 UNTIL CRSR-CLN - * > NBR-DPRT. - DISPLAY "AFFICHAGE TERMINE". - - * - * Arborescence niveau 3 : TRAITEMENT PLACEMENT - * - TRAITEMENT SECTION. - INCREMENTE. - ADD 1 TO VALEUR. - MLTPL. - DIVIDE VALEUR BY NBR-DPRT GIVING TOTAL REMAINDER RST. - IF (RST EQUAL TO 1) THEN - PERFORM SS-PLCMT - ELSE PERFORM SR-PLCMT. - VERIFICATION. - PERFORM VERIFIER. - PLACEMENT. - DISPLAY "|_Affectation de : " VALEUR. - MOVE VALEUR TO CNTN(CRSR-LGN,CRSR-CLN). - DISPLAY "| Affectee a : " CRSR-LGN ", "CRSR-CLN. - - * - * Arborescence niveau 3 : Affichage du tableau - * - AFFICHER SECTION. - PARCOURS. - PERFORM AFFICHE VARYING CRSR-CLN FROM 1 BY 1 - UNTIL CRSR-CLN >= NBR-DPRT. - DISPLAY "|" CNTN(CRSR-LGN,CRSR-CLN) "|". - AFFICHE. - DISPLAY "|" CNTN(CRSR-LGN,CRSR-CLN) "|" - WITH NO ADVANCING. - - * - * Arborescence niveau 4 : MULIPLE + 1 - * - MULTPL SECTION. - SS-PLCMT. - ADD 1 TO CRSR-LGN. - SR-PLCMT. - SUBTRACT 1 FROM CRSR-LGN. - SUBTRACT 1 FROM CRSR-CLN. - - * - * Arborescence niveau 4 : VERIFICATION LIGNE / COLONNE - * - VERIFIER SECTION. - LIGNE. - IF (CRSR-LGN < 1) THEN - MOVE NBR-DPRT TO CRSR-LGN. - IF (CRSR-LGN > NBR-DPRT) THEN - MOVE 1 TO CRSR-LGN. - COLONNE. - IF (CRSR-CLN < 1) THEN - MOVE NBR-DPRT TO CRSR-CLN. - IF (CRSR-CLN > NBR-DPRT) THEN - MOVE 1 TO CRSR-CLN. diff --git a/P5B1/carmag0 b/P5B1/carmag0 deleted file mode 100644 index d5608e065283a41a6ad123809864bb5b43ad3ca1..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 10124 zcmeHNdvIJ;89)0-2^i?Ml!8#oBB7=;&CRoEsR(J4?E?aoHb6UVx!q)MvMc*?_ijn+ zgSMf-vPOd-Gcb(P4u}kPoazA6L52wg2sr9QMCFg_l$pY8Y;~%lW)xk2zw=0L!^1kF ze|cuUd%oZKzH`oZ-miN{q-(X$=M%>HML-apygOLk3V-eSO42IAqFU79d$E{>Aj(>I zLkA=yAW{{=f}j9pz^!{A2b~K{q71>3;0eLFpr_6jg2ebDq~-9%Fyx@1Ux*`T3YjnE zfMOo}d61DNfl0KBd63p3qqWGJ6b2?4*^O_zF~IjZ6My%4LFau!2GprE8j^{ghGeWh znMfA~tbE35R^c?6k5ZX`Ta|F|^{<^{Eiw%$uebDIRRWBh`1d@M_Y-z2;kaLc;d&9ANw`Km|r*i5bR-H%t6VvQ2=VTMp}+ne6X%YMf4 zlqmPub3Sm)(|+FsHu;B;|6@=$E)3?d0q}_h#z}9cha;p(*qxiNUwPfS4uKH6H=0b^ z*=R1B%1fNe>~JKLNGDv$L}M}O#}fH$GP+apy{WA9cR9I?WcnS~PNY?Yv~xSgqe><3 zX0mp!kd{iROstS}Y$xqHId4GHi6T?`njQ8Ar$3R0v?CeK=bgN;?fz6IZRg!+&b4ip zBE>Sak&E>-sSyvpKb0ll!tkUUOHP4wZy|?-h?i2>ORi0%oK)U%g}v?uq#aA7?Lyv( zAvbF1+)~j*TG&o3>P8{x$>&wLu=}!h{C1<;n=jaXs46d(HD{wb60RN1<)S-LVpL%? zmx}f`LeV3T1w#;X(dn=0TDPjhZnhfPY(65pkn5h zP$Gfp!7sj}6RJT!o^`3352`ReIS#8Z5Emf)3`_`N`j{+h>7$3&(Z__fggz#%M*2vx zl|JT+<@C|1ucVJjvYkFAu}=D!c-GR#1lC0#`QB7~d+eSxXWo-oU(~=iD_Y+#he(Cn3l#lWG4 z-1OU9i*F4cJGs7lL!5JOoDn(M`y*^7;XKrO>|D3&&rnqTGi_O8-Cz z)6BjRcdnc=z??Z2tYuhb96Cc?wLzFz`TTp(zH#tGZE0n&*jXDa`HI2X@~(eWDrGKV z#mHnSGCBBC?dEMm(f3AG%1DQ1m$|0C#;}chPQ*|Egue@O%FiM8fiR5OH!}Nyk=f6T zAoH`vsu+S^AP(1o8Dk3KaN`s^7Wom^u(8Paa)w3Ta9Og*kBX5eN|EtmTD(iA@kLKq zAHyP(XocB_VR!Oi`x&dceK7u~OFt6nYb(pRZ7PR~( z!uE~a@dc03j8bNNgs(cqHZE4vw!KW-`e|Edt=wlY4OSa$m1%568pj|10IAIRDo7_b zqx49zq{==xd2V68f-HP--xI9fZ}E#XWvu0hReZ5H{=(6!;^^X^nXE2F@K7)?G*28x zGghkDqJ!nDhJyaF$eZks#mJGd$k8OMD@ERvedmbmJ4a{s9TuRx_ir-C!{i@Vyv+S! z#UEt&R~0Wys`d9Xe1}K>Uhp4aZ63iNX6-R$ZFwwmLRovP76=AU?EIKloTr87L zk2?8qo#?{AMi+#;G-uK&CL*TBbE z1DL2POwRb^xeyxST1ft<+W(dIC$#@(?Q^fka}>{OJO}bz!ZkCF^Ec0TTkphv5B`;V zgVj89J`H`IBe`)hXHAZk5T*#uK5-DIdY*%M<{U=4 ztLgn|ovz;L*!3T!g<4qxQq9DgSN)j%jQyJZbsqM~=AMG`T998H!dK~UMIDnn8+}1H zHxTL`q|;?nh=v`}T!Wj+He@q7H`?zs3k5IcUIw*8^g_3QyUKJ zzTL`Rj?SR(+5eWk>5tD|-y9K|6{xwtNfe@11-LVOBSxUWubo-G8R>S_NKsP2wdT>QX%YDflp|)SZv9XTNW-{=*OAb z_rU+uayE&!oLxCE*Jtd2+3eJTGkwY~VdZzGus?zCq6^cH8xEH;PA)5~bjEe8m8;g( zql*hG9?i#v72BCcMCH3VVWAUSJDglTkx8EdY{+s>lKP6tCS764YYxkG2EfZJ5G$9F zwoE1WW^aXn zYqfEPU4sCwx76cWI~R+4CwQhq$8b_Ni0dt_hfwK9sh}OxBYgp6 z^mvDS5_;V%gm$bux;-GH$D!Yeg_`%##xX6ryFt`rd3i^^9eUS;H_qsN4FN{)5cCc~ z&&a52_=mI}+fLr$!l0?mh(~Wfc&10aYV1*}KSb}_9z9;ngrH~gf@q58I>9<-dh$I6 zdXwNy)i4h2cp7B#t-*ez2AjE==@E0SF?!q!hM?DuFyp908U-1>_0U@ny{C+l)**Zi z#QbG>v8M`R^Y{kZ&Nx#?KS2P~Gmd(4)1(88?3ciXrznKMyGiTNGwHnp-m4df-gZxb zVgE2g@6~xigb`+((PLs$JcMQF@%_X&!*Y+zvKqGno5LC-M4(~mv+o(V7M-*a^}=_i z4ItJrno^E6Z+Zilp`9tz&ZK9s*XR63tX>q=dz`{5XUtYN6*NsO07BJ7JM*a>k?{JO$H^4lz8u{;lc@=5oe*`}0!IQwe+BEXN1M_m(U_TNX z_uw;tk9cqmFt16C{v6<6qrINMRKoha5SZ7EoWoeYMZmn|=gh+LEd#Fe;LiZ_{@lo~ z2IghI!5zT7(B-W?wY5Y@-xfkK=^DB+pQD4Mw z1AE`bPXO}?gY`>${-pKI+qe($=$3;R|7>7BCG|^OBQ6H^zC|wv<{ML+mRmZ$c^ki0 zWA2Zc-X>x_p7=JN(DGeczDr}ybkr{aoB5G%;|~IJ{{<1`XNyOGz4kl`?0p+&zoF{@ zF}-Jjy>H_$Qtq+m=fE+fuiEPzaSYhx&$sd4Q(wC<{3?3rKh69!;nREtKg;-8%1^6#skeptU%^`1(%K}O zJrPYNcA-KM(1^sCM+>MGBx^RGvE$KnEQx;^Y+esp{3{~cYrFA6`ZlX)K-g=#ZdkRl z%f4at>Wz_ZyL;uTt_T{@{Ewl3EtvURhW;&K>Q@8G7DPXhTPg*=NhJo+I&Yv`W~ zsPd8jYP}i03y5{a1zl|ANug WKO3iH_YuET%>1*%oAkf_(d3^m=Li`9 diff --git a/P5B1/carmag0.cbl b/P5B1/carmag0.cbl deleted file mode 100644 index 75bd221..0000000 --- a/P5B1/carmag0.cbl +++ /dev/null @@ -1,50 +0,0 @@ - IDENTIFICATION DIVISION. - PROGRAM-ID. carmag0. - AUTHOR. OD. - *----------------------------------------------------------------* - * PROGRAMME * - * CREATION TABLEAU IMPAIR * - *----------------------------------------------------------------* - - ENVIRONMENT DIVISION. - - DATA DIVISION. - WORKING-STORAGE SECTION. - *--------------------------* - * DEFINITION DES VARIABLES * - *--------------------------* - * Nombre entrée - 77 NBR-DPRT PICTURE 99 VALUE ZERO. - * Tableau du carré magique - 01 TABLE-CARMAG. - * - Numéro de ligne - 05 NM-LGN OCCURS 31. - * - Colonnes de la ligne - 10 CLN OCCURS 31. - * - - Contenu de chaque colonne : chiffre - 15 CNTN PICTURE 99. - * Curseur ligne - 77 CRSR-LGN PICTURE 99 VALUE 1. - 77 CRSR-CLN PICTURE 99 VALUE 1. - - PROCEDURE DIVISION. - PROGRAMME SECTION. - DEBUT. - MOVE 3 TO NBR-DPRT. - CORPS. - DISPLAY "Taille du tableau : " NBR-DPRT. - PERFORM PARCOURS. - FIN. - DISPLAY "Carré magique terminé.". - STOP RUN. - - TRAITEMENTS SECTION. - PARCOURS. - PERFORM REMP VARYING CRSR-LGN FROM 1 BY 1 UNTIL CRSR-LGN - > NBR-DPRT AFTER CRSR-CLN FROM 1 BY 1 UNTIL CRSR-CLN - > NBR-DPRT. - - REMP. - MOVE 1 TO CNTN(CRSR-LGN, CRSR-CLN). - DISPLAY "CoordonnÃes (" CRSR-LGN ", " CRSR-CLN ") : " - CNTN(CRSR-LGN, CRSR-CLN). diff --git a/P5B1/impair.cbl b/P5B1/impair.cbl deleted file mode 100644 index 43ace52..0000000 --- a/P5B1/impair.cbl +++ /dev/null @@ -1,57 +0,0 @@ - IDENTIFICATION DIVISION. - PROGRAM-ID. multpl. - AUTHOR. OD. - *----------------------------------------------------------------* - * PROGRAMME * - * VERIFICATION NOMBRE MULTIPLE D'UN AUTRE (IMPAIR) * - *----------------------------------------------------------------* - - ENVIRONMENT DIVISION. - - DATA DIVISION. - WORKING-STORAGE SECTION. - *--------------------------* - * DEFINITION DES VARIABLES * - *--------------------------* - * Nombre de départ - 77 NBR-DPRT PICTURE 99 VALUE ZERO. - * Resultat dans la division euclidienne - 77 DV-ECLDN PICTURE 99 VALUE ZERO. - * Reste dans la division euclidienne par 2 - 77 RST PICTURE 9 VALUE ZERO. - * Nombre impair ou pas ? (simulation d'un booléen) - 77 NBR PICTURE 99 VALUE ZERO. - 88 IMPAIR VALUE 1. - * Résultat - 77 RSLTT PICTURE X(30). - - PROCEDURE DIVISION. - *--------------------* - * DEBUT DU PROGRAMME * - *--------------------* - - PROGRAMME SECTION. - - DEBUT. - PERFORM SAISIE UNTIL IMPAIR. - CORPS. - PERFORM PARITE. - FIN. - DISPLAY RSLTT. - STOP RUN. - - SAISIR SECTION. - SAISIE. - DISPLAY "Saisissez un chiffre impair : " - WITH NO ADVANCING. - ACCEPT NBR-DPRT. - PERFORM VERIF. - VERIF. - DIVIDE NBR-DPRT BY 2 GIVING DV-ECLDN REMAINDER RST. - DISPLAY RST. - IF (RST NOT EQUAL TO ZERO) THEN - MOVE 1 TO NBR. - PARITE. - IF (IMPAIR) THEN - MOVE "Le nombre est impair." TO RSLTT - ELSE MOVE "Le nombre n'est pas impair." TO RSLTT. diff --git a/P5B1/multpl.cbl b/P5B1/multpl.cbl deleted file mode 100644 index 995dffd..0000000 --- a/P5B1/multpl.cbl +++ /dev/null @@ -1,64 +0,0 @@ - IDENTIFICATION DIVISION. - PROGRAM-ID. multpl. - AUTHOR. OD. - *----------------------------------------------------------------* - * PROGRAMME * - * VERIFICATION NOMBRE MULTIPLE D'UN AUTRE +1 * - *----------------------------------------------------------------* - - ENVIRONMENT DIVISION. - - DATA DIVISION. - WORKING-STORAGE SECTION. - *--------------------------* - * DEFINITION DES VARIABLES * - *--------------------------* - * Nombre de départ - 77 NBR-DPRT PICTURE 99 VALUE ZERO. - * Nombre à tester - 77 NBR-TEST PICTURE 99 VALUE ZERO. - * Resultat dans la division euclidienne - 77 DV-ECLDN PICTURE 99 VALUE ZERO. - * Reste dans la division euclidienne par 2 - 77 RST PICTURE 9 VALUE ZERO. - * Nombre impair ou pas ? (simulation d'un booléen) - 77 NBR PICTURE 99 VALUE ZERO. - 88 MLTPL VALUE 1. - * Résultat - 77 RSLTT PICTURE X(30). - - PROCEDURE DIVISION. - *--------------------* - * DEBUT DU PROGRAMME * - *--------------------* - - PROGRAMME SECTION. - - DEBUT. - PERFORM SAISIE. - CORPS. - PERFORM PARITE. - FIN. - DISPLAY RSLTT. - STOP RUN. - - SAISIR SECTION. - SAISIE. - DISPLAY "Saisissez un chiffre de base : " - WITH NO ADVANCING. - ACCEPT NBR-DPRT. - DISPLAY "Saisissez le chiffre suivant : " - WITH NO ADVANCING. - ACCEPT NBR-TEST. - PERFORM VERIF. - VERIF. - DIVIDE NBR-TEST BY NBR-DPRT GIVING DV-ECLDN REMAINDER RST. - DISPLAY "RESTE : " RST. - IF (RST EQUAL TO 1) THEN - MOVE 1 TO NBR. - PARITE. - IF (MLTPL) THEN - MOVE "Le nombre est un multiple incrémentÃde un" - TO RSLTT - ELSE MOVE "Le nombre n'est pas un multiple incrÃment - - "à de un." TO RSLTT. diff --git a/P5B1/palind b/P5B1/palind deleted file mode 100644 index bfefc980c88e166f28be93cc7f84e1326e68f26f..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 10270 zcmeHNeQ=b=dEfgGKHI7h7zl|~d=A3FDLQ>31pSC)=>_2k5R$Ov!T8nb?v?J6`^tS_ zL8mn!NOHa^R*NUWj%NxJx9PN*)|1*EHFXjta*)Z`DMLLj)A4jjYrCgGnZX&-C^5

dOqv*HG>a)KuMZ~ zU--mE{QtICh9t_Gk3a_`Gayq1(!3xKWx&lxAqU+KOri|QlE8#uUeM%iLXenWRM~QH zF#$Pfm0O6XVU*=k4k%WEuc8bz4@{z*Wstg1P#4N3`GHAVw)d@U81TBF^B-C5wXPE~ zVWYB97mE(n#lp3*Xd*Wn$Rq=eDxEH~emi#Wqqg*uHg5*40M&qQ1yzIY1brC9y3jAm zSA*^V-2z$#V$?bhP^PLj&Gwg+vln;Ure$MMt?Qom82We~n%wR z8h{fEJWrwI5TB$5fry#O4GFXJ!QJh|aCHY}1os^LgD{Dp*N-<$Qf`?h<&SaA*Go4G=Hp97?Wm<`> zm3Ah?tRMlJrS|ia6q#dzfCSzrUX^zB`2{V%orn9EWs>NBc7RJIu4QjeTd?cP? zyou?tY&f<65}{lghKM&)7-FnN#I1P7$_jJm9@q{?6J{=Bg;5$c?9$@FXhN7)IG7DW zFqFxtbYTvs%*Z2JHj!7CF;6@2M0bm7=)Tc8NQnz&VwnDjLPK;uhbu%~WDMFI%tX zi3&^voF6JMvGKXAz=T!}`AyLEljAwAA;*Z{NRCN(6FDZBdU9B9CP!hd=6uDwP-JnGe}4~W&P|Kb=2g%rZCHzc)}yq6 zo<$g)y;MTjKo297&7PN-o<>;h*(r(XafFZZ?6VTn^N64Lw8X4IWFzr}#H>k#eKC7P zV%8|asc1GOF>4lSBOa8PHH>r-_eji|MtX?bBxa2x1H|7f1N+ZSPspI!^~moxbH2=0UalUS@_y+d6j{1(hOAI^;zI87*$T>C$fWeoRAG8L zF_m38$ubbRdB$7Aw9~;bQ4i*Py+3Y_6uz?#*}Bcnhw)x2E{m&r78um&Cj= zUohs!UaEQUz%}cf=6w<6Kz|;rIHqiQpH*pd zOiLo|Y{h4h#ecS9f{d1)apc;?T*fQ1ZcjoXZ=9boUQ0ovV7wyzKQH}%t=xZE=5o8t zQx1#oVj#>I91W$J6Q_SnUMhW!jdh04c-~zyt`&@HGsnL}Azx1vdIsp9AM^Sy?=S7T zwnT@oREs)4h0g3TBtZ>z{}a~p%P6jRfdzYOE-~TrO!yZ5WQP?5$Av9_jq-y^_Xy+L z9Px*lFONTzS5O{~&3`brMnSrmKk+o{^cVbRW3nAkD%-SJkBld#a(6HBo-d1w-alVJ z4ey5Qm%r^S;*Q+P@**yO5oX!J#dGh%sjK)y0(-YO$%Ox4!eVdA@$@LtoMx+YtIN&K zw!?cEdYOij4x?j;=f6G4vDY>3bVNN$A?+ zOwK3=rpL2)i}4pf0@t~&JaB(s@gYQyPFq;W#^$Pvk0bZ^*cCj*<0tul&-ri7yYt4C zY<)v1|N8g~%xLE?7*#tkWuW=x%uz6WX!FvVv9sQ-e{?1H{jry-_djeNm@ZV;s0kP4 z_5CAX?l3{0k$k?CT{C`A+Z(&=EuAlT#^y`8s{{KFOfVPoIOg*yw0W@;m3k1fI6TJc z?iQU!@9v#Oui@`D`uo8;_xX42>GyB*i@snq6UD33VSg@R`BRZ}Fk>-&`_A3e>hEpe z*>CJJcK3^>deOkD{eO7>T7a`Ft!d6U$GWCB?D*R@|Dnx)Zu48ANL{|GalgiW7WaSL zUvN>2VE@g1+VSIfUt{_)uaEoNbI`|Yn0&wE{*ZxVr3zC8pV<_M`#0{3xevbhX|Ip* zNpS8#{2=aCvGxi)0m)NHM;(&%AYEuB9;3T#P{m3iRMA0%6+9F`VB>Sn(pb6{<})VTb;I&}m#^r_rBk2-F7}uD5lgdN<mji>5T z$#gb2V%231WpKbWl&Krx4zIQ`u(|G$WcrhJL%Ar9p2F5}Fc-_#Mq652YEvO~6jeKt z$kirN*;pMmb9JF~HX7&?H*9#Z9OUL1mcPBv-xz3U!KU1GMEP4K{rwvLZ`kZF<8R{q z^VhXPR4w!P?(l8!-Ol-^9CM9yix?%YcW=7||MC#j^}g3j2)iR>H&?hhF?yO@>o%?1 z_P{##G88N-+#F4w^+??2u23l)SDssKwQzXTrU%xoTj$0O+4aP4)N^);?Ky|CXQfN~ z0k=7*JvY0QUm}n>6wd~Sz_S>_Z531HsZUmD4r(ONk7;%T*K5YPW}kwdA8}{7fFcCq5=lL-`IEMuwnxr|i%+oDy9m9D(Br!U z<*c99%OOr*A(nG@7aEi6qz>9H^J=|84DUhcUC~P5)Fb^NNbB)zxChQ$WhLyuwqrO7 z(t3RKJ8?$MEu9X!+|M9^daN(c!Uv(ZS1W;Qy~h#Pde1@cIp}E_)ph(yTaSGw&uZb2 zbD`IIryY7eys!A)L+{HDJszY~K~LL&Xd%vZf^E!l<^2rw<`LIT!#wokc@XPCy-K`; zRN_UY+#WI48m-57!z$=?B25SCkfuReuOE8-(3?V<4%A^d2V(gwms`eFc$qxTjCRm% z^gUolvY?)PX|naS>|e_C{CIeISf+!v_cjuA9?C|cH|R*vQT=|c^IybEuwMgkt;fhh z9O?7W>vbgPD4IdmRhzgEXPK2+=&;8mjy)X)Fi0mb_U}Z({UEj7!CY&#u_>xF31 zjf+HwX|1xrIlmF88%8ycDXdE7e5J4|f%B5WssPSE3aini-|;BHx=M9A= zlY0n-Ib*1KKw<7k&>wi-73R#bc<1AhI~$BUJa0;W3K>wE)+)RB5?dGtaeNs=L(}!5jdU|cFt_Hw^qvapGV&6 zX+$}1^A>|g-a>|GltlQg#TP!}e^2`|Ag_VHMC(o0?fY*p0fS-1h z=fS`}@4)5dFNfUgD8Cw*`#)uGg}4V;j}I5d#};6xKOMyO_+kCZ+v7pVbzuAPj!g&R zZvb=e#{%j9G%)vh8ovz8y`ILe0*^ZI1>hsV>?h`b9hm!4?oZi1{|d~rQZ4^C%CYz4 zo|W={2j*#-mj5R)DPA1Fr_=*{jz75bz)1&bSv-4cq_2z&xGflgsu90Jj2jCZc~I z1Lk4A#vQ;sq}F%`Fi-O}{x~oX(oqeWzXzBn>Kg9@9)Ld(3zvJ17y`aYj|X?9I0USp zf0ui;cpR8v7{uA*3&8s9f_LnvZMnW<{~KWE9s5^-IbX2;ykmb6nCI*Cm-rQ6=NFYnk-+VaD;{23c_ zW~Kh~z_fadz08v{*Qsf7!Rs{ZWGH8(dF@u z{dNlM;0OOm85Y5zXsz6S^@%`$rwd^#m8pw1wYJn*vEe#-uZz7N_fvt8WZX_6`o8ao z^~r?1zhAs8=RP@;%?%HuOw;V>-_vV$@9gWx9lB|DEItqz}VfnXkUZvz3saUQzI6pYKwn)%nrzXmaEwum9nu(<_%3wQ$~4ULR7;cqL@R`6Ev zRuM9r8~Im{zoxDH+swZv`!fJj#FPBgA+Wird9&>PC_WE3jD|%*Gb}WMnm~*<)bp=_ z?VL%PkzgVm!^aRN52FJ7tRfXMvyoillYya8VeaVOb8maMxo7+KKBM34Z@;(OFy*Hd z@AZ|3{kekt5afUS*u(zlVc|mtYRZp4^cM~CP=Kimk@7D=>`xb{^9w%+aTFzOIX|mV zpIelFfYH{r_&tQIg8rOj$!8S&u0px}i@q;$d}N_M*)Z*oJD6R45aKLuNeT9c8s(ph LI8FZVU$6W(6|{x4 diff --git a/P5B1/palind.cbl b/P5B1/palind.cbl deleted file mode 100644 index 82d066f..0000000 --- a/P5B1/palind.cbl +++ /dev/null @@ -1,91 +0,0 @@ - IDENTIFICATION DIVISION. - PROGRAM-ID. palind. - AUTHOR. OD. - *-------------------------------------------* - * PROGRAMME DE VERIFICATION D'UN PALINDROME * - *-------------------------------------------* - - ENVIRONMENT DIVISION. - DATA DIVISION. - - WORKING-STORAGE SECTION. - *--------------------------* - * DEFINITION DES VARIABLES * - *--------------------------* - * LE MOT DONNE PAR L'UTILISATEUR - 77 MOT PICTURE X(255) VALUE SPACE. - * RESULTAT DU PROGRAMME (ICI ON DIRA "CECI EST UN PALINDROME") - * OU PAS) - 77 RESULTAT PICTURE X(30) VALUE SPACE. - * DEBUT-MOT ET DBUT-FIN SUBISSENT UNE INCREMENTATION - * CE SONT LES CURSEURS - 77 DEBUT-MOT PICTURE 99 VALUE 1. - 77 FIN-MOT PICTURE 99 VALUE 30. - * LETTREG CONTIENDRA UNE LETTRE DU MOT, CELLE COTE GAUCHE - * LETTRED, CELLE COTE DROITE - 77 LETTREG PICTURE X VALUE SPACE. - 77 LETTRED PICTURE X VALUE SPACE. - * DEFINITION DE QUELQUES VALEUR NUMERIQUES - * POUR LES CONTROLES - 01 ETUDE-ENONCE. - 05 COMP-VALID PICTURE 9 VALUE 1. - 88 COMP-CORRECT VALUE 1. - 05 CARAC-DEB PICTURE 9 VALUE 1. - 88 CARACD-CORRECT VALUE 1. - 05 CARAC-FIN PICTURE 9 VALUE 1. - 88 CARACF-CORRECT VALUE 1. - - PROCEDURE DIVISION. - *NOM DU PROGRAMME - PRINCIPAL SECTION. - - DEBUT. - PERFORM SAISIE. - CORPS. - PERFORM TRAITER. - FIN. - DISPLAY RESULTAT. - DISPLAY "FIN DU TRAITEMENT". - STOP RUN. - - *SAISIE DU MOT - SAISIR SECTION. - SAISIE. - DISPLAY "Saisissez une phrase : " WITH NO ADVANCING. - ACCEPT MOT. - *------* - * TEST * - *------* - DISPLAY MOT. - - *TRAITEMENT DE LA PHRASE - TRAITEMENT SECTION. - TRAITER. - PERFORM COMPARER UNTIL NOT COMP-CORRECT. - *VALIDE IS NOT EQUAL TO 1. - - *COMPARAISON DE LA CHAINE DE CARACTÈRE - COMPARER. - DISPLAY DEBUT-MOT. - DISPLAY FIN-MOT. - * PERFORM PARCOURS-FIN UNTIL NOT CARACF-CORRECT. - MOVE ZERO TO COMP-VALID. - - *PARCOURS DE LA CHAINE DE FIN - PARCOURS-FIN. - DISPLAY "DERNIERE LETTRE DU MOT : " MOT(FIN-MOT:1). - IF (MOT(FIN-MOT:1) EQUAL TO SPACE) THEN - SUBTRACT 1 FROM FIN-MOT - ELSE MOVE 1 TO CARAC-FIN - END-IF. - * MOVE MOT(FIN-MOT:1) TO LETTRE. - * PERFORM CAL-CHFFRE UNTIL LETTRE NOT EQUAL TO SPACE. - * IF (MOT(DEBUT-MOT:1) EQUAL TO MOT(FIN-MOT:1)) - * MOVE 1 TO VALIDE - * END-IF. - - *CALCUL DU CHIFFRE DE LA LETTRE À COMPARER - CAL-CHFFRE. - IF (MOT(FIN-MOT:1) EQUAL TO SPACE) THEN - SUBTRACT 1 FROM FIN-MOT - END-IF.