1. Дайте наиболее полное определение понятия «информация» а) сведения, знания об окружающем мире; б) мера упорядоченности систем
1. Дайте наиболее полное определение понятия «информация» а) сведения, знания об окружающем мире; б) мера упорядоченности системы по шкале «хаос-порядок»; в) это знания, сведения об объектах и явлениях окружающей среды, их параметрах, свойствах и состоянии, которые человек получает из различных источников; г) знания о событиях, явлениях, свойствах объектов, зависимостях, определяющие действия для достижения какой-либо цели. 2. Информацию, содержащую в себе весь объем необходимых знаний, называют: а) полной; б) достоверной; в) точной; г)актуальной. 3. Информацию, содержащую данные по тем проблемам, которые актуальны на данный момент, называют: а) полной; б) достоверной; в) точной; г)актуальной. 4. Действия над исходной информацией в соответствии с некоторыми правилами – это а) обработка информации; б) передача информации; в) получение информации; г) хранения информации. 5.Что из перечисленного относится к устройствам ввода информации а) жесткий диск; б) сканер; в) монитор; г) оптический диск. 6. Процессор – это а) устройство ввода; б) устройство вывода; в) устройство обработки; г) устройство хранения. 7. Информация, предназначенная для обработки компьютером называется: а) память; б) данные; в) файл; г) папка. 8. Файл –это а) данные в оперативной памяти; б) программа или данные на диске, имеющие имя;в) программа в оперативной памяти; г) текст, распечатанный на принтере. 9. Компьютерный вирус - это … а) средство нейтрализующее несанкционированные действия; б) средство для проверки дисков; в) программы для отслеживания вирусов; г) файл, который при запуске "заражает" другие. 10.Сеть, объединяющая несколько компьютеров, установленных в одном помещение и дающая пользователям совместно использовать ресурсы называется… а) региональная сеть; б) корпоративная сеть; в) локальная сеть; г) административная сеть.
{ Если что, часть программы не нужна для построения цепочки. Она просто иллюстрирует, что полученный результат верен. }
var sq : array[0..999] of array[0..9] of boolean; co : array[0..999] of integer; ar : array[1..10003] of 0..9; i,j: integer; x: integer; t : boolean; begin for i := 0 to 999 do begin for j := 0 to 9 do sq[i][j] := false; co[i] := 0; end; for i := 1 to 3 do ar[i] := 0; i := 3; t := true; {write('000');} while t do begin i := i + 1; x := ar[i-3]*100 + ar[i-2]*10 + ar[i-1]; if co[x] >= 10 then t := false else begin j := 1; while sq[x][j] do j := (j + 1) mod 10; ar[i] := j; sq[x][j] := true; co[x] := co[x] + 1; {write(j)} end; end; {writeln;} writeln('Length: ',i - 1);
{просто чтобы убедиться} for i := 0 to 999 do for j := 0 to 9 do sq[i][j] := false;
t := true; j := 0; i := 1; while (i <= 10000) and t do begin x := ar[i] * 100 + ar[i+1] * 10 + ar[i+2]; if sq[x][ar[i+3]] then t := false else begin sq[x][ar[i+3]] := true; j := j + 1; end; i := i + 1 end; if t and (j = 10000) then write('Confirmed') <span>end.</span>
Ключевые фразы:"...для решения научных и производственных задач", "...чертежи рассчитанных конструкций". Термины: "результаты", "графики", "диаграммы".
//Прошу прощения за "пузырёк" //Pascal ABC.NET 3.1 сборка 1219
Const n=5; //количество вершин
Type ty=record x:integer; y:integer; end;
Var ar:array[1..n] of ty; i,j:integer; begin for i:=1 to n do begin write('Абсцисса точки №',i,':');readln(ar[i].x); write('Ордината точки №',i,':');readln(ar[i].y); end; for i:=1 to n-1 do for j:=i+1 to n do if ar[i].x>ar[j].x then swap(ar[i],ar[j]); for i:=1 to (n div 2)-1 do for j:=i+1 to n div 2 do if ar[i].y<ar[j].y then swap(ar[i],ar[j]); for i:=n div 2+1 to n-1 do for j:=i+1 to n do if ar[i].y>ar[j].y then swap(ar[i],ar[j]); ar.reverse.Print; end.
Пример ввода: Абсцисса точки №1:1 Ордината точки №1:2 Абсцисса точки №2:2 Ордината точки №2:1 Абсцисса точки №3:-3 Ордината точки №3:-3 Абсцисса точки №4:3 Ордината точки №4:3 Абсцисса точки №5:3 Ордината точки №5:1 Пример вывода: (3,3) (3,1) (2,1) (-3,-3) (1,2)
Program exp3; uses crt; const m = 5; n = 3; type matr = array [1 .. m, 1 .. n] of integer; var A: matr; b, i, j, k: integer; begin clrscr; randomize; for i := 1 to m do begin for j := 1 to n do begin A[i, j] := random(101); end; end; k := n div 2; for j := 1 to k do begin for i := 1 to m do begin b := A[i, j]; A[i, j] := A[i, n - j + 1]; A[i, n - j + 1] := b; end; end; for i := 1 to m do begin for j := 1 to n do begin write(A[i,j]: 5) ; end; writeln; end; readln; end.