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

if (Ueb = 0) or (Uec = 0) then

begin

gotoxy(col+3,row+7);

write('[Collector-Base voltage] ');

gotoxy(col+40,row+7);

read(Ucb);

gotoxy(col+39,row+7);

write(Ucb);

if Uec <> 0 then

begin

Ueb := Uec + Ucb;

gotoxy(col+39,row+5);

write(Ueb);

end

else

begin

Uec := Ueb - Ucb;

gotoxy(col+39,row+6);

write(Uec);

end;

goto 1;

end;

Ucb := -(Uec - Ueb);

gotoxy(col+3,row+7);

write('[Collector-Base voltage] ');

gotoxy(col+39,row+7);

write(Ucb);

3: TNOM:=TNOM+273.15;

T:=T+273.15;