SlowMoe
01.03.2020 06:26

разобраться с нотацией большого О Например, программа на PascalABC.NET:
begin//Начало программы
var E: array[1..2] of integer;//Массив вектора
var A: array[1..10,1..2] of integer;//Массив для поиска максимума и замены
var max, str, sto, k: integer;//Переменные: максимум,строка и столбец максимума
k:=1;
max:=-100;//Для корректного сравнения нужен минимальный максимум
for var m:=1 to 2 do//Цикл заполнения массива вектора
E[m]:=random(10);//Запись случайной координаты вектора
for var i:=1 to 10 do//-->
for var j:=1 to 2 do//Цикл прохождения по всем переменным массива
begin//Начало подпрограммы
A[i,j]:=random(20)-10;//Запись случайного числа в каждую ячейку массива
if A[i,j]>=max then //Моментальная проверка на максимальное число в массиве
//!Проводится запись последнего случая нахождения максимума в массиве
begin //Начало подпрограммы
max:=A[i,j];//Присвоение нового максимума
str:=i;//Запись строки нужного числа
sto:=j;//запись столбца нужного числа
end;//Конец подпрограммы
end;//Конец подпрограммы
A[str,1]:=E[1];//Перезапись первой координаты
A[str,2]:=E[2];//Перезапись второй координаты
Println('Строка максимума:',str,'Столбец максимума:',sto,'Максимум:',max);//Вывод информации о максимуме
for var i:=1 to 10 do//-->
for var j:=1 to 2 do//Цикл прохождения по всем переменным массива
if (i=k) then Print(A[i,j]) else //Доп. условия для наглядного вывода массива и вывод элемента
if (i<>k) then //Если строка выводимого элемента не совпала с фактической
begin//Начало подпрограммы
Println;//Отступ на следующую строку
Print(A[i,j]);//Вывод элемента
k:=i;//Присвоение условной единице нового значения
end;//Конец подпрограммы
end.//Конец программы
Как правильно дать ей описательную сложность через большое О?

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
неможетбыть
23.09.2020 21:12
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
  i, n: integer;
  p: BigInteger;

begin
  write('Введите число N ');
  readln(n);
  p := 1;
  for i := 1 to n do p := p * i;
  writeln( 'Произведение чисел от 1 до ',n,' равно : ',p);
end.

Тест №1:
Введите число N 5
Произведение чисел от 1 до 5 равно : 120

Тест №2:
Введите число N 100
Произведение чисел от 1 до 100 равно : 93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000
0,0(0 оценок)
Ответ:
Den5220
20.03.2020 12:01
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
begin
  var n := readinteger('Размер массива ');
  //Для теста заполним массив сл. числами
  var a := arrrandom(n); a.Println;
  var x:=readinteger('Введите число Х');
  if x in a then writeln('массив содержит число ', x)
  else writeln('массив не содержит число ', x)
end.

Тест №1
Размер массива  10
96 14 36 84 55 1 74 99 72 20
Введите число Х 14
массив содержит число 14

Тест №2
Размер массива  10
59 9 8 98 75 34 52 63 62 17
Введите число Х 55
массив не содержит число 55
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота