Полугодовая контрольная работа (вариант 2). Задания: 1, 2, 3, 4 обязательно записывать решение.
Единицы измерения информации.
1) Выберите вариант ответа, в котором единицы измерения указаны в порядке возрастания:
1) 10 бит, 2 байта, 20 бит, 1 Кбайт, 1 Мбайт
2) 10 бит, 2 байта, 20 бит, 1 Мбайт, 1 Кбайт
3) 10 бит, 20 бит, 2 байта, 1 Кбайт, 1 Мбайт
4) 10 бит, 20 бит, 2 байта, 1 Мбайт, 1 Кбайт
2) Напишите буквами последовательность, в которой объемы памяти будут расположены в порядке возрастания: а)1148 байт, б)1Кб, в)1023 байт, г)4 байта, д)56 бит, е)30 бит.
3) Сколько бит информации содержится в 1 Гб? (ответ можно в степени числа 2).
4) Фотография занимает 9 Мб. Определить сколько фотографий вместится на флэшку 8 Гб.
Устройство ЭВМ.
5) Напишите назначение устройств: материнская плата, Bluetooth, флэшка.
6) Напишите назначение устройств: графический планшет, проектор, джойстик.
7) Напишите объем носителей информации: винчестер, флэшка.
8) Напишите названия антивирусных программ, которые вы знаете, и как часто надо проводить полную проверку компьютера.
ОС Windows, Окна.
9) Что такое «Рабочий стол» в ОС Windows?
10) Что такое пункт меню?
11) Как можно перемещать окно по экрану?
12) Как называется область окна, расположенная по его периметру?
Файловая система.
13) Что такое папка?
14) Что будет найдено по шаблонам: а) *b.jpg, б) *m?.*
15) Напишите шаблоны для поиска файлов: в которых есть символ "m", с расширением "mp3";
в которых 3 символа, третий "b".
Дополнительное задание. (Для желающих). По дереву каталогов напишите пути ко всем папкам.
program pr1;
uses
crt;
const
arr1 : array[1..12] of integer = (5, 4, -3, 1, 0, -4, 0, 25, -8, 0, -17, -1);
type
arr2 = array of integer;
var
arr : arr2;
n : integer;
i, sot, spl, snu : byte;
ch : char;
begin
write('Хотите использовать заданный по умолчанию массив? (y/n): ');
ch := readkey;
writeln(ch);
sot := 0;
spl := 0;
snu := 0;
if ((ch='y') or (ch='Y')) then begin
{ Используем заданный по умолчанию }
for i:=1 to 12 do begin
if arr1[i] > 0 then inc(spl);
if arr1[i] < 0 then inc(sot);
if arr1[i] = 0 then inc(snu);
write(arr1[i], ' ');
end;
writeln;
end
else begin
{ Создаём и заполняем новый массив }
write('Введите желаемый размер массива: ');
readln(n);
setLength(arr, n);
writeln('Введите элементы массива:');
for i:=0 to high(arr) do
readln(arr[i]);
for i:=0 to high(arr) do begin
if arr[i]>0 then inc(spl);
if arr[i]<0 then inc(sot);
if arr[i]=0 then inc(snu);
write(arr[i], ' ');
end;
writeln;
end;
writeln('Количество отрицательных элементов: ', sot);
writeln('Количество нулевых элементов: ', snu);
writeln('Количество положительных элементов: ', spl);
end.
const n=100;
var ar:array of array of integer;
ars:array of array of string;
i:integer;
procedure complection(var ar:array of array of integer;var ars:array of array of string);
var
i,j:integer;
begin;
for i:=1 to n do
begin;
for j:=1 to n do
begin;
ar[i,j]:=random(9);
str(ar[i,j],ars[i,j]);
end;
end;
end;
procedure burning(ars:array of array of string);
var
i,j:integer;
t:text;
begin;
assign(t,'text.txt');
rewrite(t);
for i:=1 to n do
begin;
writeln(t,' ');
for j:=1 to n do
write(t,ars[i,j],' ');
end;
end;
begin;
randomize;
setlength(ar,n+1);
setlength(ars,n+1);
for i:=1 to n do
begin;
setlength(ar[i],n+1);
setlength(ars[i],n+1);
end;
complection(ar,ars);
burning(ars);
end.