скачать рефераты
  RSS    

Меню

Быстрый поиск

скачать рефераты

скачать рефератыРеферат: Паскаль (практическое использование)

    WriteLn('Сидорова Е.В.');

    TextColor(12); {Установка цвета текста}

    GOTOXY(0,25); {Установка курсора в заданные координаты: X,Y}

    Line80;     { нарисовать линию }

    TextColor(8); {Установка цвета текста}

    Gotoxy(50,27); {Установка курсора в заданные координаты: X,Y}

   Writeln('Для продолжения нажмите [ENTER]');

Readln;

    TextBackground(red); {Установка цвета экрана}

    TextColor(14+16); {Установка цвета текста}

    CLRSCR; {Очистка и закраска фона экрана}

    Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y}

    WriteLn('Имя:'); {вывод текста на экран}

    GOTOXY(13,12); {Установка курсора в заданные координаты: X,Y}

    ReadLn(o); {ввод значения о с клавиатуры}

      GOTOXY(8,14); {Установка курсора в заданные координаты: X,Y}

      WriteLn('Фамилия:'); {вывод текста на экран}

      GOTOXY(17,14); {Установка курсора в заданные координаты: X,Y}

      readln(m); {ввод значения m с клавиатуры}

    GOTOXY(8,16); {Установка курсора в заданные координаты: X,Y}

    writeln('Класс (с буквой):'); {вывод текста на экран}

    GOTOXY(26,16); {Установка курсора в заданные координаты: X,Y}

    readln(n); {ввод значения n с клавиатуры}

    a:=0; {переменной а присваивается число 0}

TextBackground(10); {Установка цвета экрана}

TextColor(14); {Установка цвета текста}

CLRSCR; {Очистка и закраска фона экрана}

Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y}

  Writeln('1. В информатике количество информации определяется как:'); {вывод текста на экран}

  Gotoxy(11,13); {Установка курсора в заданные координаты: X,Y}

  Writeln('1) достоверность информации;');

  {вывод текста на экран}

  Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y}

  Writeln('2) скорость передачи информации; ');

  {вывод текста на экран}

  Gotoxy(11,15); {Установка курсора в заданные координаты: X,Y}

  Writeln('3) мера уменьшения неопределенности;');

  {вывод текста на экран}

  Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y}

  Writeln('4) объем оперативной памяти.');

  {вывод текста на экран}

  Gotoxy(25,17); {Установка курсора в заданные координаты: X,Y}

  Readln(i); {ввод значения i с клавиатуры}

  if i='10'  then goto finish;

  if i='3'  then a:=a +1   {если <условие> то}

  else                      {Условие не выполнено}

    begin           {начало составного оператора}

     Error          { Процедура вывода ошибки }

    end; {конец  составного оператора}

TextBackground(11); {Установка цвета экрана}

TextColor(9); {Установка цвета текста}

CLRSCR; {Очистка и закраска фона экрана}

Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y}

Writeln('2. Массовое производство персональных компьютеров началось:');

{вывод текста на экран}

Gotoxy(11,13); {Установка курсора в заданные координаты: X,Y}

Writeln('1) в 50-е гг.;  '); {вывод текста на экран}

Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y}

Writeln('2) в 60-е гг.; '); {вывод текста на экран}

Gotoxy(11,15); {Установка курсора в заданные координаты: X,Y}

Writeln('3) в 70-е гг.;'); {вывод текста на экран}

Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y}

Writeln('4) в 80-е гг.'); {вывод текста на экран}

Gotoxy(25,17); {Установка курсора в заданные координаты: X,Y}

Readln(i); {ввод значения i с клавиатуры}

if i='10'  then goto finish;

if i='4'  then a:=a +1  {если <условие> то ...}

  else                  {Условие не выполнено}

    begin     {начало составного оператора}

     Error    { Процедура вывода ошибки }

    end; {конец  составного оператора}

  TextBackground(10); {Установка цвета экрана}

  TextColor(14); {Установка цвета текста}

  CLRSCR; {Очистка и закраска фона экрана}

  Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y}

  Writeln('3. За единицу измерение количества информации принят:');

  {вывод текста на экран}

  Gotoxy(11,13); {Установка курсора в заданные координаты: X,Y}

  Writeln('1) 1 бод;  '); {вывод текста на экран}

  Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y}

  Writeln('2) 1 бит; '); {вывод текста на экран}

  Gotoxy(11,15); {Установка курсора в заданные координаты: X,Y}

  Writeln('3) 1 байт;'); {вывод текста на экран}

  Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y}

  Writeln('4) 1 килобайт.'); {вывод текста на экран}

  Gotoxy(25,17); {Установка курсора в заданные координаты: X,Y}

  Readln(i); {ввод значения i с клавиатуры}

    if i='10'  then goto finish;

  if i='2'  then a:=a +1 {если <условие> то ...}

  else                   {Условие не выполнено}

    begin                {начало составного оператора}

     Error    { Процедура вывода ошибки }

    end; {конец  составного оператора}

TextBackground(11); {Установка цвета экрана}

TextColor(9); {Установка цвета текста}

CLRSCR; {Очистка и закраска фона экрана}

Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y}

Writeln('4. Как записывается десятичное число 5 в двоичной системе счисления?');

{вывод текста на экран}

Gotoxy(11,13); {Установка курсора в заданные координаты: X,Y}

Writeln('1) 101;  '); {вывод текста на экран}

Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y}

Writeln('2) 110; '); {вывод текста на экран}

Gotoxy(11,15); {Установка курсора в заданные координаты: X,Y}

Writeln('3) 111;'); {вывод текста на экран}

Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y}

Writeln('4) 100.'); {вывод текста на экран}

Gotoxy(25,17); {Установка курсора в заданные координаты: X,Y}

Readln(i); {ввод значения i с клавиатуры}

  if i='10'  then goto finish;

if i='1'  then a:=a +1  {если <условие> то ...}

  else                  {Условие не выполнено}

    begin         {начало составного оператора}

     Error        { Процедура вывода ошибки }

    end; {конец  составного оператора}

TextBackground(10); {Установка цвета экрана}

TextColor(14); {Установка цвета текста}

CLRSCR; {Очистка и закраска фона экрана}

Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y}

Writeln('5. Производительность работы компьютера (скорость его работы) зависит от:');

{вывод текста на экран}

Gotoxy(11,13); {Установка курсора в заданные координаты: X,Y}

Writeln('1) размера экрана дисплея; ');   {вывод текста на экран}

Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y}

Writeln('2) частоты процессора; '); {вывод текста на экран}

Gotoxy(11,15); {Установка курсора в заданные координаты: X,Y}

Writeln('3) напряжения питания;'); {вывод текста на экран}

Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y}

Writeln('4) быстроты нажатия клавиши.');  

{вывод текста на экран}

Gotoxy(25,17); {Установка курсора в заданные координаты: X,Y}

Readln(i); {ввод значения i с клавиатуры}

  if i='10'  then goto finish;

if i='2'  then a:=a +1  {если <условие> то ...}

  else                  {Условие не выполнено}

    begin          {начало составного оператора}

     Error         { Процедура вывода ошибки }

    end;          {конец  составного оператора}

TextBackground(11); {Установка цвета экрана}

TextColor(9); {Установка цвета текста}

CLRSCR; {Очистка и закраска фона экрана}

Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y}

Writeln('6. Какое устройство может  оказывать  вредное  воздействие  на  здоровье         человека?');

{вывод текста на экран}

Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y}

Writeln('1) принтер;'); {вывод текста на экран}

Gotoxy(11,15); {Установка курсора в заданные координаты: X,Y}

Writeln('2) монитор; '); {вывод текста на экран}

Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y}

Writeln('3) системный блок;'); {вывод текста на экран}

Gotoxy(11,17); {Установка курсора в заданные координаты: X,Y}

Writeln('4) модем.'); {вывод текста на экран}

Gotoxy(25,18); {Установка курсора в заданные координаты: X,Y}

Readln(i); {ввод значения i с клавиатуры}

  if i='10'  then goto finish;

if i='2'  then a:=a +1  {если <условие> то ...}

  else                  {Условие не выполнено}

    begin           {начало составного оператора}

     Error          { Процедура вывода ошибки }

    end; {конец  составного оператора}

TextBackground(10); {Установка цвета экрана}

TextColor(14); {Установка цвета текста}

CLRSCR; {Очистка и закраска фона экрана}

Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y}

Writeln('7. Файл-это:');

{вывод текста на экран}

Gotoxy(11,13); {Установка курсора в заданные координаты: X,Y}

Writeln('1) программа в оперативной памяти;');

{вывод текста на экран}

Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y}

Writeln('2) единица измерения информации; ');

{вывод текста на экран}

Gotoxy(11,15); {Установка курсора в заданные координаты: X,Y}

Writeln('3) текст, распечатанный на принтере;'); {вывод текста на экран}

Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y}

Writeln('4) программа или данные на диске.');

{вывод текста на экран}

Gotoxy(25,17); {Установка курсора в заданные координаты: X,Y}

Readln(i); {ввод значения i с клавиатуры}

  if i='10'  then goto finish;

if i='4'  then a:=a +1  {если <условие> то ...}

  else                  {Условие не выполнено}

    begin               {начало составного оператора}

     Error           { Процедура вывода ошибки }

    end;           {конец  составного оператора}

TextBackground(11); {Установка цвета экрана}

TextColor(9); {Установка цвета текста}

CLRSCR;   {Очистка и закраска фона экрана}

Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y}

Writeln('8. Что называется алгоритмом?');

{вывод текста на экран}

Gotoxy(11,13); {Установка курсора в заданные координаты: X,Y}

Writeln('1) последовательность команд, которую может выполнить исполнитель;'); {вывод текста на экран}

Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y}

Writeln('2) система команд исполнителя;'); {вывод текста на экран}

Gotoxy(11,15); {Установка курсора в заданные координаты: X,Y}

Writeln('3) ненумерованная последовательность строк;');

{вывод текста на экран}

Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y}

Writeln('4) нумерованная последовательность строк.   ');

{вывод текста на экран}

Gotoxy(25,17); {Установка курсора в заданные координаты: X,Y}

Readln(i); {ввод значения i с клавиатуры}

  if i='10'  then goto finish;

if i='1'  then a:=a +1   {если <условие> то ...}

  else                   {Условие не выполнено}

    begin           {начало составного оператора}

     Error          { Процедура вывода ошибки }

    end;          {конец  составного оператора}

TextBackground(10); {Установка цвета экрана}

TextColor(14); {Установка цвета текста}

CLRSCR; {Очистка и закраска фона экрана}

Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y}

Writeln('9. Какая из последовательностей команд приведет исполнителя Черепашку в первоначальное место и положение?');

{вывод текста на экран}

Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y}

Writeln('1) вперед (1 см), направо (90), вперед (1 см), направо (90), вперед   '); {вывод текста на экран}

Gotoxy(11,15); {Установка курсора в заданные координаты: X,Y}

Writeln(' (1 см), направо (90), вперед (1 см), направо (90);'); {вывод текста на экран}

Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y}

Writeln('2) вперед (1 см), направо (90), вперед (1 см), направо (90), вперед');

{вывод текста на экран}

Gotoxy(11,17); {Установка курсора в заданные координаты: X,Y}

Writeln(' (1 см), направо (90), вперед (1 см);');

{вывод текста на экран}

Gotoxy(11,18); {Установка курсора в заданные координаты: X,Y}

Writeln('3) вперед (1 см), направо (90), вперед (1 см), направо (90), вперед (1 см), направо (90); ');

{вывод текста на экран}

Gotoxy(11,20); {Установка курсора в заданные координаты: X,Y}

Writeln('4) вперед (1 см), направо (90), вперед (1 см), направо (90). '); {вывод текста на экран}

Gotoxy(25,21); {Установка курсора в заданные координаты: X,Y}

Readln(i); {ввод значения i с клавиатуры}

  if i='10'  then goto finish;

if i='1'  then a:=a +1  {если <условие> то ...}

  else                  {Условие не выполнено}

    begin           {начало составного оператора}

     Error          { Процедура вывода ошибки }

    end;          {конец  составного оператора}

TextBackground(11); {Установка цвета экрана}

TextColor(9); {Установка цвета текста}

CLRSCR; {Очистка и закраска фона экрана}

Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y}

Writeln('10. Модель есть замещение  изучаемого  объекта  другим объектом, который         отражает:   ');

{вывод текста на экран}

Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y}

Writeln('1) все стороны данного объекта;  ');

{вывод текста на экран}

Gotoxy(11,15); {Установка курсора в заданные координаты: X,Y}

Writeln('2) некоторые стороны данного объекта;');

{вывод текста на экран}

Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y}

Writeln('3) существенные стороны данного объекта;');

{вывод текста на экран}

Gotoxy(11,17); {Установка курсора в заданные координаты: X,Y}

Writeln('4) несущественные стороны данного объекта.');

{вывод текста на экран}

Gotoxy(25,18); {Установка курсора в заданные координаты: X,Y}

Readln(i); {ввод значения i с клавиатуры}

  if i='10'  then goto finish;

if i='3'  then a:=a +1  {если <условие> то ...}

  else                 {Условие не выполнено}

    begin          {начало составного оператора}

     Error         { Процедура вывода ошибки }

    end;          {конец  составного оператора}

TextBackground(10); {Установка цвета экрана}

TextColor(14); {Установка цвета текста}

CLRSCR; {Очистка и закраска фона экрана}

Gotoxy(8,12); {Установка курсора в заданные координаты: X,Y}

Страницы: 1, 2, 3


Новости

Быстрый поиск

Группа вКонтакте: новости

Пока нет

Новости в Twitter и Facebook

  скачать рефераты              скачать рефераты

Новости

скачать рефераты

© 2010.