Итоговый контроль по информатике
Вариант 2
1. Информацию, не зависящую от личного мнения или суждения, называют:
1. достоверной;
2. актуальной;
3. объективной;
4. полной;
5. понятной.
2. Тактильную информацию человек получает посредством:
1. специальных приборов;
2. термометра;
3. барометра;
4. органов осязания;
5. органов слуха.
3. К формальным языкам можно отнести:
1. английский язык;
2. язык программирования;
3. язык жестов;
4. русский язык;
5. китайский язык.
4.К какой форме представления информации относится прогноз погоды, переданный по радио? 1. текстовой
2. числовой
3. графической 4.мультимедийной
5. Какое из перечисленных слов можно зашифровать в виде кода $%#$? 1. марс
2. озон
3. такт 4. Реле
6. Видеофайлы имеют расширение: 1.exe, com,bat 2.rtf, doc, docx, txt
3.ppt, pps
4.avi, wmv, mpeg
7. Полное имя файла D: \8 класс \Сидоров А.Г.\практические работы \ практика №1. doc. В какой папке хра-нится файл практика №1. doc? 1. 8 класс 2. Сидоров А.Г.
3.практические работы
4.D:
8.Установите соответствие.
Расширение Тип файла
1) .rtf
2) .bmp
3) .mp3
А) текстовый Б) звуковой В) графический
9. Текстовый редактор - программа, предназначенная для:
1. создания, редактирования и форматирования текстовой информации;
2. работы с изображениями в процессе создания игровых программ;
3. управление ресурсами ПК при создании документов;
4. автоматического перевода с символьных языков в машинные коды;
10. Заполнить пропуски числами:
а) 5 Кбайт = байт = бит
б)12288 бит= Кбайт = байт
ответ : 1 2 3
uses GraphABC;
procedure OutLightGreen(n:integer);
begin
var OldColor:=FontColor;
SetFontColor(clLightGreen);
Write(n:5);
SetFontColor(OldColor)
end;
begin
var a:=MatrixRandom(10,14,-180,320);
var m:=ReadInteger('n=');
Writeln;
SetFontColor(clWhite);
Font.Style:=fsBold; Font.Name:='Courier';
Brush.Color:=clBlack; Window.Clear(clBlack);
var k:=0;
for var i:=0 to 9 do begin
for var j:=0 to 13 do
if a[i,j]>m then begin
Inc(k); OutLightGreen(a[i,j]) end
else Write(a[i,j]:5);
Writeln
end;
SetFontColor(clRed);
Writeln('Количество элементов равно ',k)
end.
const n=20;
var
a:array[1..n] of integer;
i,k,s:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=Random(51)-25;
Write(a[i]:4)
end;
writeln;
write('K = '); readln(k);
s:=0;
for i:=1 to n do
if a[i] mod k = 0 then s:=s+a[i];
Writeln('s = ',s);
end.
Пример:
Исходный массив:
18 -24 -4 -21 15 19 18 -16 -1 -8 7 -21 21 22 -24 -4 18 -16 24 4
K = 3
s = 24
2.
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(11);
Write(a[i]:4)
end;
writeln;
writeln('Выбранные элементы:');
for i:=1 to n do
if a[i]<=i then Write(a[i]:4) else write(' ':4);
Writeln;
end.
Пример:
Исходный массив:
9 1 2 8 2 7 1 10 8 3
Выбранные элементы:
1 2 2 1 8 3