Jour 21 : Programme de l'Avent TI-83 Premium CE

→ **MyCalcs** profile · de **critor** » 21 Déc 2016, 00:01

Nous interrompons ce programme pour un programme spécial :

Code: Tout sélectionner: EnrBDG BDG0 ZDécimal AxesNAff FoncNAff QuadNAff GraphNAff 40Xmax→Xmax 40Ymax→Ymax 0→Xmin 0→Ymin ArrPlanNAff CouleurBord 1 {0,132,133,0,155,158,0,160,160,0,162,165,1,131,134,1,136,136,1,141,141,1,143,143,1,146,146,1,153,153,1,155,157,1,160,160,1,162,165,2,132,133,2,142,142,2,144,145,2,147,148,2,150,151,2,155,158,2,161,162,2,164,165,3,155,156,3,160,165,4,160,161,4,164,165,5,159,165,6,159,165,7,159,165,8,158,165,9,158,165,10,157,165,11,157,165,12,157,165,13,157,165,14,157,165,15,157,165,16,157,165,17,158,165,18,159,165,19,160,165,20,161,165,21,159,165,22,143,143,22,145,165,23,143,165,24,159,165,25,159,159,25,162,165,26,160,165,27,160,165,28,159,165,29,159,165,30,159,165,31,158,165,32,157,165,33,157,165,34,157,165,35,157,165,36,157,165,37,156,165,38,156,165,39,155,165,40,154,165,41,154,165,42,154,165,43,155,165,44,156,165,45,157,165,46,158,165,47,159,165,48,159,165,49,159,165,50,159,165,51,159,165,52,154,165,53,151,165,54,150,165,55,150,165,56,146,147,56,150,165,57,146,147,57,150,165,58,147,147,58,151,165,59,155,165,60,155,165,61,155,165,62,155,165,63,155,165,64,155,165,65,154,165,66,155,165,67,154,165,68,155,165,69,153,165,70,151,165,71,151,165,72,150,165,73,149,165,74,148,165,75,148,165,76,148,165,77,148,165,78,149,165,79,150,165,80,151,165,81,152,165,82,151,165,83,155,165,84,155,165,85,155,165,86,155,165,87,155,165,88,155,165,89,154,165,90,155,165,91,155,165,92,155,165,93,153,165,94,150,165,95,150,165,96,146,147,96,150,165,97,146,147,97,150,165,98,147,147,98,150,165,99,154,165,102,154,165,103,154,165,104,154,157,105,154,157,106,154,165,107,154,157,108,154,157,109,154,165,110,152,165,111,152,157,112,151,157,113,152,157,114,152,165,115,154,157,115,159,165,116,154,157,117,154,157,118,154,165,119,154,157,120,154,157,121,154,165,122,155,155,124,156,165,125,154,165,126,155,165,127,160,165,128,155,165,129,150,165,130,149,165,131,148,165,132,147,165,133,145,145,133,147,165,134,147,165,135,148,165,136,148,165,137,149,165,138,154,165,139,160,165,140,156,165,141,154,165,142,155,165,143,161,165,144,162,165,145,162,165,146,162,165,147,153,165,148,153,165,149,153,165,150,153,165,151,153,165,152,153,165,153,152,165,154,152,165,155,153,165,156,153,165,157,153,165,158,153,165,159,153,165,160,153,165,161,161,165,162,162,165,163,162,165,164,162,165,165,162,165,166,162,165,167,163,163,168,163,165,169,163,165,170,162,165,171,160,165,172,163,163,173,163,163,174,163,163,175,163,163,176,163,163,177,163,163,178,163,165,179,160,165,180,156,165,181,150,165,182,143,165,183,149,165,184,153,165,185,146,165,186,144,165,187,155,165,188,156,165,189,159,165,190,159,165,191,159,165,192,159,165,193,159,165,194,146,165,195,146,165,196,144,165,197,141,142,197,146,165,198,142,142,198,146,165,199,158,165,200,161,165,201,161,165,202,161,165,203,161,165,204,161,165,205,161,165,206,161,165,207,159,165,208,154,165,209,150,151,209,153,165,210,147,150,210,153,165,211,150,150,211,153,165,212,155,165,213,159,165,214,164,165,215,164,165,216,164,165,217,160,160,217,163,165,218,159,161,218,163,165,219,159,165,220,159,165,221,155,165,222,155,155,222,157,165,223,153,165,224,155,165,225,156,165,226,157,157,226,159,165,227,159,165,228,159,160,228,163,165,229,159,159,229,163,165,230,117,120,230,161,165,231,116,121,231,163,165,232,110,122,232,147,165,233,109,165,234,91,165,235,110,124,235,135,165,236,116,121,236,161,163,237,117,120,237,161,163,238,161,163,239,161,165,240,161,165,241,161,163,242,161,163,243,160,165,244,157,165,245,155,165,246,154,165,247,154,165,248,153,165,249,152,165,250,152,165,251,152,165,252,152,165,253,152,165,254,152,165,255,153,165,256,154,165,257,155,165,258,156,165,259,159,165,260,160,165,261,157,165,262,155,165,263,155,165,264,155,165 For(I,1,dim(Rep),3 Ligne(Rep(I),Ymax-Rep(I+1),Rep(I),Ymax-Rep(I+2),GRIS CLR,1 End CouleurTexte(GRIS MOY Texte(1,0,0,"Ich bin ein Berliner ! Texte(16,0," Frohe Weihnachten 2016 mit viel Mut, Texte(30,0," weil Leben weitergehen muß, Texte(44,0," um den größten Feind des Menschen Texte(58,0," zu überwinden. While non(getKey End RappelBDG BDG0 DelVar BDG0 Disp