Интерактивный тест по информатике и ИКТ (10 класс) по теме "Информация. Ее виды и свойства"
тест по информатике и икт (10 класс) на тему

Program TEST0_1;  // Тест 0 "ИНФОРМАЦИЯ" вариант 1

uses Crt; // Модуль, включающий функцию очистки экрана

CONST ONE = #49;

CONST TWO = #50;

CONST THREE = #51;

CONST FOUR = #52;

CONST FIVE = #53;

CONST ESCAPE = #27;

CONST ENTER = #13;

CONST N = 15; // Задать количество вопросов в тесте

CONST otvet: array[1..N] of char=(THREE,THREE,FOUR,ONE,TWO,ONE,THREE,FIVE,ONE,ONE,FOUR,TWO,THREE,THREE,TWO); // Задать массив правильных ответов

var     otcen,x,i,s: integer;

var     vopros: ARRAY[1..N] OF string;

var ch: char;

function press():integer;

var

pressed:char;

begin

writeln(char(10),char(9),'...нажмите ENTER для продолжения...');

writeln(char(9),'...или ESCAPE для отмены...');

 while true do

  begin

   pressed:=readkey();

    begin

     if pressed=ENTER then

      begin

      press:=1; // Следующий вопрос

      break;

      end;

     if pressed=ESCAPE then

      begin

      press:=0; // отмена

      break;

      end;

    end;

  end;  

end;

begin

s := 0; // Начальная сумма баллов

// Задать иассив из N вопросов:

  vopros[1] := char(13)+char(9)+'Вопрос 1.'

  +char(10)

  +char(13)+char(10)+char(9)+'Информация, объем которой достаточен для решения'

  +char(13)+char(10)+char(9)+'поставленной задачи, называется'

  +char(13)+char(10)+char(9)+'1. достоверной'

  +char(13)+char(10)+char(9)+'2. актуальной'

  +char(13)+char(10)+char(9)+'3. полной'

  +char(13)+char(10)+char(9)+'4. полезной'

  +char(13)+char(10)+char(9)+'5. понятной'

  +char(10)

  +char(13)+char(10)+char(9)+'Введите номер правильного ответа: '

  ;

  vopros[2] := char(13)+char(9)+'Вопрос 2.'

  +char(10)

  +char(13)+char(10)+char(9)+'Информация, которая поможет решить'

  +char(13)+char(10)+char(9)+'поставленную задачу, называется'

  +char(13)+char(10)+char(9)+'1. актуальной'

  +char(13)+char(10)+char(9)+'2. понятной'

  +char(13)+char(10)+char(9)+'3. полезной'

  +char(13)+char(10)+char(9)+'4. полной'

  +char(13)+char(10)+char(9)+'5. достоверной'

  +char(10)

  +char(13)+char(10)+char(9)+'Введите номер правильного ответа: '

  ;

  vopros[3] := char(13)+char(9)+'Вопрос 3.'

  +char(10)

  +char(13)+char(10)+char(9)+'Информация, которая важна в настоящий момент,'

  +char(13)+char(10)+char(9)+'называется'

  +char(13)+char(10)+char(9)+'1. достоверной'

  +char(13)+char(10)+char(9)+'2. объективной'

  +char(13)+char(10)+char(9)+'3. полной'

  +char(13)+char(10)+char(9)+'4. актуальной'

  +char(13)+char(10)+char(9)+'5. полезной'

  +char(10)

  +char(13)+char(10)+char(9)+'Введите номер правильного ответа: '

  ;

  vopros[4] := char(13)+char(9)+'Вопрос 4.'

  +char(10)

  +char(13)+char(10)+char(9)+'Информация, которая отражает истинное положение дел,'

  +char(13)+char(10)+char(9)+'называется'

  +char(13)+char(10)+char(9)+'1. достоверной'

  +char(13)+char(10)+char(9)+'2. объективной'

  +char(13)+char(10)+char(9)+'3. полной'

  +char(13)+char(10)+char(9)+'4. полезной'

  +char(13)+char(10)+char(9)+'5. понятной'

  +char(10)

  +char(13)+char(10)+char(9)+'Введите номер правильного ответа: '

  ;

  vopros[5] := char(13)+char(9)+'Вопрос 5.'

  +char(10)

  +char(13)+char(10)+char(9)+'Информация, которая не зависит от личного мнения'

  +char(13)+char(10)+char(9)+'или суждения, называется'

  +char(13)+char(10)+char(9)+'1. актуальной'

  +char(13)+char(10)+char(9)+'2. объективной'

  +char(13)+char(10)+char(9)+'3. полезной'

  +char(13)+char(10)+char(9)+'4. понятной'

  +char(13)+char(10)+char(9)+'5. достоверной'

  +char(10)

  +char(13)+char(10)+char(9)+'Введите номер правильного ответа: '

  ;

  vopros[6] := char(13)+char(9)+'Вопрос 6.'

  +char(10)

  +char(13)+char(10)+char(9)+'Информация, полученная на доступном языке,'

  +char(13)+char(10)+char(9)+'называется'

  +char(13)+char(10)+char(9)+'1. понятной'

  +char(13)+char(10)+char(9)+'2. объективной'

  +char(13)+char(10)+char(9)+'3. полной'

  +char(13)+char(10)+char(9)+'4. актуальной'

  +char(13)+char(10)+char(9)+'5. полезной'

  +char(10)

  +char(13)+char(10)+char(9)+'Введите номер правильного ответа: '

  ;

  vopros[7] := char(13)+char(9)+'Вопрос 7.'

  +char(10)

  +char(13)+char(10)+char(9)+'По способу восприятия человеком различают'

  +char(13)+char(10)+char(9)+'следующие виды информации:'

  +char(13)+char(10)+char(9)+'1. научную, социальную, политическую, экономическую, религиозную;'

  +char(13)+char(10)+char(9)+'2. обыденную, производственную, техническую, управленческую;'

  +char(13)+char(10)+char(9)+'3. визуальную, звуковую, тактильную, обонятельную, вкусовую;'

  +char(13)+char(10)+char(9)+'4. математическую, биологическую, медицинскую, психологическую;'

  +char(13)+char(10)+char(9)+'5. текстовую, числовую, графическую, табличную.'

  +char(10)

  +char(13)+char(10)+char(9)+'Введите номер правильного ответа: '

  ;

  vopros[8] := char(13)+char(9)+'Вопрос 8.'

  +char(10)

  +char(13)+char(10)+char(9)+'Визуальной называют информацию, которая воспринимается человеком'

  +char(13)+char(10)+char(9)+'посредством органов'

  +char(13)+char(10)+char(9)+'1. осязания'

  +char(13)+char(10)+char(9)+'2. обоняния'

  +char(13)+char(10)+char(9)+'3. слуха'

  +char(13)+char(10)+char(9)+'4. восприятия вкуса'

  +char(13)+char(10)+char(9)+'5. зрения'

  +char(10)

  +char(13)+char(10)+char(9)+'Введите номер правильного ответа: '

  ;

  vopros[9] := char(13)+char(9)+'Вопрос 9.'

  +char(10)

  +char(13)+char(10)+char(9)+'Какую информацию можно отнести к визуальной?'

  +char(13)+char(10)+char(9)+'1. Фотографии'

  +char(13)+char(10)+char(9)+'2. Громкую музыку'

  +char(13)+char(10)+char(9)+'3. Вкус напитка'

  +char(13)+char(10)+char(9)+'4. Ощущение холода или тепла'

  +char(13)+char(10)+char(9)+'5. Запах цветов'

  +char(10)

  +char(13)+char(10)+char(9)+'Введите номер правильного ответа: '

  ;

  vopros[10] := char(13)+char(9)+'Вопрос 10.'

  +char(10)

  +char(13)+char(10)+char(9)+'Наибольший объем информации человек получает при помощи'

  +char(13)+char(10)+char(9)+'1. зрения'

  +char(13)+char(10)+char(9)+'2. осязания'

  +char(13)+char(10)+char(9)+'3. обоняния'

  +char(13)+char(10)+char(9)+'4. вкусовых рецептеров'

  +char(13)+char(10)+char(9)+'5. слуха'

  +char(10)

  +char(13)+char(10)+char(9)+'Введите номер правильного ответа: '

  ;

  vopros[11] := char(13)+char(9)+'Вопрос 11.'

  +char(10)

  +char(13)+char(10)+char(9)+'Понятие информации в информатике означает'

  +char(13)+char(10)+char(9)+'1. текст'

  +char(13)+char(10)+char(9)+'2. сведения о чем-либо'

  +char(13)+char(10)+char(9)+'3. знания'

  +char(13)+char(10)+char(9)+'4. уменьшение неопределенности знаний'

  +char(13)+char(10)+char(9)+'5. компьютерную программу'

  +char(10)

  +char(13)+char(10)+char(9)+'Введите номер правильного ответа: '

  ;

  vopros[12] := char(13)+char(9)+'Вопрос 12.'

  +char(10)

  +char(13)+char(10)+char(9)+'Записную книжку используют с целью'

  +char(13)+char(10)+char(9)+'1. обработки информации'

  +char(13)+char(10)+char(9)+'2. хранения информации'

  +char(13)+char(10)+char(9)+'3. хранения, обработки и передачи информации'

  +char(13)+char(10)+char(9)+'4. защиты информации'

  +char(13)+char(10)+char(9)+'5. передачи информации'

  +char(10)

  +char(13)+char(10)+char(9)+'Введите номер правильного ответа: '

  ;

  vopros[13] := char(13)+char(9)+'Вопрос 13.'

  +char(10)

  +char(13)+char(10)+char(9)+'Измерение параметров окружающей среды на метеостанции'

  +char(13)+char(10)+char(9)+'является процессом'

  +char(13)+char(10)+char(9)+'1. передачи информации'

  +char(13)+char(10)+char(9)+'2. защиты информации'

  +char(13)+char(10)+char(9)+'3. получения (сбора) информации'

  +char(13)+char(10)+char(9)+'4. использования информации'

  +char(13)+char(10)+char(9)+'5. хранения информации'

  +char(10)

  +char(13)+char(10)+char(9)+'Введите номер правильного ответа: '

  ;

  vopros[14] := char(13)+char(9)+'Вопрос 14.'

  +char(10)

  +char(13)+char(10)+char(9)+'Аудиоинформация может быть передана'

  +char(13)+char(10)+char(9)+'1. с помощью газет'

  +char(13)+char(10)+char(9)+'2. с помощью книги'

  +char(13)+char(10)+char(9)+'3. с помощью радио'

  +char(13)+char(10)+char(9)+'4. с помощью журналов'

  +char(13)+char(10)+char(9)+'5. с помощью плакатов'

  +char(10)

  +char(13)+char(10)+char(9)+'Введите номер правильного ответа: '

  ;

  vopros[15] := char(13)+char(9)+'Вопрос 15.'

  +char(10)

  +char(13)+char(10)+char(9)+'Аудиоинформацией называют информацию, которая воспринимается'

  +char(13)+char(10)+char(9)+'человеком посредством органов'

  +char(13)+char(10)+char(9)+'1. обоняния'

  +char(13)+char(10)+char(9)+'2. слуха'

  +char(13)+char(10)+char(9)+'3. восприятия вкуса'

  +char(13)+char(10)+char(9)+'4. зрения'

  +char(13)+char(10)+char(9)+'5. осязания'

  +char(10)

  +char(13)+char(10)+char(9)+'Введите номер правильного ответа: '

  ;

for i := 1 to N do

    begin

      while (true) do

        begin

          ClrScr; // Очистка экрана

          writeln();

          write(vopros[i]);

          ch := readkey;

          if (ch in ['1','2','3','4','5']) then

            begin

             writeln(ch);

             x := press(); //

              if x=1 then

              begin

                 if ch=otvet[i] then s:=s+1;

                 break;

              end;

            end;

         end;

     end;

case s of

 8..10: otcen := 3;

 11..12: otcen := 4;

 13..15: otcen := 5;

 else otcen := 2;

 end;

 writeln(char(10),char(9),'Вы набрали ',s,' баллов из ',N);

 writeln(char(9),'Ваша оценка: ',otcen);

 var f:Text;

Assign(f,'Fileotc.txt');

Append(f);

write(f,otcen);

Close(f);

 while(true) do

  begin

  ch:=ReadKey();

  if ch=ESCAPE then

  break;

  end;

end.