Математическое моделирование биполярных транзисторов типа p-n-p
| Категория реферата: Рефераты по радиоэлектронике
| Теги реферата: сочинения по картинам, диплом работа
| Добавил(а) на сайт: Lapunov.
Предыдущая страница реферата | 2 3 4 5 6 7 8 9 10 11 12 | Следующая страница реферата
'N': goto 2; else begin sound(500); delay(1000); nosound; goto 1; end; end;
3:;
end;
Procedure InputCurrent;
Label 1,2,3;
begin clrscr;
TNOM:=27;
T:=21;
Ueb:=0.8;
Uec:=2;
Ucb:=-1.2;
gotoxy(col+25,row+1); write(' Default parameters');
gotoxy(col+3,row+3); write('[Nominal temperature (C)] '); gotoxy(col+39,row+3); write(TNOM);
gotoxy(col+3,row+4); write('[Current temperature (C)] '); gotoxy(col+39,row+4); write(T);
gotoxy(col+3,row+5); write('[Emitter-Base voltage] '); gotoxy(col+39,row+5); write(Ueb);
gotoxy(col+3,row+6); write('[Emitter-Collector voltage] '); gotoxy(col+39,row+6); write(Uec);
gotoxy(col+3,row+7); write('[Collector-Base voltage] '); gotoxy(col+39,row+7); write(Ucb);
1: gotoxy(col+6,row+25); write('Accept current parameters (Y/N) '); an:=readkey; case an of 'y': goto 3;
'Y': goto 3;
'n': goto 2;
'N': goto 2; else begin sound(500); delay(1000); nosound; goto 1; end; end;
2: clrscr; gotoxy(col+20,row+2); write('Input next current parameters');
gotoxy(col+3,row+3); write('[Nominal temperature (C)] '); gotoxy(col+40,row+3); read(TNOM); gotoxy(col+39,row+3); write(TNOM);
gotoxy(col+3,row+4); write('[Current temperature (C)] '); gotoxy(col+40,row+4); read(T); gotoxy(col+39,row+4); write(T);
gotoxy(col+3,row+5); write('[Emitter-Base voltage] '); gotoxy(col+40,row+5); read(Ueb); gotoxy(col+39,row+5); write(Ueb);
gotoxy(col+3,row+6); write('[Emitter-Collector voltage] '); gotoxy(col+40,row+6); read(Uec); gotoxy(col+39,row+6); write(Uec); 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);
Рекомендуем скачать другие рефераты по теме: курсовые, проблема реферат, реферат сила.
Категории:
Предыдущая страница реферата | 2 3 4 5 6 7 8 9 10 11 12 | Следующая страница реферата
Главная