RSS    

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

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 наиболее понравившуюся мне книгу: Попова В. Б. Эта книга помогла мне больше, чем другие. В ней написано доступным каждому языком. Я посоветовала бы эту книгу и тем, кто только собрался постигать вершины программирования.

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


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


Новости


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

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

Пока нет

Новости в Twitter и Facebook

                   

Новости

Обратная связь

Поиск
Обратная связь
Реклама и размещение статей на сайте
© 2010.