Чи для всіх об'єктів на сцені складають програми?Наведіть приклади Як управляти звуковими даними в проекті,складеному в змінювати свій вигляд? СИЖУ НА К.Р. В ШКОЛЕ
const n=10; var a:array[1..n] of integer; i,k,t,imin,imax:integer; begin randomize; { инициализация датчика пчевдослучайных чисел } Writeln('*** Исходный массив ***'); for i:=1 to n do begin a[i]:=random(20); { интервал [0;19] } Write(a[i]:4) end; Writeln; { 1. меняем местами правую и левую половины } Writeln('*** 1 ***'); k:=n div 2; for i:=1 to k do begin t:=a[i]; a[i]:=a[i+k]; a[i+k]:=t end; for i:=1 to n do Write(a[i]:4); Writeln; { 2. Элементы массива, большие 10, заменяем на 100 } for i:=1 to k do if a[i]>10 then a[i]:=100; Writeln('*** 2 ***'); for i:=1 to n do Write(a[i]:4); Writeln; { 3. Удаляем максимальный элемент, вставляем 0 перед минимальным } { замороченная задача ! } Writeln('*** Исходный массив ***'); for i:=1 to n do begin a[i]:=random(50)+1; { интервал [1;49] } Write(a[i]:4) end; Writeln; Writeln('*** 3 ***'); imin:=1; imax:=1; for i:=2 to n do if a[i]>a[imax] then imax:=i else if a[i]<a[imin] then imin:=i; if imin < imax then begin { минимальный встречается раньше максимального } { подвигаем вправо на 1 все элементы от imin и до imax } for i:=imax-1 downto imin do a[i+1]:=a[i]; a[imin]:=0 { вставляем 0 в позицию imin } end else begin { минимальный встречается позже максимального } { подвигаем влево на 1 элементы от imax до imin -1 } for i:=imax to imin-1 do a[i]:=a[i+1]; a[imin-1]:=0; { вставляем 0 в позицию перед imin } end; for i:=1 to n do Write(a[i]:4); Writeln end.
const n=10; var a:array[1..n] of integer; i:integer; begin randomize; { инициализация датчика пчевдослучайных чисел } Writeln('*** Исходный массив ***'); for i:=1 to n do begin a[i]:=random(20); { интервал [0;19] } Write(a[i]:4) end; Writeln; { 1. выводим нечетные элементы } Writeln('*** 1 ***'); for i:=1 to n do if a[i] mod 2 <>0 then Write(a[i]:4); Writeln; { 2. Элементы на четных позициях обнуляем } i:=2; while i<=n do begin a[i]:=0; i:=i+2 end; Writeln('*** 2 ***'); for i:=1 to n do Write(a[i]:4); Writeln end.
Замечание: Третью подзадачу решить в такой постановке невозможно. В самом деле, требуется удалить последний нечетный элемент, а перед третьим элементом вставить ноль. Что делать, если этим последним нечетным окажется третий?
1 - 2, 2 - 3, 3 - 2, 4 - 3, 5 - 1, 6 - 4, 7 - 2, 8 - 3, 9 - 1, 10 - 2
Объяснение:
1. Правила доступа к информации на сервере устанавливает: администратор сервера;
2. Региональная сеть обеспечивает связь пользователей, находящихся в одном городе;
3. Телекоммуникационная технология, базирующаяся на использовании электросетей для высокоскоростного информационного обмена, — это PLC;
4. Какое устройство обеспечивает передачу цифровых компьютерных данных по каналам связи - модем
5. Количество информации, передаваемое в единицу времени называется пропускная канала.
6. Общая схема соединения компьютеров в локальной сети называется топология сети.
7. Какой топологии сети не существует - линейная шина.
8. Из чего состоит IP-адрес? - Из четырех чисел в диапазоне от 0 до 255.
9. Какими бывают домены верхнего уровня? - географические и коммерческие - TCP/IP