#include "csscom.h"
double U,Y;
_titleS[0]=0;gopen(0);GDS_setcompat(1);tpalet();
LTIME=50;DT=.1;_xamt=1./LTIME;
sprintf(_grapS[0],"U");
sprintf(_grapS[1],"Y/2");
Y=0;
_gtyp=10;_inigrap(_gtyp,_titleS,LTIME,_grapS,2);
for(TIME=0;TIME<=LTIME;TIME+=DT){
_zn=0;
/**** DELAY **** */
U=STEP(0);
Y=DELAY(10,U);
_gpset(_gtyp, U, 0);
_gpset(_gtyp, Y/2, 1);
}
locate(78,22,CON);while(ESC!=getch());rpalet();gclose();putchar('\n');}