Animeshon
03.08.2021 18:29

,,Даны три проводника с сопротивлениями R1, R2 и R3. Составить программу для нахождения общего сопротивления при последовательном и параллельном соединении проводников".и нарисуйте блоксхему к программе

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Colaps
31.03.2023 08:57
Заданная уравнением прямая всегда будет гипотенузой прямоугольного треугольника, а его прямой угол всегда будет лежать в точке пересечения осей координат. Таким образом, размещение гипотенузы всегда будет определять четверть, в которой находится треугольник.
Гипотенуза пересекает ось Х в точке с координатами (х1; 0), а ось Y - в точке с координатами (0;y2). Найдем эти координаты, считая коэффициенты a и b в уравнении прямой заданными.
y=ax+b \\ y_1=ax_1+b; \ y_1=0 \to x_1=- \frac{b}{a} \\ y_2=ax_2+b; \ x_2=0 \to y_2=b
Теперь можно определить номера четвертей n, в которых располагается гипотенуза.
n=\begin {cases} 1, \ a<0, \, b0 \\ 2, \ a0, \, b0 \\ 3, \ a<0, \, b<0 \\ 4, \ a0, \, b<0 \end {cases}

var
  a, b: integer;
  f: Text;

begin
  Assign(f, 'input.txt');
  Reset(f);
  Readln(f, a, b);
  Close(f);
  Assign(f, 'output.txt');
  Rewrite(f);
  if a < 0 then
    if b < 0 then Writeln(f, '3') else Writeln(f, '1')
  else
  if b < 0 then Writeln(f, '4') else Writeln(f, '2');
  Close(f)
end.
0,0(0 оценок)
Ответ:
demyaniuk
20.06.2020 01:33
Const   n = 5; var   i: integer;   a: array[1..n * 2 + 1] of integer; begin   writeln('исходный массив: ');   for i : = 1 to 2 * n do   begin       a[i] : = random(99) + 1;       write(a[i] : 5);   end;   for i : = 2 * n + 1 downto n + 1 do       a[i] : = a[i - 1];   a[n + 1] : = 0;   writeln();   writeln('полученный массив: ');   for i : = 1 to 2 * n + 1 do       write(a[i] : 5); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота