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;
}





