Меню

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

Сейчас на сайте

•Сейчас• •57 гостей• •онлайн•

Авторизация



Назад...


1. Основная структура программы на языке программирования Pascal:

Program <Имя_программы>;

Var

…<область описания

переменных>…

Begin

<команды>

End.

<Имя_программы> - это любой набор английских символов, цифр, знаков подчеркивания.

Первая строка, вообще, для программы необязательна.

Если переменные не используются, то область Var не пишется.

 

2. Примеры программ:


Program Zadaza_01;

Var

a, b : integer;

s : real;

Begin

read(a,b);

s:=a/b;

writeln(s);

End.

Var

a, b : integer;

s : real;

Begin

read(a,b);

s:=a/b;

writeln(s);

End.

 


3. Команда вывода информации на экран.

writeln(a);

write(’ Равно’);

write(’ Равно ’,s);

writeln;

Команда выводит на экран значение переменной а.

Команда выводит на экран текстовое сообщение.

При использовании ln текстовый курсор переносится на новую строку, иначе остается после выведенной информации.

После всех команд ставиться точка с запятой.

Если команда выводит несколько параметров, то они отделяются запятой.

 


Задачи с решениями:

 

Составьте программу, которая выводит на экран сообщение

Привет!

Begin

writeln(‘Привет!’);

End.

Составьте программу, которая выводит на экран сообщение

Привет! Это я, компьютер.

Begin

writeln(‘Привет! Это я, компьютер.’);

End.

Составьте программу, которая выводит на экран сообщение, используя команду вывода три раза.

Привет! Это я, компьютер.

Begin

write(‘Привет! ’);

write(‘Это я, ’);

writeln(‘компьютер.’);

End.

Составьте программу, которая выводит на экран сообщение

Привет!

Это я, компьютер.

Begin

writeln (‘Привет! ’);

writeln(‘Это я, компьютер.’);

End.

 

4. Использование команды вывода для прямых вычислений арифметических выражений.

Если в команду вывода записать арифметическое выражение, то на экран будет выведен результат выражения. Например:

Writeln(5+3);

Writeln(5+3*(20-10));

Особенность выражения в том, что оно должно быть составлено в одну строку. Нужно соблюдать одно из золотых правил программиста: количество открытых скобок должно равняться количеству закрытых. Вот несколько примеров. Первый столбец ­– в математике, второй – соответственно на Pascale. В программировании вместо десятичной запятой пишется десятичная точка.

В математике

На Pascal

В математике

На Pascal

3+4

3+4

8·4

8*4

8-5

8-5

46׃2

46/2

5-12/(3+5)

5-(12+x)/(3+5)*5/(14*(3+23))

5-(12-x)/(3+5)

((a-4)/(3+b)+5)/(3+a)

1. Задания для самостоятельного решения.

Составьте программу, которая выводит на экран сообщение с использованием команды вывода три раза.

Привет!

Это я, компьютер.

Составьте программу, которая выводит на экран вашу фамилию, имя, отчество. На новой строке – год рождения.
Найдите значения выражений:
а)                                       ответ: 1.97
б)                                        ответ: 31.696

 

•Информация о профиле•

Application afterLoad: 0.001 seconds, 0.29 MB
Application afterInitialise: 0.024 seconds, 0.96 MB
Application afterRoute: 0.028 seconds, 1.20 MB
Application afterDispatch: 0.057 seconds, 1.89 MB
Application afterRender: 0.083 seconds, 2.23 MB

•Использование памяти•

2380600

•Зарегистрировано запросов: 22•

  1. SELECT *
      FROM jos_session
      WHERE session_id = 'hthh91qgp6l2kokdo3ocus21m2'
  2. DELETE
      FROM jos_session
      WHERE ( time < '1732180150' )
  3. SELECT *
      FROM jos_session
      WHERE session_id = 'hthh91qgp6l2kokdo3ocus21m2'
  4. INSERT INTO `jos_session` ( `session_id`,`time`,`username`,`gid`,`guest`,`client_id` )
      VALUES ( 'hthh91qgp6l2kokdo3ocus21m2','1732183750','','0','1','0' )
  5. SELECT *
      FROM jos_components
      WHERE parent = 0
  6. SELECT folder AS type, element AS name, params
      FROM jos_plugins
      WHERE published >= 1
      AND access <= 0
      ORDER BY ordering
  7. SELECT *
      FROM jos_migration_backlinks
      WHERE url LIKE '2015-01-05-23-14-32/2015-01-05-23-57-10/209.html%' OR sefurl LIKE '2015-01-05-23-14-32/2015-01-05-23-57-10/209.html%'
  8. SELECT template
      FROM jos_templates_menu
      WHERE client_id = 0
      AND (menuid = 0 OR menuid = 130)
      ORDER BY menuid DESC
      LIMIT 0, 1
  9. SELECT a.*, u.name AS author, u.usertype, cc.title AS category, s.title AS section, CASE WHEN CHAR_LENGTH(a.alias) THEN CONCAT_WS(":", a.id, a.alias) ELSE a.id END AS slug, CASE WHEN CHAR_LENGTH(cc.alias) THEN CONCAT_WS(":", cc.id, cc.alias) ELSE cc.id END AS catslug, g.name AS groups, s.published AS sec_pub, cc.published AS cat_pub, s.access AS sec_access, cc.access AS cat_access 
      FROM jos_content AS a
      LEFT JOIN jos_categories AS cc
      ON cc.id = a.catid
      LEFT JOIN jos_sections AS s
      ON s.id = cc.section
      AND s.scope = "content"
      LEFT JOIN jos_users AS u
      ON u.id = a.created_by
      LEFT JOIN jos_groups AS g
      ON a.access = g.id
      WHERE a.id = 209
      AND (  ( a.created_by = 0 )    OR  ( a.state = 1
      AND ( a.publish_up = '0000-00-00 00:00:00' OR a.publish_up <= '2024-11-21 10:09:10' )
      AND ( a.publish_down = '0000-00-00 00:00:00' OR a.publish_down >= '2024-11-21 10:09:10' )   )    OR  ( a.state = -1 )  )
  10. UPDATE jos_content
      SET hits = ( hits + 1 )
      WHERE id='209'
  11. SELECT id, title, module, position, content, showtitle, control, params
      FROM jos_modules AS m
      LEFT JOIN jos_modules_menu AS mm
      ON mm.moduleid = m.id
      WHERE m.published = 1
      AND m.access <= 0
      AND m.client_id = 0
      AND ( mm.menuid = 130 OR mm.menuid = 0 )
      ORDER BY position, ordering
  12. SELECT *
                           
      FROM jos_menu
                           
      WHERE menutype='mod_maximenu_CK'
      AND published=1
                           
      ORDER BY sublevel DESC,ordering
                            ;
  13. SELECT *
                           
      FROM jos_modules
                           
      WHERE published=1
                           
      ORDER BY id
                            ;
  14. SELECT *
                           
      FROM jos_menu
                           
      WHERE menutype='uth_proc'
      AND published=1
                           
      ORDER BY sublevel DESC,ordering
                            ;
  15. SELECT *
                           
      FROM jos_modules
                           
      WHERE published=1
                           
      ORDER BY id
                            ;
  16. SELECT *
                           
      FROM jos_menu
                           
      WHERE menutype='Olimp'
      AND published=1
                           
      ORDER BY sublevel DESC,ordering
                            ;
  17. SELECT *
                           
      FROM jos_modules
                           
      WHERE published=1
                           
      ORDER BY id
                            ;
  18. SELECT *
                           
      FROM jos_menu
                           
      WHERE menutype='obr_sv'
      AND published=1
                           
      ORDER BY sublevel DESC,ordering
                            ;
  19. SELECT *
                           
      FROM jos_modules
                           
      WHERE published=1
                           
      ORDER BY id
                            ;
  20. SELECT *
                           
      FROM jos_menu
                           
      WHERE menutype='raznoe'
      AND published=1
                           
      ORDER BY sublevel DESC,ordering
                            ;
  21. SELECT *
                           
      FROM jos_modules
                           
      WHERE published=1
                           
      ORDER BY id
                            ;
  22. SELECT guest, usertype, client_id
      FROM jos_session
      WHERE client_id = 0

•Языковые файлы загружены•

  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.plg_system_debug.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.com_content.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.plg_content_pagebreak.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.tpl_MY_sh.ini
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/en-GB/en-GB.tpl_MY_sh.ini
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.mod_maximenu_CK.ini
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/en-GB/en-GB.mod_maximenu_CK.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.mod_whosonline.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.mod_login.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.mod_breadcrumbs.ini 1

•Диагностика непереведённых строк•

•Нет•

•Дизайнер непереведённых строк•

•Нет•