Реферат: Математическое моделирование биполярных транзисторов типа p-n-p

write('[CBC] ');

gotoxy(col+39,row+18);

write(CBC);

gotoxy(col+6,row+25);

write('Pres any key to Main menu ');

readkey;

end;

procedure IGraph;

var

grDriver: Integer;

grMode: Integer;

ErrCode: Integer;

i,x0,y0: Integer;

stro1,stro2,stro3,stro4:string;

begin

grDriver := Detect;

InitGraph(grDriver, grMode,'');

ErrCode := GraphResult;

if ErrCode = grOk then

begin { Do graphics }

x0:=320;

y0:=350;

Kyf:=0;

OutTextXY(250,10,'Graphic Ib=f(-Ueb)');

Line(x0, y0-150, x0, Y0+150);

Line(x0-200, y0, X0+200, Y0);

setcolor(0);

LineTo(x0+200, y0-300);

setcolor(2);