|
Вопрос # 3 990/ вопрос открыт / |
|
Здравствуйте, эксперты!
Помогите пожалуйста с выполнением заданий (нужно решение)
1) разработать приложение для вычисления сопротивления электрической цепи, состоящей из двух сопротивлений. Сопротивления могут быть соединены последовательно или параллельно. Если величина сопротивления цепи превышает 1 000 Ом, то результат должен быть выведен в кило омах.
 |
Вопрос задал: serega7235 (статус: Посетитель)
Вопрос отправлен: 7 апреля 2010, 14:39
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 7 апреля 2010, 15:14; участников в обсуждении: 2.
|
min@y™ (статус: Доктор наук), 7 апреля 2010, 14:49 [#1]:
Ну в чём проблема-то? Не знаешь формулу расчёта сопротивления параллельных резисторов?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
serega7235 (статус: Посетитель), 7 апреля 2010, 14:55 [#2]:
с delphi что то у меня совсем туго
|
|
|
min@y™ (статус: Доктор наук), 7 апреля 2010, 14:59 [#3]:
// Вычисление суммарного сопротивления:
// при Serial = True - соединение последовательное,
// итначе - параллельное.
function GetResistance(const R1, R2: Double; const Serial: Boolean): Double;
begin
if Serial
then Result:= R1 + R2
else Result:= R1 * R2 / (R1 + R2);
end;
// Перевод номинала сопротивления в строку:
// если > 1000 Ом - в килоомах.
function OhmsToStr(const Nominal: Double): string;
begin
if Nominal > 1000
then Result:= FloatToStrF(Nominal / 1000, ffFixed, 15, 3) + ' кОм'
else Result:= FloatToStrF(Nominal, ffFixed, 15, 3) + ' Ом';
end;
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
serega7235 (статус: Посетитель), 7 апреля 2010, 15:14 [#4]:
спасибо
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
