Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата

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

for i:=200 downto -200 do begin

Model(Ueb*(i)/200,-(Uec-Ueb*(i)/200),Ieb,Icb,Ib,Iy);

if Kyf=0 then begin

Kyf:=300/Ib;

Str(Ieb,stro1);

Str(Ueb,stro2); end;

if abs(Kyf*Ib)< 10e5 then Lineto(x0+i, y0-round(Kyf*Ib)); end;

Str(-Ieb,stro3);

Str(-Ueb,stro4);

OutTextXY(x0-40,Y0-300,'+Ib = ');

OutTextXY(x0+3,Y0-300,Stro1);

OutTextXY(x0+60,Y0+10,'+Ueb = ');

OutTextXY(x0+100,Y0+10,Stro2);

OutTextXY(x0-250,Y0+10,'-Ib = ');

OutTextXY(x0-210,Y0+10,Stro3);

Рекомендуем скачать другие рефераты по теме: курсовые, проблема реферат, реферат сила.



Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки