0 / 0 / 0
Регистрация: 08.04.2008
Сообщений: 5
1

Вычисление общего сопротивления N последовательно соединённых одинаковых сопротивлений

08.04.2008, 19:40. Показов 1954. Ответов 2
Метки нет (Все метки)

Создать проект, который вычисляет общее сопротивление N последовательно соединённых одинаковых сопротивлений. N и сопротивление вводятся с клавиатуры. Вывести надо общее сопротивление.
P. S. знаю, что задача легкая, но я ламер, помогите плиз!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.04.2008, 19:40
Ответы с готовыми решениями:

Вычисление сопротивления цепи из нескольких проводников, соединенных последовательно
На С++ Цикл "ПОКА" Написать программу для вычисления сопротивления цепи из нескольких...

Вычисление сопротивления цепи, состоящей из двух резисторов (соединенных последовательно или параллельно)
Написать функцию, которая вычисляет сопротивление цепи, состоящей из двух резисторов, которые могут...

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

Вычисление общего сопротивления для последовательного и общего сопротивления
import javax.swing.*; import java.awt.*; import java.awt.event.ActionEvent; import...

2
13207 / 6595 / 1041
Регистрация: 10.01.2008
Сообщений: 15,069
08.04.2008, 20:41 2
Лучший ответ Сообщение было отмечено DeMoS как решение

Решение

Кладешь на форму два Edit'а, и Button. В первый эдит вводишь сопротивление, а во второй - N.
Когда чел жмет на баттон, пишешь код:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button1Click(Sender:TObject);
var r:Double;
    n:Integer;
begin
    try
        r := StrToFloat(Edit1.Text);
    except
        MessageBox(Handle, 'Введите значение сопротивления', 'Ошибка', 0);
        exit;
    end;
    n := StrToIntDef(Edit2.Text, -1);
    if n<0 then begin
        MessageBox(Handle, 'Введите количество сопротивлений', 'Ошибка', 0);
        exit;
    end;
    r := r * n;
    MessageBox(Handle, PChar('Результат = ' + FloatToStrF(r, ffFixed, 15,3)), 'Результат', 0);
end;
0
0 / 0 / 0
Регистрация: 08.04.2008
Сообщений: 5
08.04.2008, 21:31  [ТС] 3
Спасибо большое!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.04.2008, 21:31
Помогаю со студенческими работами здесь

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

Вычисление сопротивления электрической цепи, состоящей из двух сопротивлений
Делал по этой задаче: 4) Написать программу вычисления сопротивления электрической цепи,...

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

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

Найти сопротивление соединения (из трех параллельно соединенных сопротивлений)
Дано: Три сопротивления R1,R2,R3 соединены параллельно. Найти сопротивление соединения.

Ввести значения сопротивлений резисторов, соединенных параллельно и вычислить общее сопротивление
Часть 2. Составить программу, в которой вводятся значения 4 резисторов, соединенных параллельно....


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

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

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