Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 04.09.2017
Сообщений: 26
1

Расчёт сопротивления цепи

13.09.2017, 21:01. Показов 1811. Ответов 7
Метки нет (Все метки)

Программа для расчёта сопротивления цепи с тремя резисторами при параллельном и последовательном соединениях (использовать RadioButton).
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.09.2017, 21:01
Ответы с готовыми решениями:

Вычисление сопротивления электрической цепи
Вычисление сопротивления электрической цепи, состоящей из двух последовательно соединенных...

Расчёт входного сопротивления
В схеме необходимо определить входное сопротивление. Схема состоит из источника ТОКА и резисторов с...

Расчёт входного сопротивления в двухполюснике
Всем привет. Дали задание, а как решать не знаю. Вообще не силён в этой теме, поэтому не могли бы...

Сопротивления в цепи
Собирали цепи с последовательным соединением трех элементов: Катушка(Zk), резистор(R),...

7
Модератор
7466 / 4884 / 2043
Регистрация: 21.01.2014
Сообщений: 20,780
Записей в блоге: 3
14.09.2017, 06:44 2
igrodar, а вопрос в чем?
0
369 / 168 / 44
Регистрация: 11.07.2013
Сообщений: 901
14.09.2017, 08:28 3
Если RadioButton1.Enabled=true (последовательное соединение), то
Rx:=R1+R2+R3
Иначе (параллельное соединение)
Rx:=R1*R2*R3 / (R2*R3+R1*R3+R1*R2)
1
Эксперт Pascal/Delphi
2380 / 1292 / 1491
Регистрация: 29.08.2014
Сообщений: 4,626
14.09.2017, 08:29 4
Лучший ответ Сообщение было отмечено igrodar как решение

Решение

на форме Edit1,Edit2,Edit3,Edit4,RadioGroup1 и button1 в обработчике button1:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
var
  r:real;
  r1,r2,r3:real;
begin
  edit4.Text:='0';
  if not TryStrToFloat(edit1.Text,r1) then ShowMessage('R1 - не верное сопротивление') else
  if not TryStrToFloat(edit2.Text,r2) then ShowMessage('R2 - не верное сопротивление') else
  if not TryStrToFloat(edit3.Text,r3) then ShowMessage('R3 - не верное сопротивление') else
    begin
     if RadioGroup1.ItemIndex=0 then r:=r1+r2+r3 else r:=r1*r2*r3/(r1*r2+r2*r3+r1*r3);
     edit4.Text:=FloatToStrf(r,ffFixed,0,6);
    end
end;
1
0 / 0 / 0
Регистрация: 04.09.2017
Сообщений: 26
14.09.2017, 11:19  [ТС] 5
Нужен исходный код
0
Эксперт Pascal/Delphi
2380 / 1292 / 1491
Регистрация: 29.08.2014
Сообщений: 4,626
14.09.2017, 13:06 6
Цитата Сообщение от igrodar Посмотреть сообщение
Нужен исходный код
срочно займись учебой! Я собственно его и привел!
0
0 / 0 / 0
Регистрация: 04.09.2017
Сообщений: 26
15.09.2017, 20:02  [ТС] 7
Я знаю. Отвечала не Вам.
0
northener
16.09.2017, 01:44     Расчёт сопротивления цепи
  #8

Не по теме:

Цитата Сообщение от igrodar Посмотреть сообщение
Отвечала
Имхо, девочки не должны рассчитывать параметры электрических цепей. Даже если их ник ни разу не девичий. :)

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.09.2017, 01:44

Посчитать сопротивления цепи
Найти сопротивление между клеммами A и B цепи, состоящей из бесконечного числа одинаковых...

Расчет сопротивления цепи
Здравствуйте. Как рассчитывать сопротивления цепей, таких как во вложении? Я разобрался как...

Определение сопротивления в цепи
Для заданной цепи относительно заданных зажимов (точек) определить входные сопротивления Rвх1 и...

Определение полного сопротивления цепи
Неразветвлённая цепь переменного тока, содержит активные, индуктивное и емкостные...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru