М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
аяука10
аяука10
30.10.2022 23:11 •  Информатика

Использовать Чертёжник
алг шесть шестерок
нач
СМЕСТИТЬСЯ В ТОЧКУ ()
нц 6 раз
ОПУСТИТЬ ПЕРО
СМЕСТИТЬСЯ НА ВЕКТОР ()
СМЕСТИТЬСЯ НА ВЕКТОР ()
СМЕСТИТЬСЯ НА ВЕКТОР ()
СМЕСТИТЬСЯ НА ВЕКТОР ()
СМЕСТИТЬСЯ НА ВЕКТОР ()
ПОДНЯТЬ ПЕРО
СМЕСТИТЬСЯ НА ВЕКТОР ()
кц
кон

👇
Открыть все ответы
Ответ:
Nikia1
Nikia1
30.10.2022
Возможны 3 варианта решения задачи, разные по степени творческого подхода.
Решение №1 (элементарное)
При оформлении этого решения количество ламп в сигнале фиксировано и равно
количеству всех цветных ламп.
Решение №2 (стандартное)
При оформлении решения последовательно учитывается то что сигнал может
состоять из 1 лампы, из двух ламп, из трех и т.д. ламп. В этом подходе решение,
описанное ранее, является частным случаем.
Решение №3 (комплексное)При оформлении этого решения учитывается то что лампа может гореть, а может
не гореть и тогда важен не только порядок и количество ламп в сигнале, но и
положение лампы в общем ряду.
Замечание: Основная нагрузка в решении сводится к наиболее полному описанию
возможных вариантов сигналов и вычислению их количества.
4,5(99 оценок)
Ответ:
Змей24
Змей24
30.10.2022
//Линейное уравнение от одной переменной вида ax+b=0
procedure lin1(a,b: real; var x: real);
  begin
    x:=-b/a;
  end;

//Линейное уравнение двух переменных вида ax+by+c=0
//имеет бесконечное множество решений (корней)
procedure lin2(a,b,c: real);
  var x,y: real; 
  n,i: integer;
  begin
    write ('Сколько пар корней вы хотите получить? ');
    readln (n);
    for i:=1 to n do begin
      write ('Введите x=');
      read (x);
      y:=(-c-a*x)/b;
      writeln ('   y=',y);
    end;
  end;
  
var
  a,b,c,x,y: real;
  n: integer;
begin
  write ('Сколько переменных в уравнении - 1 или 2? ');
  readln (n);
  if n=1 
    then begin
      write ('Введите коэффициент при х: а=');
      readln (a);
      write ('Введите свободный коэффициент b=');
      readln (b);
      lin1(a,b,x);
      writeln ('x=',x);
    end
    else begin
      write ('Введите коэффициент при х: а=');
      readln (a);
      write ('Введите коэффициент при y: b=');
      readln (b);
      write ('Введите свободный коэффициент c=');
      readln (c);
      lin2(a,b,c);
    end;
end.
пример 1
Сколько переменных в уравнении - 1 или 2? 1
Введите коэффициент при х: а=3
Введите свободный коэффициент b=9
x=-3
пример 2
Сколько переменных в уравнении - 1 или 2? 2
Введите коэффициент при х: а=2
Введите коэффициент при y: b=2
Введите свободный коэффициент c=-4
Сколько пар корней вы хотите получить? 3
Введите x=0
   y=2
Введите x=2
   y=0
Введите x=-2
   y=4
4,5(68 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ