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

Постройте в электронных таблицах двумерную модель «Жизнь». Проведите вычислительный эксперимент с разными вариантами первоначального расселения организмов. Попробуйте найти такие первоначальные расселения, которые: Обречены на гибель; Не меняются со сменой поколений; Ведут к периодической смене поколений; Ведут к периодической смене повторяющихся конфигураций расселения.

👇
Ответ:
kata198722
kata198722
01.10.2020

11- Б ,Г . 12-А,Г.

Объяснение:

4,8(44 оценок)
Открыть все ответы
Ответ:
MonteCarlo
MonteCarlo
01.10.2020

ДЗ для ВЕРЫ ВИКТОРОВНЫ:

Объяснение:

Var I, N, m: integer;

{Выводит таблицу квадратов до N числа}

Begin

Readln(N); //Что вводим в этой строке и зачем? Как можно подсказать пользователю, что ввести?  

{Вводим до какого числа нам нужно получить квадрат; Подсказать можно через WRITELN}

Writeln('Таблица квадратов чисел от 1 до N'); //Сколько раз выполняется этот оператор?

{Один раз}

For i:=1 to N do //Сколько раз выполнится цикл?

{N раз}

Begin //Зачем снова писать операторные скобки?

{Затем, что это цикл, который всегда обособляется и отделяет от остальных операторов}

m:=i*I;

Writeln(I,' ',m); //Как по-другому оставить пробелы между столбиками?

{Можно сделать так    -     Writeln(I:3,m:16);}

End;

End.

4,7(66 оценок)
Ответ:
genek711
genek711
01.10.2020
Тогда будет Паскаль...

const
  nm = 5;

type
  V = array[1..nm] of real;

function SP(var a, b: V; n: integer): real;
var
  i: integer;
  s: real;
begin
  s := 0;
  for i := 1 to n do s := s + a[i] * b[i];
  SP := s
end;

var
  A, B, C, D: V;
  P1, P2, min: real;
  i, n: integer;

begin
  Write('Введите размерность вектора A: '); Readln(n);
  Write('Введите координаты вектора A через пробел: ');
  for i := 1 to n do Read(A[i]);
  Write('Введите координаты вектора B через пробел: ');
  for i := 1 to n do Read(B[i]);
  P1 := SP(A, B, n);
  Write('Введите размерность вектора C: '); Readln(n);
  Write('Введите координаты вектора C через пробел: ');
  for i := 1 to n do Read(C[i]);
  Write('Введите координаты вектора D через пробел: ');
  for i := 1 to n do Read(D[i]);
  P2 := SP(C, D, n);
  if P1 > P2 then min := P2 else min := P1;
  Writeln('Меньшее из скалярных произведений (A*B),(C*D) равно ', min);
end.

Результаты выполнения:
Введите размерность вектора A: 4
Введите координаты вектора A через пробел: -5.1 2.7 3.4 6.2
Введите координаты вектора B через пробел: 1.2 3.4 0 2.5
Введите размерность вектора C: 5
Введите координаты вектора C через пробел: 2.7 3.4 2.5 6.3 7.8
Введите координаты вектора D через пробел: 1.7 -1.3 2.8 0 7.2
Меньшее из скалярных произведений (A*B),(C*D) равно 18.56
4,7(2 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ