Посчитать сопротивление цепи: 1- последовательное (r1+r2). 2 - параллельное (r1+r2/(r1+r2))

👇

Ответ:

flag4

17.02.2022

program el;
Uses crt;
var n,R,R1,R2:real;
begin
writeln('Вычисление сопротивления электрической цепи.');
writeln('Введите исходные данные:');
writeln('Величина первого сопротивления (Ом) -> '); readln(R1);
writeln('Величина второго сопротивления (Ом) -> '); readln(R2);
writeln('Тип соединения (1 - последовательное, 2 - параллельное) -> '); readln(n);
If n=1 then
R:=R1+R2
else R:=R1*R2/(R1+R2);
writeln('');
writeln('Соротивление цепи: ',R);
end.

4,5(38 оценок)

Открыть все ответы

Ответ:

glebyha22

17.02.2022

Статические модели относятся к объектам, практически неизменяющимся во времени или рассматриваемым в отдельные временные сечения. Динамические модели воспроизводят изменения состояний («движение») объекта с учетом как внешних, так и внутренних факторов.

Для динамических моделей часто вводят понятия стационарность и нестационарность. Чаще всего стационарность выражается в неизменности во времени некоторых физических величин: стационарным является поток жидкости с постоянной скоростью, стационарна механическая система, в которой силы зависят только от координат и не зависят от времени.

4,7(10 оценок)

Ответ:

Alphons145

17.02.2022

Var
    a, b, c, p: real;
    a1, b1, c1: real;
    a2, b2, c2: real;

function SideLength(a1, a2, b1, b2: real): real;
begin
    SideLength := sqrt(sqr(a1 - b1) + sqr(a2 - b2));
end;

begin
    writeln('1.Найти сумму трех чисел');
    readln(a, b, c);
    writeln(a + b + c);

    writeln('2.Катеты прямоугольного треугольника известны.Найти гипотенузу.');
    readln(a, b);
    writeln(sqrt(a * a + b * b));

    writeln('3.Найти среднеарифметическое двух чисел.');
    readln(a, b);
    writeln((a + b) / 2);

    writeln('4.Найти длину окружности,если известна площадь круга.');
    readln(a);
    writeln(sqrt(a / pi) * 2 * pi);

    writeln('5.Какой процент составляет число а от числа b.');
    readln(a, b);
    writeln(a / b * 100);

    writeln('6.Найдите площадь треугольника с формулы Герона.');
    readln(a, b, c);
    p := (a + b + c) / 2;
    writeln(sqrt((p - a) * (p - b) * (p - c) * p));

    writeln('7.Найдите площадь кольца,если его толщина I см,диаметр внутри круга d см.');
    readln(a, b);
    c := a + b;
    writeln(pi * (c * c - b * b));

    writeln('8.Вычислите площадь треугольника заданного координатами вершин.');
    readln(a1, a2, b1, b2, c1, c2);
    writeln(((a1 - c1) * (b2 - c2) - (a2 - c2) * (b1 - c1)) / 2);

    writeln('9.Вычислить длинны сторон треугольника по заданным координатам его вершин.');
    a := SideLength(a1, a2, b1, b2);
    b := SideLength(c1, c2, b1, b2);
    c := SideLength(a1, a2, c1, c2);
    writeln(a, ' ', b, ' ', c);
end.

4,4(90 оценок)

Это интересно:

Образование-и-коммуникации

04.09.2022

Как правильно закончить официальное письмо: советы экспертов...

Стиль-и-уход-за-собой

22.03.2020

Хранение духов: как сохранить свой любимый аромат на долгое время...

Компьютеры-и-электроника

16.05.2022

Как использовать команду установки воспроизведения атрибутов файлов для обнаружения вирусов?...

Семейная-жизнь