Отправлено Iwan 14 июня 2005 г. 10:55 В ответ на: Ответ: А как считать ёмкость? отправлено <font color=gray>MaxVovk</font> 14 июня 2005 г. 10:46

CLS
LOCATE 5, 5:
PRINT " Расчет силы тока при использовании конденсатора в качестве"
LOCATE 6, 5:
PRINT " балластного резистора при питании от сети 220вольт 50 герц."
10 LOCATE 10, 26: PRINT " ": LOCATE 10, 15: INPUT "Емкость (mF)"; c
IF c = 0 THEN GOTO 1000
u = 220: pi = 3.14: f = 50
xc = 1000 / (2 * pi * f * c): REM C в микрофарадах.
i = u / xc
PRINT : PRINT " Xc="; xc; "кОм, I="; i; "милиампера "
GOTO 10
1000 END