Prgm 0»x x+3»y For x,1,10 "Nombre: "&string(x)»s PxlText s,1,1 Pause EndFor EndPrgm
donne
// Code source C // Créé par basc89, Limmt Ribeman © 2005 #include <tigcclib.h> char *strbuf=NULL; char *strbuf2=NULL; char *strs=NULL; float y=0; short x=0; char *s=NULL; void _main (void) { strs=malloc(25); x=0; y=x+3; for(x=1;x<=10;x++) { if(strbuf) free(strbuf); strbuf=malloc(9); strcpy(strbuf,"Nombre: "); strbuf2=malloc(strlen(strbuf)+3); strcpy(strbuf2,strbuf); sprintf(strs,"%d",x); strcat(strbuf2,strs); free(strbuf); strbuf=strbuf2; s=malloc(strlen(strbuf)+1); strcpy(s,strbuf); DrawStr(1,1,s,A_REPLACE); ngetchx(); } free(strs); if(strbuf) free(strbuf); strbuf=NULL; if(s) free(s); s=NULL; }
et
Prgm ClrDraw 20»x PxlText "Test",10,x For x,1,157 PxlOn 5+x/3,x EndFor Pause EndPrgm
donne
// Code source C // Créé par basc89, Limmt Ribeman © 2005 #include <tigcclib.h> char *strbuf=NULL; char *strbuf2=NULL; char *strs=NULL; short x=0; void _main (void) { strs=malloc(25); clrscr(); x=20; DrawStr((short)(x),10,"Test",A_REPLACE); for(x=1;x<=157;x++) { DrawPix((short)(x),(short)(5+x/3),A_NORMAL); } ngetchx(); free(strs); if(strbuf) free(strbuf); strbuf=NULL; }