Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
Trahtinberg
0 / 0 / 0
Регистрация: 09.01.2012
Сообщений: 10
1

Написать функцию,которая вычисляет сопротивление цепи

20.03.2012, 10:59. Просмотров 1260. Ответов 3
Метки нет (Все метки)

Написать функцию,которая вычисляет сопротивление цепи,состоящей из 2х резисторов.Параметрами функции являются величины сопротивлений и тип соединения(параллельный и последовательный).Функция должна проверять корректность параметров:если неверно указан тип соединения,то функция должна возвращать -1.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.03.2012, 10:59
Ответы с готовыми решениями:

Написать функцию, которая вычисляет объем шара
PASCAL. Написать функцию(в ПАСКАЛЕ), которая вычисляет объем шара. Параметром...

Рекурсия. Написать рекурсивную функцию которая вычисляет длину строки
Всем доброго времени суток! Задача. Написать рекурсивную функцию которая...

Написать процедуру или функцию которая вычисляет значения выражения f(x)
Найти ОДЗ х , Написать процедуру или функцию , которая вычисляет ОДЗ аргумента...

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

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

3
MayaNash
1291 / 460 / 151
Регистрация: 24.08.2011
Сообщений: 2,248
20.03.2012, 18:02 2
Pascal
1
2
3
4
5
6
7
8
function R (connType: integer; R1, R2: real): real;
begin
case connType of
1{последовательное}: R:=R1 + R2;
2{параллельное}: R:=1/(1/R1 + 1/R2);
else R:=-1;
end;
end;
Ну только там нужна менюшка типа "1 - последовательное, 2 - параллельное".
0
Trahtinberg
0 / 0 / 0
Регистрация: 09.01.2012
Сообщений: 10
20.03.2012, 20:47  [ТС] 3
Не могли бы тогда по подробнее расписать??
0
MayaNash
1291 / 460 / 151
Регистрация: 24.08.2011
Сообщений: 2,248
22.03.2012, 19:12 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses crt;
 
var
R1,R2: real;
connType: integer;
 
{--------------------------------------------------------------------}
function R: real;
begin
case connType of
 1: R:=R1 + R2;
 2: R:=1/(1/R1 + 1/R2);
 else R:=-1;
 end;
end;
{--------------------------------------------------------------------}
 
 
begin clrscr;
write('R1 = '); readln(R1);
write('R2 = '); readln(R2);
write('Укажите тип соединения (1 - последовательное, 2 - параллельное): ');
readln(connType);
 
writeln('R = ',R:5:2);
readkey; end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.03.2012, 19:12

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

Pascal. Написать функцию, которая вычисляет среднее арифметическое отрицательных элементов массива
Написать функцию , которая вычисляет среднее арифметическое отрицательных...

Написать программу, которая вычисляет значение p = (для вычисления факториала использовать функцию)
Написать программу, которая вычисляет значение p =m!*(m-n)!/n! (для...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru