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

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}

Writeln('11. Минимальным объектом, используемым в текстовом редакторе, является:   ');

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

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('12. Количество разичных кодировок букв русского алфавита составляет:   ');

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

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

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

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

Writeln('2) две (MS-DOS, Windows);'); {вывод текста на экран}

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

Writeln('3) три (MS-DOS, Windows, Macintosh);');

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

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

Writeln('4) пять (MS-DOS, Windows, Macintosh,ISO, КОИ-8).'); {вывод текста на экран}

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('13. Инструментами в графическом редакторе являются:   ');

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

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('14. Графический файл содержит полную информацию о каждой точке изображе- ния, если он сохранен в формате:');

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

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

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

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

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

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

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

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

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

Gotoxy(25,18); {Установка курсора в заданные координаты: 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('15. В состав мультимедийного компьютера входит:   ');

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

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

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

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

Writeln('2) CD-ROM дисковод и звуковая плата;');

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

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('16. В электронных  таблицах  выделена группа ячеек  А1:В3. Сколько ячеек   входит в эту группу?   ');

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

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

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

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

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

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

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

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

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

Gotoxy(25,18); {Установка курсора в заданные координаты: 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('17. Основным элементом базы данных является:   ');

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

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('18. Модем, передающий информацию со скоростью 28800 бит/с,  передает две');

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

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

Writeln(' страницы текста (3600 байт) в течении:');

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

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

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

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

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

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

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

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

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

Gotoxy(25,18); {Установка курсора в заданные координаты: 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('19. Какой из способов подключения к Интернет обеспечивает наибольшие   ');

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

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

Writeln('возможности для доступа к информационным ресурсам?');

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

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(11); {Установка цвета экрана}

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

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

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

Writeln('20. Гипертекст-это:   ');

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

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

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

Gotoxy(11,14); {Установка курсора в заданные координаты: 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;         {конец  составного оператора}

  b:=20-a;

     assign(f,'c:\Tvor\result.txt');

     append(f); { открываем файл для добавления записи }

     with D do

        begin

          WRITELN(f,m,' ',o,' ',n,' класс');

          {вывод текста в файл}

          if a=20 then  {если <условие> то ...}

            writeln(f,'0 ошибок - 5+.');

            {вывод текста в файл}

          if a=19 then

            writeln(f,'1 ошибка! 5.');

            {вывод текста в файл}

          if (a<=18) and (a>=16) then

             writeln(f,b,' ошибки! 4. ');

             {вывод текста в файл}

          if (a<=15) and (a>=10) then

             writeln(f,b,'  ошибок! 3.');

             {вывод текста в файл}

          if a<=9 then

             writeln(f,b,'  ошибок! 2. ');

             {вывод текста в файл}

        end;

     close(f);

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

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

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

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

   WRITELN(m,' ',o,' ',n,' класс'); {вывод текста на экран}

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

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

     if a=20 then      {если <условие> то ...}

       writeln('Я не могу поверить!  Вы ответили на все вопросы!  Я  оцениваю Ваши знания      оценкой 5+.');

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

     if a=19 then

       writeln('Вы допустили 1 ошибку!  Вы отлично ориентируетесь  в  мире  информатики.      МОЛОДЕЦ!!! 5.');

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

     if (a<=18) and (a>=16) then

       writeln('Вы допустили  ',b,' ошибки!  Мне бы хотелось,  чтобы  Вы  в  следующий  раз      ответили лучше! 4. ');

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

     if (a<=15) and (a>=10) then

       writeln('Вы  допустили ',b,'  ошибок!   Я  посоветовала  бы  Вам  изучать  получше         информатику! 3.');

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

     if a<=9 then

        writeln('Вы допустили  ',b,'  ошибок!  Ваши  знания  отвратительны!  Жду  Вас  на          пересдачу зачета! 2. ');

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

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

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

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

    Writeln('Спасибо, что протестировались!!!');    {вывод текста на экран}

    Delay(15000); {Задержка}

finish:

End.                           {конец программы}

Заключение.

Благодаря этой творческой работе я стала лучше ориентироваться в информатике, ознакомилась с правилами выполнения творческой работы, получила новые знания, узнала больше о программировании.

Хочу отметить 1 наиболее понравившуюся мне книгу: Попова В. Б. Эта книга помогла мне больше, чем другие. В ней написано доступным каждому языком. Я посоветовала бы эту книгу и тем, кто только собрался постигать вершины программирования.

Мне бы хотелось почаще использовать свои новые полученные знания на практике, а именно работать по специальности инженер-программист.