Написать программу, которая позволяет ввести имя bmp-файла, считать его заголовки и вывести на консоль информацию о размере файла, ширине и
высоте в пикселях, количестве бит на пиксель, разрешении горизонтальном
и вертикальном (количестве пикселей на метр), типе сжатия (без сжатия / 4бит
RLE / 8бит RLE). Подготовьте несколько файлов изображений и проверьте на
них Вашу программу.
var
i,a,b:integer;
ar:array[1..10] of integer;
procedure oddDec(var a,b:integer); //подпрограмме переданы аргументы a и b
//процедура для вычитания в нечётном элементе
begin;
a:=a-b;
end;
procedure NotoddInc(var a,b:integer); //подпрограмме переданы аргументы a и b
//процедура для сложения в чётном элементе
begin;
a:=a+b;
end;
begin
randomize;
readln(a); //ввод a
readln(b); //ввод b
writeln('Array:');
for i:=1 to 10 do //весь массив
begin;
ar[i]:=random(-20,80); //случайные числа от -20 до 80 включительно
write(ar[i]:4); //вывод
if odd(i) then oddDec(ar[i],b) else NotoddInc(ar[i],a);
{если нечётное, то первая процедура, иначе вторая. Обращаю внимания на то, что элементы меняются сразу после вывода}
end;
writeln;
writeln('Final array:'); //вывод получившегося массива
for i:=1 to 10 do
write(ar[i]:4);
end.
Пример ввода:
20
10
Пример вывода:
Array:
10 16 0 60 23 4 22 -20 4 55
Final array:
0 36 -10 80 13 24 12 0 -6 75
Модельный ответ:
Истинные высказывания: 3, 5, 8.
Модельный ответ с подсчетом баллов:
Каждый правильный ответ
Учащийся уложился в 5 минут (при правильном ответе)
Максимальный балл:
Задание №2. Информационная компетентность: Аспект "Первичная обработка информации". Уровень I.
Вам нреобходимо закодировать и раскодировать слова в десятичном и двоичном коде. Пользуясь кодовой таблицей ASCII,
а) закодируйте тексты:
б) декодируйте тексты:
Десятичный код Текст 69 78 84 69 82 80 65 73 78 84 66 65 67 75 83 80 65 67 69 Двоичный код Текст 01000101 01001110 01000100 01001000 01001111 01001101 01000101 01010111 01001111 01010010 01000100 01000110 01001111 01001111 01010100 01000010 01000001 01001100 01001100Модельный ответ:
а):
б):