<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure AB(a,b:array of integer);
begin
var (iaMax,ibMax):=(a.IndexMax,b.IndexMax);
var t:=a[iaMax]; a[iaMax]:=b[ibMax]; b[ibMax]:=t
end;
begin
var a:=ArrRandom(9,-99,99);
Write('A: '); a.Println;
var b:=ArrRandom(11,-99,99);
Write('B: '); b.Println;
AB(a,b);
Write('A: '); a.Println;
Write('B: '); b.Println;
end.
<u>Пример</u>
A: -46 -76 98 -83 84 8 -14 46 8
B: 29 -36 37 78 -20 35 -77 -23 80 -50 -55
A: -46 -76 80 -83 84 8 -14 46 8
B: 29 -36 37 78 -20 35 -77 -23 98 -50 -55
Свойства алгоритма:
1. Дискретность. Это свойство состоит в том, что алгоритм должен представлять процесс решения задачи как последовательное выполнение простых шагов. При этом для выполнения каждого шага алгоритма требуется конечный отрезок времени, т. е. преобразование исходных данных в результат осуществляется во времени дискретно.
2. Определенность. Каждое правило алгоритма должно быть четким, однозначным.
3. Результативность. Алгоритм должен приводить к решению за конечное число шагов.
4. Массовость. Алгоритм решения задачи разрабатывается в общем виде, т. е. он должен быть применим для некоторого класса задач, различающихся лишь исходными данными.
<span>5. Правильность. Алгоритм правильный, если его выполнение дает правильные результаты решения поставленной задачи.
</span>
Эта фраза означает: момент, когда нет условия выхода из цикла или используется вечный цикл (например, while(true) ).
X=0;
for(i=1;i<51;i+=4)
X+=i;
S=0;
for(i=0;i<=12;i++)
S+=i*i;
S*=2;
Дано: N1=65536 N2=256
Найти: i1/i2
Определим глубину кодирования звука i из формулы: N=2^i , где N- уровень интенсивности сигнала. Отсюда i= ㏒₂ N
i1=㏒₂ 65536=㏒₂ 2¹⁶= 16
i2=㏒₂ 256 = ㏒₂ 2⁸= 8
i1/i2 = 16/8= 2
Ответ: Информационный объем первого варианта в 2 раза больше
1-Компьютер и мобильный телефон это устройства способные передавать информацию
2-Компьютер и мобильный телефон устройства передачи информации
(надеюсь помог)