Wiki Mininuniver - Вклад участника [ru]

Учебный проект Создаем локальную сеть

2009-11-14T09:13:01Z

Володина Маргарита: /* Предмет, класс */

== Автор проекта ==
[[Володина Маргарита]]

== Предмет, класс ==
Информатика и ИКТ, 11 класс

== Краткая аннотация проекта ==

== Вопросы, направляющие проект ==

===''Основополагающий вопрос''===

===''Проблемные вопросы''===

===''Учебные вопросы''===

==План проведения проекта==

== Визитная карточка проекта ==

== Публикация преподавателя ==

== Презентация преподавателя для выявления представлений и интересов учащихся ==

== Пример продукта проектной деятельности учащихся ==

== Материалы по формирующему и итоговому оцениванию ==

== Материалы по сопровождению и поддержке проектной деятельности ==

== Полезные ресурсы ==

== Проекты с аналогичной тематикой ==

== Другие документы ==

[[Категория:Проекты]]

Учебный проект Создаем локальную сеть

2009-11-14T09:12:12Z

Володина Маргарита: /* Автор проекта */

== Автор проекта ==
[[Володина Маргарита]]

== Предмет, класс ==

== Краткая аннотация проекта ==

== Вопросы, направляющие проект ==

===''Основополагающий вопрос''===

===''Проблемные вопросы''===

===''Учебные вопросы''===

==План проведения проекта==

== Визитная карточка проекта ==

== Публикация преподавателя ==

== Презентация преподавателя для выявления представлений и интересов учащихся ==

== Пример продукта проектной деятельности учащихся ==

== Материалы по формирующему и итоговому оцениванию ==

== Материалы по сопровождению и поддержке проектной деятельности ==

== Полезные ресурсы ==

== Проекты с аналогичной тематикой ==

== Другие документы ==

[[Категория:Проекты]]

Учебный проект Создаем локальную сеть

2009-11-14T09:11:25Z

Володина Маргарита: Новая: {{subst: Шаблон:Портфолио проекта1}}

== Автор проекта ==

== Предмет, класс ==

== Краткая аннотация проекта ==

== Вопросы, направляющие проект ==

===''Основополагающий вопрос''===

===''Проблемные вопросы''===

===''Учебные вопросы''===

==План проведения проекта==

== Визитная карточка проекта ==

== Публикация преподавателя ==

== Презентация преподавателя для выявления представлений и интересов учащихся ==

== Пример продукта проектной деятельности учащихся ==

== Материалы по формирующему и итоговому оцениванию ==

== Материалы по сопровождению и поддержке проектной деятельности ==

== Полезные ресурсы ==

== Проекты с аналогичной тематикой ==

== Другие документы ==

[[Категория:Проекты]]

Основной курс программы Intel Обучение для будущего сентябрь-декабрь 2009

2009-11-14T09:10:53Z

Володина Маргарита: /* Портфолио проектов */

=Организационные моменты=
'''Даты проведения'''
сентябрь-декабрь 2009 года

[[Группа ИВТ-08-1]] 
[[Группа ИВТ-08-2]] 
[[Группа ИВТ 06-3]]

'''Преподаватели'''

[[Участник:Круподерова Елена Петровна|Круподерова Елена Петровна]]

Канянина Татьяна Ивановна

=Цель=
* Освоение содержания Основного курса программы Intel "Обучение для будущего"
* Развитие компетентности в области организации проектной деятельности с использованием информационно-коммуникационных технологий
*Создание портфолио учебного проекта

= Ресурсы =

'''Примеры портфолио проектов:'''

[http://wiki.iteach.ru/index.php/Новый_основной_курс_программы_Intel_Обучение_для_будущего_Примеры_проектов_по_предметам Примеры проектов по предметам]

[[Площадка программы Intel Обучение для будущего|Примеры проектов студентов ВГИПУ]]

= Наши ссылки =

* [http://www.edu.ru/db/portal/obshee/index.htm Государственные образовательные стандарты]
* [http://educate.intel.com/ru/ProjectDesign Разработка эффективных проектов]
* [http://educate.intel.com/ru/AssessingProjects/AssessmentStrategies/index.htm Оценивание проектов]
* [[Правила работы в ВикиВГИПУ]]
*[[Шаблон:Вики-статья учащихся]]

= Портфолио проектов =

На страницу проекта вставьте пожалуйста [[Шаблон:Портфолио проекта]]
или [[Шаблон:Портфолио проекта1]]
*[[Участник: Забелина Алена|Забелина Алена]], [[Учебный проект Технология обработки табличных данных]]
*[[Участник: Пундикова Алена|Пундикова Алена]], [[Участник:Соловьева Юлия|Соловьева Юлия]] [[Учебный проект ПО для математика]]
*[[Участник: Феоктистов Артур|Феоктистов Артур]], [[Участник:Мещеров Равиль|Мещеров Равиль]][[Учебный проект Знакомство с численными методами]]
*[[Участник:Безрукова Альбина|Безрукова Альбина]], [[Участник:Чичиканова Катя|Чичиканова Катя]] [[Учебный проект Тела вращения]]
*[[Участник:Игнатьева Мария|Игнатьева Мария]], [[Учебный проект Выбираем графический редактор]]
[[Категория: Обучение для будущего]]
*[[Участник:Ермолаев Владимир|Ермолаев Владимир]], [[Участник:Бекиров Сервер|Бекиров Сервер]] [[Учебный проект Обработка графической информации]]
*[[Участник:Дарья Жаркова|Дарья Жаркова]],[[Участник:Голумина Алена|Голумина Алена]],[[Участник:Ананьева Анна|Ананьева Анна]][[Учебный проект Современные сетевые технологии]]
*[[Участник:Кузьминых Сергей|Кузьминых Сергей]], [[Участник:Аверин Михаил|Аверин Михаил]], [[Участник:Антон Савицкий|Антон Савицкий]] [[Учебный проект Выбираем обозреватель]]
*[[Участник:Андрей Шерстнёв|Андрей Шерстнёв]][[Учебный проект Интернет Технологии]]
*[[Участник:Абросимов Роман|Абросимов Роман]], [[Участник:Заплатин Андрей|Заплатин Андрей]], [[Участник:Коробейников Александр|Коробейников Александр]] [[Учебный проект Шифрование данных]]
*[[Участник:Логунов Павел|Логунов Павел]], [[Участник:Кислицын Владимир|Кислицын Владимир]], [[Участник:Красильников Евгений|Красильников Евгений]] [[Учебный проект Технологии обработки текста]]
*[[Участник:Сухонина Евгения|Сухонина Евгения]], [[Участник:Бачинина Наталья|Бачинина Наталья]] [[Учебный проект Осваиваем Delphi]]
*[[Участник:Румянцва Юлия|Румянцева Юлия]], [[Участник:Коробейникова Дарья|Коробейникова Дарья]] [[Учебный проект Модели вокруг нас]]
*[[Участник:Буйских Мария|Буйских Мария]], [[Участник:Сенина Юлия|Сенина Юлия]] [[Учебный проект Компьютерная графика: вчера, сегодня, завтра]]
*[[Участник:Васильев Евгений Юрьевич|Васильев Евгений]], [[Участник:Капранов Александр|Капранов Александр]] [[Учебный проект Компьютерные сети: вчера, сегодня, завтра]]
*[[Участник:Василёха Аревик|Василёха Аревик]] [[Учебный проект Создаем базу данных]]
*[[Участник:Панин Денис|Панин Денис]], [[Участник:Панов Михаил|Панов Михаил]], [[Участник:Монахов Сергей|Монахов Сергей]] [[Учебный проект Выбор Hardware]]
*[[Участник:Денис Завьялов|Денис Завьялов]] [[Учебный проект Программируем на Delphi]]
*[[Участник:Зубанова Юлия|Юля Зубанова]],[[Участник:Соболева Екатерина|Соболева Екатерина]][[Учебный проект Все гениальное просто]]
*[[Участник:Дормидонтова Анна|Дормидонтова Анна]],[[Участник:ФадеевАлександр|ФадеевАлександр]][[Учебный проект Электронный офис]]
*[[Участник:Бирюкова Любовь|Бирюкова Любовь]],[[Участник:Кузьмина Светлана|Кузьмина Светлана]] [[Учебный проект Аппаратное обеспечение компьютера]]
*[[Участник:Самсонова Ксения|Самсонова Ксения]], [[Участник:Агафонова Екатерина|Агафонова Екатерина]][[Учебный проект Создаем компьютерную модель]]
*[[Участник:Моровов Илья|Моровов Илья]], [[Участник:Бажутов Александр|Бажутов Александр]] [[Учебный проект Создаём сайт]]
*[[Участник:Латышева Анна|Латышева Анна]], [[Участник:Куряткова Наталия|Куряткова Наталия]] [[Учебный проект Выбираем компьютер]]
*[[Участник:Володина Маргарита|Володина Маргарита]] [[Учебный проект Создаем локальную сеть]]

Участник:Володина Маргарита

2009-11-14T09:07:46Z

Володина Маргарита: Новая: '''ФИО:''' Володина Маргарита '''Факультет:''' ФСПО ...

'''ФИО:''' Володина Маргарита

'''Факультет:''' [[Факультет среднего профессионального образования |ФСПО ]]

'''Группа:''' [[группа ИВТ 05-3 |ИВТ 05-3]]

'''Мои увлечения:''' Люблю слушать музыку

'''Совместная страница в Вики: ''' [[Основной курс программы Intel Обучение для будущего сентябрь-декабрь 2009]]

'''Мой проект: '''

[[Категория:Студент]]

Обсуждение участника:Терешанцева Юлия

2008-09-15T15:38:42Z

Иванов Александр:

Хе-хе-хе-хейййй, привет, солныфко, очень рад твоему комменту, приму это к сведению и попробую исправиться, люблю, целую)))

хи-хи-хи))))ещё раз привет, солныфко)))как твои дела?)

ау-ау-ау-ау!!!!!ты где, солнце моё??

А у меня жуткий депресс в связи с наступлением весны...месяца 2 уже как...мучаемся по-тихоньку. у тебя как на личном фронте?)?)?

Узнавала???ты мне то не ври..угу!!!меня на место поставили вчера ночья...я ещё раз убедился, что я такая сволочь...ужасно...скорей бы лето, сдать сессию и решить проблемы...э-э-ээ-х(((ты сама давай не раскисай, милая))

да уж...тебя переубедить то сложно, не то что в талдычить что-то))))а я поджвержен, а так как слишком эмоциональный, поэтому всё это выливается в дипресс...

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

Может быть...может быть...может...кто знает...я просто не поинмаю, что я делаю не так...

ПРивет тебе из внутреннего мира меня))))как ты себя чувствуешь?
Привет, чувствую себя прямо сазать не очень!!!!!!!настроение-говно,и я даже незнаю как его поднять..........

Я думаю можно поднять настроение, либо музыкой, либо теми людьми, с которыми тебе хорошо...как?

да, но в последнее время те люди, с которыми мне хорошо приносят мне только боль........

мда...случается, но есть же человек...хотя бы один, наверно больше и не надо...с кем ты забываешь о проблемах...

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

Ну уж не знаю...что тут преувеличить можно, если всё г***о...что тут преувеличить...может ты его чем-то обидела, или у него проблемы?

знала бы я еще, незнаю в чем причина, но я конечно пыталась с ним поговорить, но он утверждает, что нет проблем, но я то вижу, что что-то не так как было раньше, его отношение резко поменялось, очень обидно, когда от близкого человека чувствуешь холод или он просто забывает про твое существование....а сейчас он в деревне я скучаю, а он????а он пишет, что не будет больше мне зврнить из за того что сеть не ловит..........

Жестоко, однако!!!!ну, может он от чего-то отойти хочет, уединиться...а вообще, надо было рассказать всё таки...

Участник:Иванов Александр

2008-09-15T15:34:38Z

Иванов Александр:

'''ФИО: '''Иванов Александр Александрович

'''Факультет: '''[[Факультет среднего профессионального образования|ФСПО]]

'''Группа: '''[[Группа ИВТ 06-2|ИВТ 06-2]]

'''Мои увлечения: '''[[Команда КВН ВГИПУ "СВОИ ЛЮДИ"|КВН]](самая весёлая и позитивная игра) , Паркур Need For Freedom(Нет границ есть лишь препятствия!)

'''Любимые игры: '''Counter-Strike, Half-Life, Postal2, Сапёр :)

'''Учебный проект: '''[[Учебный проект Операционные системы|Операционные системы и среды]]

'''В свободное время: '''занимаюсь ParKour'ом, особенно летом, по всему городу, люблю страдать всякой ерундой, придумывать какую-нибудь фишку и угарать над ней неделю, и по новой, ещё активно занимаюсь КВНом, состою на учёте в команде "СВОИ ЛЮДИ", люблю зависнуть в интернете и попереписываться с друзьями, которые далеко

[[Категория: Студент]]

Участник:Иванов Александр

2008-09-15T15:34:11Z

Иванов Александр:

'''ФИО: '''Иванов Александр Александрович

'''Факультет: '''[[Факультет среднего профессионального образования|ФСПО]]

'''Группа: '''[[Группа ИВТ 06-2|ИВТ 06-2]]

'''Мои увлечения: '''[[Команда КВН ВГИПУ "СВОИ ЛЮДИ"|КВН]](самая весёлая и позитивная игра) , Паркур Need For Freedom(Нет границ есть лишь препятствия!)

'''Любимые игры: '''Counter-Strike, Half-Life, Postal2, Сапёр :)

'''Учебный проект: '''[[Учебный проект Операционные системы]]

'''В свободное время: '''занимаюсь ParKour'ом, особенно летом, по всему городу, люблю страдать всякой ерундой, придумывать какую-нибудь фишку и угарать над ней неделю, и по новой, ещё активно занимаюсь КВНом, состою на учёте в команде "СВОИ ЛЮДИ", люблю зависнуть в интернете и попереписываться с друзьями, которые далеко

[[Категория: Студент]]

Обсуждение участника:Меньков Антон

2008-09-15T15:29:38Z

Иванов Александр:

ВРотМнеНоги!!!!!!!!!!как чё?)

Обсуждение участника:Терешанцева Юлия

2008-09-15T15:28:56Z

Иванов Александр:

Учебный проект Операционные системы

2008-09-15T15:26:46Z

Иванов Александр: /* Краткая аннотация проекта */

== Автор проекта ==

Иванов Александр

== Название проекта ==

Операционные системы

== Предмет, класс ==

Информатика, 8-11 класс

== Краткая аннотация проекта ==

Наверно ОС - это то, бес чего мы не можем представить компьютер...как же можно что-то делать, без синего экрана Виндоуса...а мы рассмотрим другие ОС, может они окажутся интереснее...

== Вопросы, направляющие проект ==

===''Основополагающий вопрос''===

===''Проблемные вопросы''===

===''Учебные вопросы''===

== Публикация учителя ==

== Визитная карточка проекта ==

== Презентация учителя для выявления представлений и интересов учащихся ==

== Пример продукта проектной деятельности учащихся ==

== Материалы по формирующему и итоговому оцениванию ==

== Материалы по сопровождению и поддержке проектной деятельности ==

== Другие документы ==

[[Категория:Проекты]]
[[Категория:Шаблон]]

Учебный проект Операционные системы

2008-09-15T15:25:36Z

Иванов Александр: /* Предмет, класс */

== Автор проекта ==

Иванов Александр

== Название проекта ==

Операционные системы

== Предмет, класс ==

Информатика, 8-11 класс

== Краткая аннотация проекта ==

== Вопросы, направляющие проект ==

===''Основополагающий вопрос''===

===''Проблемные вопросы''===

===''Учебные вопросы''===

== Публикация учителя ==

== Визитная карточка проекта ==

== Презентация учителя для выявления представлений и интересов учащихся ==

== Пример продукта проектной деятельности учащихся ==

== Материалы по формирующему и итоговому оцениванию ==

== Материалы по сопровождению и поддержке проектной деятельности ==

== Другие документы ==

[[Категория:Проекты]]
[[Категория:Шаблон]]

Учебный проект Операционные системы

2008-09-15T15:25:09Z

Иванов Александр: /* Название проекта */

== Автор проекта ==

Иванов Александр

== Название проекта ==

Операционные системы

== Предмет, класс ==

== Краткая аннотация проекта ==

== Вопросы, направляющие проект ==

===''Основополагающий вопрос''===

===''Проблемные вопросы''===

===''Учебные вопросы''===

== Публикация учителя ==

== Визитная карточка проекта ==

== Презентация учителя для выявления представлений и интересов учащихся ==

== Пример продукта проектной деятельности учащихся ==

== Материалы по формирующему и итоговому оцениванию ==

== Материалы по сопровождению и поддержке проектной деятельности ==

== Другие документы ==

[[Категория:Проекты]]
[[Категория:Шаблон]]

Учебный проект Операционные системы

2008-09-15T15:24:52Z

Иванов Александр: /* Автор проекта */

== Автор проекта ==

Иванов Александр

== Название проекта ==

== Предмет, класс ==

== Краткая аннотация проекта ==

== Вопросы, направляющие проект ==

===''Основополагающий вопрос''===

===''Проблемные вопросы''===

===''Учебные вопросы''===

== Публикация учителя ==

== Визитная карточка проекта ==

== Презентация учителя для выявления представлений и интересов учащихся ==

== Пример продукта проектной деятельности учащихся ==

== Материалы по формирующему и итоговому оцениванию ==

== Материалы по сопровождению и поддержке проектной деятельности ==

== Другие документы ==

[[Категория:Проекты]]
[[Категория:Шаблон]]

Участник:Иванов Александр

2008-09-15T15:23:53Z

Иванов Александр:

'''ФИО: '''Иванов Александр Александрович

'''Факультет: '''[[Факультет среднего профессионального образования|ФСПО]]

'''Группа: '''[[Группа ИВТ 06-2|ИВТ 06-2]]

'''Мои увлечения: '''[[Команда КВН ВГИПУ "СВОИ ЛЮДИ"|КВН]](самая весёлая и позитивная игра) , Паркур Need For Freedom(Нет границ есть лишь препятствия!)

'''Любимые игры: '''Counter-Strike, Half-Life, Postal2, Сапёр :)

'''В свободное время: '''занимаюсь ParKour'ом, особенно летом, по всему городу, люблю страдать всякой ерундой, придумывать какую-нибудь фишку и угарать над ней неделю, и по новой, ещё активно занимаюсь КВНом, состою на учёте в команде "СВОИ ЛЮДИ", люблю зависнуть в интернете и попереписываться с друзьями, которые далеко

[[Категория: Студент]]

Обсуждение участника:Андрей Деричев

2008-09-15T15:23:00Z

Иванов Александр:

В рот мне ноги, скукожь его обратно!!!!!!!!!!!!как чё?

Обсуждение участника:Терешанцева Юлия

2008-09-15T15:21:37Z

Иванов Александр:

Учебный проект Операционные системы

2008-09-15T13:36:59Z

Иванов Александр:

== Автор проекта ==

== Название проекта ==

== Предмет, класс ==

== Краткая аннотация проекта ==

== Вопросы, направляющие проект ==

===''Основополагающий вопрос''===

===''Проблемные вопросы''===

===''Учебные вопросы''===

== Публикация учителя ==

== Визитная карточка проекта ==

== Презентация учителя для выявления представлений и интересов учащихся ==

== Пример продукта проектной деятельности учащихся ==

== Материалы по формирующему и итоговому оцениванию ==

== Материалы по сопровождению и поддержке проектной деятельности ==

== Другие документы ==

[[Категория:Проекты]]
[[Категория:Шаблон]]

Обсуждение участника:Терешанцева Юлия

2008-09-15T13:15:37Z

Иванов Александр:

Обсуждение участника:Терешанцева Юлия

2008-09-15T13:06:55Z

Иванов Александр:

Участник:Иванов Александр

2008-04-19T06:20:20Z

Иванов Александр:

'''ФИО: '''Иванов Александр Александрович

'''Факультет: '''[[Факультет среднего профессионального образования|ФСПО]]

'''Группа: '''[[Группа ИВТ 06-2|ИВТ 06-2]]

'''Мои увлечения: '''[[Команда КВН ВГИПУ "СВОИ ЛЮДИ"|КВН]](самая весёлая и позитивная игра) , Паркур (Нет границ есть лишь препятствия!)

'''Любимые игры: '''Counter-Strike, Half-Life, Postal2, Сапёр :)

'''В свободное время: '''занимаюсь ParKour'ом, особенно летом, по всему городу, люблю страдать всякой ерундой, придумывать какую-нибудь фишку и угарать над ней неделю, и по новой, ещё активно занимаюсь КВНом, состою на учёте в команде "СВОИ ЛЮДИ", люблю зависнуть в интернете и попереписываться с друзьями, которые далеко

[[Категория: Студент]]

Обсуждение участника:Терешанцева Юлия

2008-04-19T06:19:43Z

Иванов Александр:

Команда КВН ВГИПУ "СВОИ ЛЮДИ"

2008-04-19T06:07:23Z

Иванов Александр:

'''Команда КВН "СВОИ ЛЮДИ"'''

'''Состав: '''
*Морев Евгений
*Чугунова Диана
*Голубева Екатерина
*Варлашкин Александр
*[[Участник: Ли Юрий|Ли Юрий]]
*Гусев Михаил
*Курбатов Дмитрий
*Волков Алексей
*[[Участник: Иванов Александр|Иванов Александр]]
*Исхаков Марат
*Марушин Олег

'''Ближайшие игры команды'''

2 мая - 1\4 лиги КВН "ПЛЮС" в ДК ГАЗ

12 мая - 1\4 Нижегородской Городской Открытой Лиги КВН "НГОЛ" в Политехе

Команда КВН ВГИПУ "СВОИ ЛЮДИ"

2008-04-19T06:06:54Z

Иванов Александр:

'''Команда КВН "СВОИ ЛЮДИ"'''

'''Состав: '''
*Морев Евгений
*Чугунова Диана
*Голубева Екатерина
*Варлашкин Александр
*[[Участник: Ли Юрий|Ли Юрий]]
*Гусев Михаил
*Курбатов Дмитрий
*Волков Алексей
*[[Участник: Иванов Александр|Иванов Александр]]
*Исхаков Марат
*Марушин Олег

'''Ближайшие игры команды'''
2 мая - 1\4 лиги КВН "ПЛЮС" в ДК ГАЗ
12 мая - 1\4 Нижегородской Городской Открытой Лиги КВН "НГОЛ" в Политехе

Обсуждение участника:Терешанцева Юлия

2008-04-19T06:04:23Z

Иванов Александр:

Обсуждение участника:Терешанцева Юлия

2008-04-19T05:27:39Z

Иванов Александр:

Обсуждение участника:Терешанцева Юлия

2008-04-19T05:16:15Z

Иванов Александр:

Обсуждение участника:Терешанцева Юлия

2008-04-19T05:04:32Z

Иванов Александр:

Обсуждение участника:Терешанцева Юлия

2008-04-19T04:30:01Z

Иванов Александр:

Обсуждение участника:Терешанцева Юлия

2008-04-19T04:25:35Z

Иванов Александр:

Учебный курс Программирование на Delphi. Модуль 3

2008-02-26T12:08:21Z

Иванов Александр: /* Пример */

<center>'''Программирование на Delphi линейных алгоритмов'''</center>

== Типы данных Delphi ==

''Целый тип''

Язык Delphi поддерживает семь целых типов данных, описание которых приведено в табл. 1.
Таблица 1. Целые типы

{| border=1
!Тип||Диапазон||Формат||
|-
| Shortint||-128 - 127||8 битов
|-
| Smallint||-32768 - 32767||16 битов
|-
| Longint||-2147483648 - 2147483647||32 бита
|-
| Int64|| -263 -2 63-1||64 бита
|-
| Byte||0 - 255||8 битов
|-
| Word||0 - 65535||16 битов
|-
| Longword||0 - 4294967295||32 бита
|-
|}

Object Pascal поддерживает и наиболее универсальный целый тип - Integer, который эквивалентен Longint.

''Вещественный тип''

Язык Delphi поддерживает шесть вещественных типов. Типы различаются между собой диапазоном допустимых значений, количеством значащих цифр и количеством байтов, необходимых для хранения данных в памяти компьютера (табл. 2).

Таблица 2. Вещественные (дробные) типы

{| border=1
!Тип||Диапазон||Значащих цифр||Байтов||
|-
| Real48||2.9 x 10 -39 - 1.7 x 1038 ||11 – 12||6
|-
| Single||1.5 x 10 -45 - 3.4 x 1038 ||7 – 8||4
|-
| Double||5.0 x 10 -324 - 1.7 x 10308 ||15 – 16||8
|-
| Extended||3.6 x 10 -4951 - 1.1 x 104932 ||19 – 20||10
|-
| Comp||-2 63 +1 - 2 63 -1 ||19 – 20||8
|-
| Currency||-9223372036854775808 - 9223372036854775807 ||19 –20||8

|-
|}

Язык Delphi поддерживает и наиболее универсальный вещественный тип - Real, который эквивалентен Double.

''Символьный тип''

Язык Delphi поддерживает два символьных типа: Ansichar и Widechar:
*тип Ansichar — это символы в кодировке ANSI, которым соответствуют числа в диапазоне от 0 до 255;
*тип widechar — это символы в кодировке Unicode, им соответствуют числа от 0 до 65535.
Object Pascal поддерживает и наиболее универсальный символьный тип - Char, который эквивалентен Ansichar.

''Строковый тип''

Язык Delphi поддерживает три строковых типа: shortstring, Longstring и WideString:
*тип shortstring представляет собой статически размещаемые в памяти компьютера строки длиной от 0 до 255 символов;
*тип Longstring представляет собой динамически размещаемые в памяти строки, длина которых ограничена только объемом свободной памяти;
*тип WideString представляет собой динамически размещаемые в памяти строки, длина которых ограничена только объемом свободной памяти. Каждый символ строки типа WideString является Unicode-символом.
В языке Delphi для обозначения строкового типа допускается использование идентификатора string. Тип string эквивалентен типу shortstring.

''Логический тип''

Логическая величина может принимать одно из двух значений True (истина) или False (ложь). В языке Delphi логические величины относят к типу Boolean.

== Линейный алгоритм ==
Алгоритм решения любой задачи на ЭВМ можно получить, используя и комбинируя только три структуры: последовательную, структуру ветвления и структуру цикла.

Последовательная структура, которую называют также линейным процессом, состоит в последовательном выполнении одного оператора (блоков операторов) за другим без каких – либо переходов.

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

== Инструкция присваивания ==

Инструкция присваивания является основной вычислительной инструкцией. Если в программе надо выполнить вычисление, то нужно использовать инструкцию присваивания. В результате выполнения инструкции присваивания значение переменной меняется, ей присваивается значение.
Общий вид инструкции присваивания: Имя переменной : = Выражение;
Выражение состоит из операндов и операторов. Операторы находятся между операндами и обозначают действия, которые выполняются над операндами. В качестве операндов выражения можно использовать: переменную, константу, функцию или другое выражение. Основные алгебраические операторы приведены в табл. 3.

Таблица 3. Алгебраические операторы

{| border=1
!Оператор||Действие||
|-
|+||Сложение
|-
| -||Вычитание
|-
| *||Умножение
|-
| /||Деление
|-
| DIV||Деление нацело
|-
| MOD||Вычисление остатка от деления
|-
|}

== Стандартные функции ==

Математические функции указаны в таблице 4.

Таблица 4. Математические функции

{| border=1
!Функция||Значение||
|-
|Abs(x)||Модуль x
|-
| Sqrt(x)|| Квадратный корень из x
|-
| Sqr(x)|| Квадрат x
|-
| Sin(x)||Синус x
|-
| Cos(x)|| Косинус x
|-
| Arctan(x)|| Арктангенс x
|-
| Exp(x)||Экспонента x
|-
| Ln(x)|| Натуральный логарифм x
|-
| Random(x)||Случайное целое число в диапазоне от 0 до x-1
|-
|}

== Функции преобразования ==

Функции преобразования (табл. 5) наиболее часто используются в инструкциях, обеспечивающих ввод и вывод информации.
Таблица 5. Функции преобразования

{| border=1
!Функция||Значение функции||
|-
|Chr(x)|| Символ, код которого равен x
|-
| IntToStr(x)|| Строка, являющаяся изображением целого x
|-
| FloatToStr(x)|| Строка, являющаяся изображением вещественного x
|-
| FloatToStrF(x, f, k,m)|| Строка, являющаяся изображением вещественного x. f — формат; k — общее количество цифр; m — количество цифр после десятичной точки
|-
| StrToInt(s)|| Целое, изображением которого является строка s
|-
| StrToFloat (s)|| Целое, изображением которого является строка s
|-
|Round(x)|| Целое, полученное путем округления x
|-
| Trunc(x)|| Целое, полученное путем отбрасывания дробной части x
|-
| Frac(x)|| Дробное, представляющее собой дробную часть вещественного x
|-
| Int(x)|| Дробное, представляющее собой целую часть вещественного x
|-
|}

== Пример ==

*Условие. Найти сопротивление цепи из двух последовательно соединенных проводников.
*Использованные компоненты
Edit1 – ввод R1
Edit1 – ввод R2
Label1 - вывод результирующего сопротивления
Button1 - запуск программы
Button2 - выход из программы

*'''Программный код'''
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Close;
end;
var r1,r2,r:integer;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
r1:=strtoint(edit1.Text);
r2:=strtoint(edit2.Text);
r:=r1+r2;
label3.Caption:='Сопротивление 1-го проводника= '+inttostr(r1)+
#13+'Сопротивление 2-го проводника= '+inttostr(r2)+#13+'Сопротивление цепи= '+inttostr(r)
end;
end.
*'''Форма с результатом работы программы'''

[[Изображение:-1-1.JPG]]

==Задание==

Таблица 6

{| border=1
!Номер варианта||Условие||Исходные данные||
|-
|<center>1</center>||Определить расстояние d между двумя точками на плоскости||х1, у1, x2, y2|<center>x1,y1,x2,y2</center>
|-
|<center>2</center>||Заданы 4 числа. Вычислить среднее арифметическое и среднее геометрическое их модулей||<center>a, в, c, d</center>
|-
|<center>3</center>|| Найти радиус окружности, описанной вокруг треугольника по формуле:
R=(a*b*c)/(4*SQRT(p*(p-a)*(p-b)*(p-c))),
где р - полупериметр
||<center>а, в, с</center>
|-
|<center>4</center>||Найти радиус круга, вписанного в треугольник со сторонами а, в, с по формуле:
r=(SQRT(p*(p-a)*(p-b)*(p-c)))/p,
где р - полупериметр
||<center>а, в, с</center>
|-
|<center>5</center>||Определить площадь треугольника по трем углам и высоте:

||<center>A, B, C, h</center>
|-
|<center>6</center>||Определить площадь треугольника по заданной стороне и углам:
S=(SQR(h)*sin(A))/(2*sin(B)*sin(C)),
где р - полупериметр
||<center>A, B, C, a</center>
|-
|<center>7</center>||Вычислить сопротивление цепи:

||<center>R1, R2, R3</center>
|-
|<center>8</center>||Вычислить сопротивление цепи:

где р - полупериметр
||<center>R1, R2, R3</center>
|-
|<center>9</center>||По двум сторонам и углу между ними в треугольнике АВС найти два остальных угла и третью сторону.
SQR(C)=SQR(A)+SQR(B)-2*A*B*cos(x)

||<center>A, B, x</center>
|-
|<center>11</center>||Найти площадь ромба по стороне и острому углу:
S=SQR(a)*sin(x),
где а - сторона , x-угол

||<center>а, x</center>
|-
|<center>12</center>|| В арифметической прогрессии известны 1-й член и разность. Найти 30-й член этой прогрессии и сумму первых 40 членовгде р - полупериметр
||<center>а1, d</center>
|-
|<center>13</center>||Найти координаты центра отрезка, заданного координатами его концов.
||<center>x1, y1, x2, y2</center>
|-
|<center>14</center>||Найти сумму всех натуральных чисел от 1 до m, используя формулу суммы членов арифметической прогрессии.||<center>m</center>
|}

Таблица 7

{| border=1
!Номер варианта||Условие||Исходные данные||
|-
|<center>1</center>||Найти произведение цифр заданного четырехзначного числа||<center>n</center>
|-

|<center>2</center>||Найти площадь кольца с внутренним радиусом r и внешним радиусом R (r< R)||<center>r, R</center>
|-
|<center>3</center>||Не используя никаких функций и никаких операций, кроме умножения, получить a8 за три операции.||<center>a</center>
|}

Таблица 8

{| border=1
!Номер варианта||Условие||Исходные данные||
|-
|<center>1</center>|| Треугольник со сторонами a, b, c является равнобедренным ||<center>a, b, c</center>
|-
|<center>2</center>||Данное четырехзначное число читается одинаково слева направо и справа налево|||<center>m</center>
|-
|<center>3</center>||Данное целое число является четным||<center>n</center>
|-
|<center>4</center>||Сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр||<center>n</center>
|-
|<center>5</center>||Треугольник со сторонами a, b, c является равносторонним||<center>a, b, c</center>
|-
|<center>6</center>||Данное целое число a кратно числу b||<center>a, b</center>
|-
|<center>7</center>||Число с является средним арифметическим чисел a и b||<center>a, b</center>
|-
|<center>8</center>||Сумма цифр данного четырехзначного числа является четным числом||<center>m</center>
|-
|<center>9</center>||Числа x и y являются координатами точки, лежащей в третьей координатной четверти||<center>x, y</center>
|-
|<center>10</center>||Произведение чисел a и b кратно числу c||<center>a, b, c</center>
|-
|<center>11</center>||Данная тройка натуральных чисел a, b, c является тройкой Пифагора, т.е. c2 = a2 + b2||<center>a, b, c</center>
|-
|<center>12</center>||Сумма цифр данного трехзначного числа является нечетным числом||<center>m</center>
|-
|<center>13</center>||Сумма двух натуральных чисел кратна трем||<center>a, b</center>
|-
|<center>14</center>||Периметр треугольника со сторонами a, b, c больше числа d||<center>a, b, c, d</center>
|}

==Литература==

#Архангельский. Программирование на Delphi 6. – М: БИНОМ, 2002
#Бобровский С. Delphi 7. Учебный курс. – СПб: Питер, 2003
#Культин Н. Основы программирования в Delphi 7. СПб: БХВ-Петербург, 2005.

==Ссылки==

[[Учебный курс Программирование на Delphi]]

[[Учебный план курса Программирование на Delphi]]

[[Категория: Учебный курс Программирование на Delphi]]

Участник:Иванов Александр

2008-02-26T12:00:53Z

Иванов Александр:

'''ФИО: '''Иванов Александр Александрович

'''Факультет: '''[[Факультет среднего профессионального образования|ФСПО]]

'''Группа: '''[[Группа ИВТ 06-2|ИВТ 06-2]]

'''Мои увлечения: '''[[Команда КВН ВГИПУ "СВОИ ЛЮДИ"|КВН]](самая весёлая и позитивная игра) , Паркур (Нет границ есть лишь препятствия!)]

'''Любимые игры: '''Counter-Strike, Half-Life, Postal2, Сапёр :)

'''В свободное время: '''занимаюсь ParKour'ом, особенно летом, по всему городу, люблю страдать всякой ерундой, придумывать какую-нибудь фишку и угарать над ней неделю, и по новой, ещё активно занимаюсь КВНом, состою на учёте в команде "СВОИ ЛЮДИ", люблю зависнуть в интернете и попереписываться с друзьями, которые далеко

[[Категория: Студент]]

Участник:Иванов Александр

2008-02-26T11:56:50Z

Иванов Александр:

Обсуждение участника:Терешанцева Юлия

2008-02-26T11:54:16Z

Иванов Александр:

Хе-хе-хе-хейййй, привет, солныфко, очень рад твоему комменту, приму это к сведению и попробую исправиться, люблю, целую)))

Учебный курс Программирование на Delphi. Модуль 3

2008-02-26T11:47:58Z

Иванов Александр: /* Задание */

<center>'''Программирование на Delphi линейных алгоритмов'''</center>

== Типы данных Delphi ==

''Целый тип''

Язык Delphi поддерживает семь целых типов данных, описание которых приведено в табл. 1.
Таблица 1. Целые типы

{| border=1
!Тип||Диапазон||Формат||
|-
| Shortint||-128 - 127||8 битов
|-
| Smallint||-32768 - 32767||16 битов
|-
| Longint||-2147483648 - 2147483647||32 бита
|-
| Int64|| -263 -2 63-1||64 бита
|-
| Byte||0 - 255||8 битов
|-
| Word||0 - 65535||16 битов
|-
| Longword||0 - 4294967295||32 бита
|-
|}

Object Pascal поддерживает и наиболее универсальный целый тип - Integer, который эквивалентен Longint.

''Вещественный тип''

Язык Delphi поддерживает шесть вещественных типов. Типы различаются между собой диапазоном допустимых значений, количеством значащих цифр и количеством байтов, необходимых для хранения данных в памяти компьютера (табл. 2).

Таблица 2. Вещественные (дробные) типы

{| border=1
!Тип||Диапазон||Значащих цифр||Байтов||
|-
| Real48||2.9 x 10 -39 - 1.7 x 1038 ||11 – 12||6
|-
| Single||1.5 x 10 -45 - 3.4 x 1038 ||7 – 8||4
|-
| Double||5.0 x 10 -324 - 1.7 x 10308 ||15 – 16||8
|-
| Extended||3.6 x 10 -4951 - 1.1 x 104932 ||19 – 20||10
|-
| Comp||-2 63 +1 - 2 63 -1 ||19 – 20||8
|-
| Currency||-9223372036854775808 - 9223372036854775807 ||19 –20||8

|-
|}

Язык Delphi поддерживает и наиболее универсальный вещественный тип - Real, который эквивалентен Double.

''Символьный тип''

Язык Delphi поддерживает два символьных типа: Ansichar и Widechar:
*тип Ansichar — это символы в кодировке ANSI, которым соответствуют числа в диапазоне от 0 до 255;
*тип widechar — это символы в кодировке Unicode, им соответствуют числа от 0 до 65535.
Object Pascal поддерживает и наиболее универсальный символьный тип - Char, который эквивалентен Ansichar.

''Строковый тип''

Язык Delphi поддерживает три строковых типа: shortstring, Longstring и WideString:
*тип shortstring представляет собой статически размещаемые в памяти компьютера строки длиной от 0 до 255 символов;
*тип Longstring представляет собой динамически размещаемые в памяти строки, длина которых ограничена только объемом свободной памяти;
*тип WideString представляет собой динамически размещаемые в памяти строки, длина которых ограничена только объемом свободной памяти. Каждый символ строки типа WideString является Unicode-символом.
В языке Delphi для обозначения строкового типа допускается использование идентификатора string. Тип string эквивалентен типу shortstring.

''Логический тип''

Логическая величина может принимать одно из двух значений True (истина) или False (ложь). В языке Delphi логические величины относят к типу Boolean.

== Линейный алгоритм ==
Алгоритм решения любой задачи на ЭВМ можно получить, используя и комбинируя только три структуры: последовательную, структуру ветвления и структуру цикла.

Последовательная структура, которую называют также линейным процессом, состоит в последовательном выполнении одного оператора (блоков операторов) за другим без каких – либо переходов.

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

== Инструкция присваивания ==

Инструкция присваивания является основной вычислительной инструкцией. Если в программе надо выполнить вычисление, то нужно использовать инструкцию присваивания. В результате выполнения инструкции присваивания значение переменной меняется, ей присваивается значение.
Общий вид инструкции присваивания: Имя переменной : = Выражение;
Выражение состоит из операндов и операторов. Операторы находятся между операндами и обозначают действия, которые выполняются над операндами. В качестве операндов выражения можно использовать: переменную, константу, функцию или другое выражение. Основные алгебраические операторы приведены в табл. 3.

Таблица 3. Алгебраические операторы

{| border=1
!Оператор||Действие||
|-
|+||Сложение
|-
| -||Вычитание
|-
| *||Умножение
|-
| /||Деление
|-
| DIV||Деление нацело
|-
| MOD||Вычисление остатка от деления
|-
|}

== Стандартные функции ==

Математические функции указаны в таблице 4.

Таблица 4. Математические функции

{| border=1
!Функция||Значение||
|-
|Abs(x)||Модуль x
|-
| Sqrt(x)|| Квадратный корень из x
|-
| Sqr(x)|| Квадрат x
|-
| Sin(x)||Синус x
|-
| Cos(x)|| Косинус x
|-
| Arctan(x)|| Арктангенс x
|-
| Exp(x)||Экспонента x
|-
| Ln(x)|| Натуральный логарифм x
|-
| Random(x)||Случайное целое число в диапазоне от 0 до x-1
|-
|}

== Функции преобразования ==

Функции преобразования (табл. 5) наиболее часто используются в инструкциях, обеспечивающих ввод и вывод информации.
Таблица 5. Функции преобразования

{| border=1
!Функция||Значение функции||
|-
|Chr(x)|| Символ, код которого равен x
|-
| IntToStr(x)|| Строка, являющаяся изображением целого x
|-
| FloatToStr(x)|| Строка, являющаяся изображением вещественного x
|-
| FloatToStrF(x, f, k,m)|| Строка, являющаяся изображением вещественного x. f — формат; k — общее количество цифр; m — количество цифр после десятичной точки
|-
| StrToInt(s)|| Целое, изображением которого является строка s
|-
| StrToFloat (s)|| Целое, изображением которого является строка s
|-
|Round(x)|| Целое, полученное путем округления x
|-
| Trunc(x)|| Целое, полученное путем отбрасывания дробной части x
|-
| Frac(x)|| Дробное, представляющее собой дробную часть вещественного x
|-
| Int(x)|| Дробное, представляющее собой целую часть вещественного x
|-
|}

== Пример ==

*Условие. Найти сопротивление цепи из двух последовательно соединенных проводников.
*Использованные компоненты

Edit1 – ввод R1
Edit1 – ввод R2
- вывод результирующего сопротивления

*'''Программный код'''
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Close;
end;
var r1,r2,r:integer;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
r1:=strtoint(edit1.Text);
r2:=strtoint(edit2.Text);
r:=r1+r2;
label3.Caption:='Сопротивление 1-го проводника= '+inttostr(r1)+
#13+'Сопротивление 2-го проводника= '+inttostr(r2)+#13+'Сопротивление цепи= '+inttostr(r)
end;
end.
*'''Форма с результатом работы программы'''
[[Изображение:-1-1.JPG]]

==Задание==

Таблица 6

{| border=1
!Номер варианта||Условие||Исходные данные||
|-
|<center>1</center>||Определить расстояние d между двумя точками на плоскости||х1, у1, x2, y2|<center>x1,y1,x2,y2</center>
|-
|<center>2</center>||Заданы 4 числа. Вычислить среднее арифметическое и среднее геометрическое их модулей||<center>a, в, c, d</center>
|-
|<center>3</center>|| Найти радиус окружности, описанной вокруг треугольника по формуле:
R=(a*b*c)/(4*SQRT(p*(p-a)*(p-b)*(p-c))),
где р - полупериметр
||<center>а, в, с</center>
|-
|<center>4</center>||Найти радиус круга, вписанного в треугольник со сторонами а, в, с по формуле:
r=(SQRT(p*(p-a)*(p-b)*(p-c)))/p,
где р - полупериметр
||<center>а, в, с</center>
|-
|<center>5</center>||Определить площадь треугольника по трем углам и высоте:

||<center>A, B, C, h</center>
|-
|<center>6</center>||Определить площадь треугольника по заданной стороне и углам:
S=(SQR(h)*sin(A))/(2*sin(B)*sin(C)),
где р - полупериметр
||<center>A, B, C, a</center>
|-
|<center>7</center>||Вычислить сопротивление цепи:

||<center>R1, R2, R3</center>
|-
|<center>8</center>||Вычислить сопротивление цепи:

где р - полупериметр
||<center>R1, R2, R3</center>
|-
|<center>9</center>||По двум сторонам и углу между ними в треугольнике АВС найти два остальных угла и третью сторону.
SQR(C)=SQR(A)+SQR(B)-2*A*B*cos(x)

||<center>A, B, x</center>
|-
|<center>11</center>||Найти площадь ромба по стороне и острому углу:
S=SQR(a)*sin(x),
где а - сторона , x-угол

||<center>а, x</center>
|-
|<center>12</center>|| В арифметической прогрессии известны 1-й член и разность. Найти 30-й член этой прогрессии и сумму первых 40 членовгде р - полупериметр
||<center>а1, d</center>
|-
|<center>13</center>||Найти координаты центра отрезка, заданного координатами его концов.
||<center>x1, y1, x2, y2</center>
|-
|<center>14</center>||Найти сумму всех натуральных чисел от 1 до m, используя формулу суммы членов арифметической прогрессии.||<center>m</center>
|}

Таблица 7

{| border=1
!Номер варианта||Условие||Исходные данные||
|-
|<center>1</center>||Найти произведение цифр заданного четырехзначного числа||<center>n</center>
|-

|<center>2</center>||Найти площадь кольца с внутренним радиусом r и внешним радиусом R (r< R)||<center>r, R</center>
|-
|<center>3</center>||Не используя никаких функций и никаких операций, кроме умножения, получить a8 за три операции.||<center>a</center>
|}

Таблица 8

{| border=1
!Номер варианта||Условие||Исходные данные||
|-
|<center>1</center>|| Треугольник со сторонами a, b, c является равнобедренным ||<center>a, b, c</center>
|-
|<center>2</center>||Данное четырехзначное число читается одинаково слева направо и справа налево|||<center>m</center>
|-
|<center>3</center>||Данное целое число является четным||<center>n</center>
|-
|<center>4</center>||Сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр||<center>n</center>
|-
|<center>5</center>||Треугольник со сторонами a, b, c является равносторонним||<center>a, b, c</center>
|-
|<center>6</center>||Данное целое число a кратно числу b||<center>a, b</center>
|-
|<center>7</center>||Число с является средним арифметическим чисел a и b||<center>a, b</center>
|-
|<center>8</center>||Сумма цифр данного четырехзначного числа является четным числом||<center>m</center>
|-
|<center>9</center>||Числа x и y являются координатами точки, лежащей в третьей координатной четверти||<center>x, y</center>
|-
|<center>10</center>||Произведение чисел a и b кратно числу c||<center>a, b, c</center>
|-
|<center>11</center>||Данная тройка натуральных чисел a, b, c является тройкой Пифагора, т.е. c2 = a2 + b2||<center>a, b, c</center>
|-
|<center>12</center>||Сумма цифр данного трехзначного числа является нечетным числом||<center>m</center>
|-
|<center>13</center>||Сумма двух натуральных чисел кратна трем||<center>a, b</center>
|-
|<center>14</center>||Периметр треугольника со сторонами a, b, c больше числа d||<center>a, b, c, d</center>
|}

==Литература==

#Архангельский. Программирование на Delphi 6. – М: БИНОМ, 2002
#Бобровский С. Delphi 7. Учебный курс. – СПб: Питер, 2003
#Культин Н. Основы программирования в Delphi 7. СПб: БХВ-Петербург, 2005.

==Ссылки==

[[Учебный курс Программирование на Delphi]]

[[Учебный план курса Программирование на Delphi]]

[[Категория: Учебный курс Программирование на Delphi]]

Учебный курс Программирование на Delphi. Модуль 3

2008-02-26T11:10:05Z

Иванов Александр: /* Пример */

<center>'''Программирование на Delphi линейных алгоритмов'''</center>

== Типы данных Delphi ==

''Целый тип''

Язык Delphi поддерживает семь целых типов данных, описание которых приведено в табл. 1.
Таблица 1. Целые типы

{| border=1
!Тип||Диапазон||Формат||
|-
| Shortint||-128 - 127||8 битов
|-
| Smallint||-32768 - 32767||16 битов
|-
| Longint||-2147483648 - 2147483647||32 бита
|-
| Int64|| -263 -2 63-1||64 бита
|-
| Byte||0 - 255||8 битов
|-
| Word||0 - 65535||16 битов
|-
| Longword||0 - 4294967295||32 бита
|-
|}

Object Pascal поддерживает и наиболее универсальный целый тип - Integer, который эквивалентен Longint.

''Вещественный тип''

Язык Delphi поддерживает шесть вещественных типов. Типы различаются между собой диапазоном допустимых значений, количеством значащих цифр и количеством байтов, необходимых для хранения данных в памяти компьютера (табл. 2).

Таблица 2. Вещественные (дробные) типы

{| border=1
!Тип||Диапазон||Значащих цифр||Байтов||
|-
| Real48||2.9 x 10 -39 - 1.7 x 1038 ||11 – 12||6
|-
| Single||1.5 x 10 -45 - 3.4 x 1038 ||7 – 8||4
|-
| Double||5.0 x 10 -324 - 1.7 x 10308 ||15 – 16||8
|-
| Extended||3.6 x 10 -4951 - 1.1 x 104932 ||19 – 20||10
|-
| Comp||-2 63 +1 - 2 63 -1 ||19 – 20||8
|-
| Currency||-9223372036854775808 - 9223372036854775807 ||19 –20||8

|-
|}

Язык Delphi поддерживает и наиболее универсальный вещественный тип - Real, который эквивалентен Double.

''Символьный тип''

Язык Delphi поддерживает два символьных типа: Ansichar и Widechar:
*тип Ansichar — это символы в кодировке ANSI, которым соответствуют числа в диапазоне от 0 до 255;
*тип widechar — это символы в кодировке Unicode, им соответствуют числа от 0 до 65535.
Object Pascal поддерживает и наиболее универсальный символьный тип - Char, который эквивалентен Ansichar.

''Строковый тип''

Язык Delphi поддерживает три строковых типа: shortstring, Longstring и WideString:
*тип shortstring представляет собой статически размещаемые в памяти компьютера строки длиной от 0 до 255 символов;
*тип Longstring представляет собой динамически размещаемые в памяти строки, длина которых ограничена только объемом свободной памяти;
*тип WideString представляет собой динамически размещаемые в памяти строки, длина которых ограничена только объемом свободной памяти. Каждый символ строки типа WideString является Unicode-символом.
В языке Delphi для обозначения строкового типа допускается использование идентификатора string. Тип string эквивалентен типу shortstring.

''Логический тип''

Логическая величина может принимать одно из двух значений True (истина) или False (ложь). В языке Delphi логические величины относят к типу Boolean.

== Линейный алгоритм ==
Алгоритм решения любой задачи на ЭВМ можно получить, используя и комбинируя только три структуры: последовательную, структуру ветвления и структуру цикла.

Последовательная структура, которую называют также линейным процессом, состоит в последовательном выполнении одного оператора (блоков операторов) за другим без каких – либо переходов.

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

== Инструкция присваивания ==

Инструкция присваивания является основной вычислительной инструкцией. Если в программе надо выполнить вычисление, то нужно использовать инструкцию присваивания. В результате выполнения инструкции присваивания значение переменной меняется, ей присваивается значение.
Общий вид инструкции присваивания: Имя переменной : = Выражение;
Выражение состоит из операндов и операторов. Операторы находятся между операндами и обозначают действия, которые выполняются над операндами. В качестве операндов выражения можно использовать: переменную, константу, функцию или другое выражение. Основные алгебраические операторы приведены в табл. 3.

Таблица 3. Алгебраические операторы

{| border=1
!Оператор||Действие||
|-
|+||Сложение
|-
| -||Вычитание
|-
| *||Умножение
|-
| /||Деление
|-
| DIV||Деление нацело
|-
| MOD||Вычисление остатка от деления
|-
|}

== Стандартные функции ==

Математические функции указаны в таблице 4.

Таблица 4. Математические функции

{| border=1
!Функция||Значение||
|-
|Abs(x)||Модуль x
|-
| Sqrt(x)|| Квадратный корень из x
|-
| Sqr(x)|| Квадрат x
|-
| Sin(x)||Синус x
|-
| Cos(x)|| Косинус x
|-
| Arctan(x)|| Арктангенс x
|-
| Exp(x)||Экспонента x
|-
| Ln(x)|| Натуральный логарифм x
|-
| Random(x)||Случайное целое число в диапазоне от 0 до x-1
|-
|}

== Функции преобразования ==

Функции преобразования (табл. 5) наиболее часто используются в инструкциях, обеспечивающих ввод и вывод информации.
Таблица 5. Функции преобразования

{| border=1
!Функция||Значение функции||
|-
|Chr(x)|| Символ, код которого равен x
|-
| IntToStr(x)|| Строка, являющаяся изображением целого x
|-
| FloatToStr(x)|| Строка, являющаяся изображением вещественного x
|-
| FloatToStrF(x, f, k,m)|| Строка, являющаяся изображением вещественного x. f — формат; k — общее количество цифр; m — количество цифр после десятичной точки
|-
| StrToInt(s)|| Целое, изображением которого является строка s
|-
| StrToFloat (s)|| Целое, изображением которого является строка s
|-
|Round(x)|| Целое, полученное путем округления x
|-
| Trunc(x)|| Целое, полученное путем отбрасывания дробной части x
|-
| Frac(x)|| Дробное, представляющее собой дробную часть вещественного x
|-
| Int(x)|| Дробное, представляющее собой целую часть вещественного x
|-
|}

== Пример ==

*Условие. Найти сопротивление цепи из двух последовательно соединенных проводников.
*Использованные компоненты

Edit1 – ввод R1
Edit1 – ввод R2
- вывод результирующего сопротивления

*'''Программный код'''
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Close;
end;
var r1,r2,r:integer;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
r1:=strtoint(edit1.Text);
r2:=strtoint(edit2.Text);
r:=r1+r2;
label3.Caption:='Сопротивление 1-го проводника= '+inttostr(r1)+
#13+'Сопротивление 2-го проводника= '+inttostr(r2)+#13+'Сопротивление цепи= '+inttostr(r)
end;
end.
*'''Форма с результатом работы программы'''
[[Изображение:-1-1.JPG]]

==Задание==

Таблица 6

{| border=1
!Номер варианта||Условие||Исходные данные||
|-
!1||Определить расстояние d между двумя точками на плоскости||х1, у1, x2, y2
|-
!2||Заданы 4 числа. Вычислить среднее арифметическое и среднее геометрическое их модулей||a, в, c, d
|-
!3|| Найти радиус окружности, описанной вокруг треугольника по формуле:
<math> </math>
где р - полупериметр
||а, в, с
|-
!4||Найти радиус круга, вписанного в треугольник со сторонами а, в, с по формуле:
,
где р - полупериметр
||а, в, с
|-
!5||Определить площадь треугольника по трем углам и высоте:

||A, B, C, h
|-
!6||Определить площадь треугольника по заданной стороне и углам:

,
где р - полупериметр
||A, B, C, a
|-
!7||Вычислить сопротивление цепи:

||R1, R2, R3
|-
!8||Вычислить сопротивление цепи:

где р - полупериметр
||R1, R2, R3
|-
!9||По двум сторонам и углу между ними в треугольнике АВС найти два остальных угла и третью сторону.

||A, B, *
|-
!11||Найти площадь ромба по стороне и острому углу:
, где а - сторона , *-угол

||а, *
|-
!12|| В арифметической прогрессии известны 1-й член и разность. Найти 30-й член этой прогрессии и сумму первых 40 членовгде р - полупериметр
||а1, d
|-
!13||Найти координаты центра отрезка, заданного координатами его концов.
||x1, y1, x2, y2
|-
!14||Найти сумму всех натуральных чисел от 1 до m, используя формулу суммы членов арифметической прогрессии.||m
|}

Таблица 7

{| border=1
!Номер варианта||Условие||Исходные данные||
|-
!1||Найти произведение цифр заданного четырехзначного числа||n
|-

!2||Найти площадь кольца с внутренним радиусом r и внешним радиусом R (r< R)||r, R
|-
!3||Не используя никаких функций и никаких операций, кроме умножения, получить a8 за три операции.||a
|}

Таблица 8

{| border=1
!Номер варианта||Условие||Исходные данные||
|-
|<center>1</center>|| Треугольник со сторонами a, b, c является равнобедренным ||a, b, c|<center>1</center>
|-
|<center>2</center>||Данное четырехзначное число читается одинаково слева направо и справа налево||m|<center>2</center>
|-
|<center>3</center>||Данное целое число является четным||n|<center>3</center>
|-
|<center>4</center>||Сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр||n|<center>4</center>
|-
|<center>5</center>||Треугольник со сторонами a, b, c является равносторонним||a, b, c|<center>5</center>
|-
|<center>6</center>||Данное целое число a кратно числу b||a, b|<center>6</center>
|-
|<center>7</center>||Число с является средним арифметическим чисел a и b||a, b|<center>7</center>
|-
|<center>8</center>||Сумма цифр данного четырехзначного числа является четным числом||m|<center>8</center>
|-
|<center>9</center>||Числа x и y являются координатами точки, лежащей в третьей координатной четверти||x, y|<center>9</center>
|-
|<center>10</center>||Произведение чисел a и b кратно числу c||a, b, c|<center>10</center>
|-
|<center>11</center>||Данная тройка натуральных чисел a, b, c является тройкой Пифагора, т.е. c2 = a2 + b2||a, b, c|<center>11</center>
|-
|<center>12</center>||Сумма цифр данного трехзначного числа является нечетным числом||m|<center>12</center>
|-
|<center>13</center>||Сумма двух натуральных чисел кратна трем||a, b|<center>13</center>
|-
|<center>14</center>||Периметр треугольника со сторонами a, b, c больше числа d||a, b, c, d|<center>14</center>
|}

==Литература==

#Архангельский. Программирование на Delphi 6. – М: БИНОМ, 2002
#Бобровский С. Delphi 7. Учебный курс. – СПб: Питер, 2003
#Культин Н. Основы программирования в Delphi 7. СПб: БХВ-Петербург, 2005.

==Ссылки==

[[Учебный курс Программирование на Delphi]]

[[Учебный план курса Программирование на Delphi]]

[[Категория: Учебный курс Программирование на Delphi]]

Учебный курс Программирование на Delphi. Модуль 3

2008-02-26T11:08:19Z

Иванов Александр: /* Пример */

<center>'''Программирование на Delphi линейных алгоритмов'''</center>

== Типы данных Delphi ==

''Целый тип''

Язык Delphi поддерживает семь целых типов данных, описание которых приведено в табл. 1.
Таблица 1. Целые типы

{| border=1
!Тип||Диапазон||Формат||
|-
| Shortint||-128 - 127||8 битов
|-
| Smallint||-32768 - 32767||16 битов
|-
| Longint||-2147483648 - 2147483647||32 бита
|-
| Int64|| -263 -2 63-1||64 бита
|-
| Byte||0 - 255||8 битов
|-
| Word||0 - 65535||16 битов
|-
| Longword||0 - 4294967295||32 бита
|-
|}

Object Pascal поддерживает и наиболее универсальный целый тип - Integer, который эквивалентен Longint.

''Вещественный тип''

Язык Delphi поддерживает шесть вещественных типов. Типы различаются между собой диапазоном допустимых значений, количеством значащих цифр и количеством байтов, необходимых для хранения данных в памяти компьютера (табл. 2).

Таблица 2. Вещественные (дробные) типы

{| border=1
!Тип||Диапазон||Значащих цифр||Байтов||
|-
| Real48||2.9 x 10 -39 - 1.7 x 1038 ||11 – 12||6
|-
| Single||1.5 x 10 -45 - 3.4 x 1038 ||7 – 8||4
|-
| Double||5.0 x 10 -324 - 1.7 x 10308 ||15 – 16||8
|-
| Extended||3.6 x 10 -4951 - 1.1 x 104932 ||19 – 20||10
|-
| Comp||-2 63 +1 - 2 63 -1 ||19 – 20||8
|-
| Currency||-9223372036854775808 - 9223372036854775807 ||19 –20||8

|-
|}

Язык Delphi поддерживает и наиболее универсальный вещественный тип - Real, который эквивалентен Double.

''Символьный тип''

Язык Delphi поддерживает два символьных типа: Ansichar и Widechar:
*тип Ansichar — это символы в кодировке ANSI, которым соответствуют числа в диапазоне от 0 до 255;
*тип widechar — это символы в кодировке Unicode, им соответствуют числа от 0 до 65535.
Object Pascal поддерживает и наиболее универсальный символьный тип - Char, который эквивалентен Ansichar.

''Строковый тип''

Язык Delphi поддерживает три строковых типа: shortstring, Longstring и WideString:
*тип shortstring представляет собой статически размещаемые в памяти компьютера строки длиной от 0 до 255 символов;
*тип Longstring представляет собой динамически размещаемые в памяти строки, длина которых ограничена только объемом свободной памяти;
*тип WideString представляет собой динамически размещаемые в памяти строки, длина которых ограничена только объемом свободной памяти. Каждый символ строки типа WideString является Unicode-символом.
В языке Delphi для обозначения строкового типа допускается использование идентификатора string. Тип string эквивалентен типу shortstring.

''Логический тип''

Логическая величина может принимать одно из двух значений True (истина) или False (ложь). В языке Delphi логические величины относят к типу Boolean.

== Линейный алгоритм ==
Алгоритм решения любой задачи на ЭВМ можно получить, используя и комбинируя только три структуры: последовательную, структуру ветвления и структуру цикла.

Последовательная структура, которую называют также линейным процессом, состоит в последовательном выполнении одного оператора (блоков операторов) за другим без каких – либо переходов.

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

== Инструкция присваивания ==

Инструкция присваивания является основной вычислительной инструкцией. Если в программе надо выполнить вычисление, то нужно использовать инструкцию присваивания. В результате выполнения инструкции присваивания значение переменной меняется, ей присваивается значение.
Общий вид инструкции присваивания: Имя переменной : = Выражение;
Выражение состоит из операндов и операторов. Операторы находятся между операндами и обозначают действия, которые выполняются над операндами. В качестве операндов выражения можно использовать: переменную, константу, функцию или другое выражение. Основные алгебраические операторы приведены в табл. 3.

Таблица 3. Алгебраические операторы

{| border=1
!Оператор||Действие||
|-
|+||Сложение
|-
| -||Вычитание
|-
| *||Умножение
|-
| /||Деление
|-
| DIV||Деление нацело
|-
| MOD||Вычисление остатка от деления
|-
|}

== Стандартные функции ==

Математические функции указаны в таблице 4.

Таблица 4. Математические функции

{| border=1
!Функция||Значение||
|-
|Abs(x)||Модуль x
|-
| Sqrt(x)|| Квадратный корень из x
|-
| Sqr(x)|| Квадрат x
|-
| Sin(x)||Синус x
|-
| Cos(x)|| Косинус x
|-
| Arctan(x)|| Арктангенс x
|-
| Exp(x)||Экспонента x
|-
| Ln(x)|| Натуральный логарифм x
|-
| Random(x)||Случайное целое число в диапазоне от 0 до x-1
|-
|}

== Функции преобразования ==

Функции преобразования (табл. 5) наиболее часто используются в инструкциях, обеспечивающих ввод и вывод информации.
Таблица 5. Функции преобразования

{| border=1
!Функция||Значение функции||
|-
|Chr(x)|| Символ, код которого равен x
|-
| IntToStr(x)|| Строка, являющаяся изображением целого x
|-
| FloatToStr(x)|| Строка, являющаяся изображением вещественного x
|-
| FloatToStrF(x, f, k,m)|| Строка, являющаяся изображением вещественного x. f — формат; k — общее количество цифр; m — количество цифр после десятичной точки
|-
| StrToInt(s)|| Целое, изображением которого является строка s
|-
| StrToFloat (s)|| Целое, изображением которого является строка s
|-
|Round(x)|| Целое, полученное путем округления x
|-
| Trunc(x)|| Целое, полученное путем отбрасывания дробной части x
|-
| Frac(x)|| Дробное, представляющее собой дробную часть вещественного x
|-
| Int(x)|| Дробное, представляющее собой целую часть вещественного x
|-
|}

== Пример ==

*Условие. Найти сопротивление цепи из двух последовательно соединенных проводников.
*Использованные компоненты

Edit1 – ввод R1
Edit1 – ввод R2
- вывод результирующего сопротивления

*'''Программный код'''
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Close;
end;
var r1,r2,r:integer;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
r1:=strtoint(edit1.Text);
r2:=strtoint(edit2.Text);
r:=r1+r2;
label3.Caption:='Сопротивление 1-го проводника= '+inttostr(r1)+
#13+'Сопротивление 2-го проводника= '+inttostr(r2)+#13+'Сопротивление цепи= '+inttostr(r)
end;
end.
*Форма с результатом работы программы
[[Изображение:-1-1.JPG]]

==Задание==

Таблица 6

{| border=1
!Номер варианта||Условие||Исходные данные||
|-
!1||Определить расстояние d между двумя точками на плоскости||х1, у1, x2, y2
|-
!2||Заданы 4 числа. Вычислить среднее арифметическое и среднее геометрическое их модулей||a, в, c, d
|-
!3|| Найти радиус окружности, описанной вокруг треугольника по формуле:
<math> </math>
где р - полупериметр
||а, в, с
|-
!4||Найти радиус круга, вписанного в треугольник со сторонами а, в, с по формуле:
,
где р - полупериметр
||а, в, с
|-
!5||Определить площадь треугольника по трем углам и высоте:

||A, B, C, h
|-
!6||Определить площадь треугольника по заданной стороне и углам:

,
где р - полупериметр
||A, B, C, a
|-
!7||Вычислить сопротивление цепи:

||R1, R2, R3
|-
!8||Вычислить сопротивление цепи:

где р - полупериметр
||R1, R2, R3
|-
!9||По двум сторонам и углу между ними в треугольнике АВС найти два остальных угла и третью сторону.

||A, B, *
|-
!11||Найти площадь ромба по стороне и острому углу:
, где а - сторона , *-угол

||а, *
|-
!12|| В арифметической прогрессии известны 1-й член и разность. Найти 30-й член этой прогрессии и сумму первых 40 членовгде р - полупериметр
||а1, d
|-
!13||Найти координаты центра отрезка, заданного координатами его концов.
||x1, y1, x2, y2
|-
!14||Найти сумму всех натуральных чисел от 1 до m, используя формулу суммы членов арифметической прогрессии.||m
|}

Таблица 7

{| border=1
!Номер варианта||Условие||Исходные данные||
|-
!1||Найти произведение цифр заданного четырехзначного числа||n
|-

!2||Найти площадь кольца с внутренним радиусом r и внешним радиусом R (r< R)||r, R
|-
!3||Не используя никаких функций и никаких операций, кроме умножения, получить a8 за три операции.||a
|}

Таблица 8

{| border=1
!Номер варианта||Условие||Исходные данные||
|-
|<center>1</center>|| Треугольник со сторонами a, b, c является равнобедренным ||a, b, c|<center>1</center>
|-
|<center>2</center>||Данное четырехзначное число читается одинаково слева направо и справа налево||m|<center>2</center>
|-
|<center>3</center>||Данное целое число является четным||n|<center>3</center>
|-
|<center>4</center>||Сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр||n|<center>4</center>
|-
|<center>5</center>||Треугольник со сторонами a, b, c является равносторонним||a, b, c|<center>5</center>
|-
|<center>6</center>||Данное целое число a кратно числу b||a, b|<center>6</center>
|-
|<center>7</center>||Число с является средним арифметическим чисел a и b||a, b|<center>7</center>
|-
|<center>8</center>||Сумма цифр данного четырехзначного числа является четным числом||m|<center>8</center>
|-
|<center>9</center>||Числа x и y являются координатами точки, лежащей в третьей координатной четверти||x, y|<center>9</center>
|-
|<center>10</center>||Произведение чисел a и b кратно числу c||a, b, c|<center>10</center>
|-
|<center>11</center>||Данная тройка натуральных чисел a, b, c является тройкой Пифагора, т.е. c2 = a2 + b2||a, b, c|<center>11</center>
|-
|<center>12</center>||Сумма цифр данного трехзначного числа является нечетным числом||m|<center>12</center>
|-
|<center>13</center>||Сумма двух натуральных чисел кратна трем||a, b|<center>13</center>
|-
|<center>14</center>||Периметр треугольника со сторонами a, b, c больше числа d||a, b, c, d|<center>14</center>
|}

==Литература==

#Архангельский. Программирование на Delphi 6. – М: БИНОМ, 2002
#Бобровский С. Delphi 7. Учебный курс. – СПб: Питер, 2003
#Культин Н. Основы программирования в Delphi 7. СПб: БХВ-Петербург, 2005.

==Ссылки==

[[Учебный курс Программирование на Delphi]]

[[Учебный план курса Программирование на Delphi]]

[[Категория: Учебный курс Программирование на Delphi]]

Учебный курс Программирование на Delphi. Модуль 3

2008-02-26T10:54:30Z

Иванов Александр: /* Пример */

<center>'''Программирование на Delphi линейных алгоритмов'''</center>

== Типы данных Delphi ==

''Целый тип''

Язык Delphi поддерживает семь целых типов данных, описание которых приведено в табл. 1.
Таблица 1. Целые типы

{| border=1
!Тип||Диапазон||Формат||
|-
| Shortint||-128 - 127||8 битов
|-
| Smallint||-32768 - 32767||16 битов
|-
| Longint||-2147483648 - 2147483647||32 бита
|-
| Int64|| -263 -2 63-1||64 бита
|-
| Byte||0 - 255||8 битов
|-
| Word||0 - 65535||16 битов
|-
| Longword||0 - 4294967295||32 бита
|-
|}

Object Pascal поддерживает и наиболее универсальный целый тип - Integer, который эквивалентен Longint.

''Вещественный тип''

Язык Delphi поддерживает шесть вещественных типов. Типы различаются между собой диапазоном допустимых значений, количеством значащих цифр и количеством байтов, необходимых для хранения данных в памяти компьютера (табл. 2).

Таблица 2. Вещественные (дробные) типы

{| border=1
!Тип||Диапазон||Значащих цифр||Байтов||
|-
| Real48||2.9 x 10 -39 - 1.7 x 1038 ||11 – 12||6
|-
| Single||1.5 x 10 -45 - 3.4 x 1038 ||7 – 8||4
|-
| Double||5.0 x 10 -324 - 1.7 x 10308 ||15 – 16||8
|-
| Extended||3.6 x 10 -4951 - 1.1 x 104932 ||19 – 20||10
|-
| Comp||-2 63 +1 - 2 63 -1 ||19 – 20||8
|-
| Currency||-9223372036854775808 - 9223372036854775807 ||19 –20||8

|-
|}

Язык Delphi поддерживает и наиболее универсальный вещественный тип - Real, который эквивалентен Double.

''Символьный тип''

Язык Delphi поддерживает два символьных типа: Ansichar и Widechar:
*тип Ansichar — это символы в кодировке ANSI, которым соответствуют числа в диапазоне от 0 до 255;
*тип widechar — это символы в кодировке Unicode, им соответствуют числа от 0 до 65535.
Object Pascal поддерживает и наиболее универсальный символьный тип - Char, который эквивалентен Ansichar.

''Строковый тип''

Язык Delphi поддерживает три строковых типа: shortstring, Longstring и WideString:
*тип shortstring представляет собой статически размещаемые в памяти компьютера строки длиной от 0 до 255 символов;
*тип Longstring представляет собой динамически размещаемые в памяти строки, длина которых ограничена только объемом свободной памяти;
*тип WideString представляет собой динамически размещаемые в памяти строки, длина которых ограничена только объемом свободной памяти. Каждый символ строки типа WideString является Unicode-символом.
В языке Delphi для обозначения строкового типа допускается использование идентификатора string. Тип string эквивалентен типу shortstring.

''Логический тип''

Логическая величина может принимать одно из двух значений True (истина) или False (ложь). В языке Delphi логические величины относят к типу Boolean.

== Линейный алгоритм ==
Алгоритм решения любой задачи на ЭВМ можно получить, используя и комбинируя только три структуры: последовательную, структуру ветвления и структуру цикла.

Последовательная структура, которую называют также линейным процессом, состоит в последовательном выполнении одного оператора (блоков операторов) за другим без каких – либо переходов.

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

== Инструкция присваивания ==

Инструкция присваивания является основной вычислительной инструкцией. Если в программе надо выполнить вычисление, то нужно использовать инструкцию присваивания. В результате выполнения инструкции присваивания значение переменной меняется, ей присваивается значение.
Общий вид инструкции присваивания: Имя переменной : = Выражение;
Выражение состоит из операндов и операторов. Операторы находятся между операндами и обозначают действия, которые выполняются над операндами. В качестве операндов выражения можно использовать: переменную, константу, функцию или другое выражение. Основные алгебраические операторы приведены в табл. 3.

Таблица 3. Алгебраические операторы

{| border=1
!Оператор||Действие||
|-
|+||Сложение
|-
| -||Вычитание
|-
| *||Умножение
|-
| /||Деление
|-
| DIV||Деление нацело
|-
| MOD||Вычисление остатка от деления
|-
|}

== Стандартные функции ==

Математические функции указаны в таблице 4.

Таблица 4. Математические функции

{| border=1
!Функция||Значение||
|-
|Abs(x)||Модуль x
|-
| Sqrt(x)|| Квадратный корень из x
|-
| Sqr(x)|| Квадрат x
|-
| Sin(x)||Синус x
|-
| Cos(x)|| Косинус x
|-
| Arctan(x)|| Арктангенс x
|-
| Exp(x)||Экспонента x
|-
| Ln(x)|| Натуральный логарифм x
|-
| Random(x)||Случайное целое число в диапазоне от 0 до x-1
|-
|}

== Функции преобразования ==

Функции преобразования (табл. 5) наиболее часто используются в инструкциях, обеспечивающих ввод и вывод информации.
Таблица 5. Функции преобразования

{| border=1
!Функция||Значение функции||
|-
|Chr(x)|| Символ, код которого равен x
|-
| IntToStr(x)|| Строка, являющаяся изображением целого x
|-
| FloatToStr(x)|| Строка, являющаяся изображением вещественного x
|-
| FloatToStrF(x, f, k,m)|| Строка, являющаяся изображением вещественного x. f — формат; k — общее количество цифр; m — количество цифр после десятичной точки
|-
| StrToInt(s)|| Целое, изображением которого является строка s
|-
| StrToFloat (s)|| Целое, изображением которого является строка s
|-
|Round(x)|| Целое, полученное путем округления x
|-
| Trunc(x)|| Целое, полученное путем отбрасывания дробной части x
|-
| Frac(x)|| Дробное, представляющее собой дробную часть вещественного x
|-
| Int(x)|| Дробное, представляющее собой целую часть вещественного x
|-
|}

== Пример ==

*Условие. Найти сопротивление цепи из двух последовательно соединенных проводников.
*Использованные компоненты

Edit1 – ввод R1
Edit1 – ввод R2
- вывод результирующего сопротивления

*'''Программный код'''
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Close;
end;
var r1,r2,r:integer;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
r1:=strtoint(edit1.Text);
r2:=strtoint(edit2.Text);
r:=r1+r2;
label3.Caption:='Сопротивление 1-го проводника= '+inttostr(r1)+
#13+'Сопротивление 2-го проводника= '+inttostr(r2)+#13+'Сопротивление цепи= '+inttostr(r)
end;
end.
*Форма с результатом работы программы

==Задание==

Таблица 6

{| border=1
!Номер варианта||Условие||Исходные данные||
|-
!1||Определить расстояние d между двумя точками на плоскости||х1, у1, x2, y2
|-
!2||Заданы 4 числа. Вычислить среднее арифметическое и среднее геометрическое их модулей||a, в, c, d
|-
!3|| Найти радиус окружности, описанной вокруг треугольника по формуле:
<math> </math>
где р - полупериметр
||а, в, с
|-
!4||Найти радиус круга, вписанного в треугольник со сторонами а, в, с по формуле:
,
где р - полупериметр
||а, в, с
|-
!5||Определить площадь треугольника по трем углам и высоте:

||A, B, C, h
|-
!6||Определить площадь треугольника по заданной стороне и углам:

,
где р - полупериметр
||A, B, C, a
|-
!7||Вычислить сопротивление цепи:

||R1, R2, R3
|-
!8||Вычислить сопротивление цепи:

где р - полупериметр
||R1, R2, R3
|-
!9||По двум сторонам и углу между ними в треугольнике АВС найти два остальных угла и третью сторону.

||A, B, *
|-
!11||Найти площадь ромба по стороне и острому углу:
, где а - сторона , *-угол

||а, *
|-
!12|| В арифметической прогрессии известны 1-й член и разность. Найти 30-й член этой прогрессии и сумму первых 40 членовгде р - полупериметр
||а1, d
|-
!13||Найти координаты центра отрезка, заданного координатами его концов.
||x1, y1, x2, y2
|-
!14||Найти сумму всех натуральных чисел от 1 до m, используя формулу суммы членов арифметической прогрессии.||m
|}

Таблица 7

{| border=1
!Номер варианта||Условие||Исходные данные||
|-
!1||Найти произведение цифр заданного четырехзначного числа||n
|-

!2||Найти площадь кольца с внутренним радиусом r и внешним радиусом R (r< R)||r, R
|-
!3||Не используя никаких функций и никаких операций, кроме умножения, получить a8 за три операции.||a
|}

Таблица 8

{| border=1
!Номер варианта||Условие||Исходные данные||
|-
|<center>1</center>|| Треугольник со сторонами a, b, c является равнобедренным ||a, b, c|<center>1</center>
|-
|<center>2</center>||Данное четырехзначное число читается одинаково слева направо и справа налево||m|<center>2</center>
|-
|<center>3</center>||Данное целое число является четным||n|<center>3</center>
|-
|<center>4</center>||Сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр||n|<center>4</center>
|-
|<center>5</center>||Треугольник со сторонами a, b, c является равносторонним||a, b, c|<center>5</center>
|-
|<center>6</center>||Данное целое число a кратно числу b||a, b|<center>6</center>
|-
|<center>7</center>||Число с является средним арифметическим чисел a и b||a, b|<center>7</center>
|-
|<center>8</center>||Сумма цифр данного четырехзначного числа является четным числом||m|<center>8</center>
|-
|<center>9</center>||Числа x и y являются координатами точки, лежащей в третьей координатной четверти||x, y|<center>9</center>
|-
|<center>10</center>||Произведение чисел a и b кратно числу c||a, b, c|<center>10</center>
|-
|<center>11</center>||Данная тройка натуральных чисел a, b, c является тройкой Пифагора, т.е. c2 = a2 + b2||a, b, c|<center>11</center>
|-
|<center>12</center>||Сумма цифр данного трехзначного числа является нечетным числом||m|<center>12</center>
|-
|<center>13</center>||Сумма двух натуральных чисел кратна трем||a, b|<center>13</center>
|-
|<center>14</center>||Периметр треугольника со сторонами a, b, c больше числа d||a, b, c, d|<center>14</center>
|}

==Литература==

#Архангельский. Программирование на Delphi 6. – М: БИНОМ, 2002
#Бобровский С. Delphi 7. Учебный курс. – СПб: Питер, 2003
#Культин Н. Основы программирования в Delphi 7. СПб: БХВ-Петербург, 2005.

==Ссылки==

[[Учебный курс Программирование на Delphi]]

[[Учебный план курса Программирование на Delphi]]

[[Категория: Учебный курс Программирование на Delphi]]

Учебный курс Программирование на Delphi. Модуль 3

2008-02-26T10:40:53Z

Иванов Александр: /* Типы данных Delphi */

<center>'''Программирование на Delphi линейных алгоритмов'''</center>

== Типы данных Delphi ==

''Целый тип''

Язык Delphi поддерживает семь целых типов данных, описание которых приведено в табл. 1.
Таблица 1. Целые типы

{| border=1
!Тип||Диапазон||Формат||
|-
| Shortint||-128 - 127||8 битов
|-
| Smallint||-32768 - 32767||16 битов
|-
| Longint||-2147483648 - 2147483647||32 бита
|-
| Int64|| -263 -2 63-1||64 бита
|-
| Byte||0 - 255||8 битов
|-
| Word||0 - 65535||16 битов
|-
| Longword||0 - 4294967295||32 бита
|-
|}

Object Pascal поддерживает и наиболее универсальный целый тип - Integer, который эквивалентен Longint.

''Вещественный тип''

Язык Delphi поддерживает шесть вещественных типов. Типы различаются между собой диапазоном допустимых значений, количеством значащих цифр и количеством байтов, необходимых для хранения данных в памяти компьютера (табл. 2).

Таблица 2. Вещественные (дробные) типы

{| border=1
!Тип||Диапазон||Значащих цифр||Байтов||
|-
| Real48||2.9 x 10 -39 - 1.7 x 1038 ||11 – 12||6
|-
| Single||1.5 x 10 -45 - 3.4 x 1038 ||7 – 8||4
|-
| Double||5.0 x 10 -324 - 1.7 x 10308 ||15 – 16||8
|-
| Extended||3.6 x 10 -4951 - 1.1 x 104932 ||19 – 20||10
|-
| Comp||-2 63 +1 - 2 63 -1 ||19 – 20||8
|-
| Currency||-9223372036854775808 - 9223372036854775807 ||19 –20||8

|-
|}

Язык Delphi поддерживает и наиболее универсальный вещественный тип - Real, который эквивалентен Double.

''Символьный тип''

Язык Delphi поддерживает два символьных типа: Ansichar и Widechar:
*тип Ansichar — это символы в кодировке ANSI, которым соответствуют числа в диапазоне от 0 до 255;
*тип widechar — это символы в кодировке Unicode, им соответствуют числа от 0 до 65535.
Object Pascal поддерживает и наиболее универсальный символьный тип - Char, который эквивалентен Ansichar.

''Строковый тип''

Язык Delphi поддерживает три строковых типа: shortstring, Longstring и WideString:
*тип shortstring представляет собой статически размещаемые в памяти компьютера строки длиной от 0 до 255 символов;
*тип Longstring представляет собой динамически размещаемые в памяти строки, длина которых ограничена только объемом свободной памяти;
*тип WideString представляет собой динамически размещаемые в памяти строки, длина которых ограничена только объемом свободной памяти. Каждый символ строки типа WideString является Unicode-символом.
В языке Delphi для обозначения строкового типа допускается использование идентификатора string. Тип string эквивалентен типу shortstring.

''Логический тип''

Логическая величина может принимать одно из двух значений True (истина) или False (ложь). В языке Delphi логические величины относят к типу Boolean.

== Линейный алгоритм ==
Алгоритм решения любой задачи на ЭВМ можно получить, используя и комбинируя только три структуры: последовательную, структуру ветвления и структуру цикла.

Последовательная структура, которую называют также линейным процессом, состоит в последовательном выполнении одного оператора (блоков операторов) за другим без каких – либо переходов.

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

== Инструкция присваивания ==

Инструкция присваивания является основной вычислительной инструкцией. Если в программе надо выполнить вычисление, то нужно использовать инструкцию присваивания. В результате выполнения инструкции присваивания значение переменной меняется, ей присваивается значение.
Общий вид инструкции присваивания: Имя переменной : = Выражение;
Выражение состоит из операндов и операторов. Операторы находятся между операндами и обозначают действия, которые выполняются над операндами. В качестве операндов выражения можно использовать: переменную, константу, функцию или другое выражение. Основные алгебраические операторы приведены в табл. 3.

Таблица 3. Алгебраические операторы

{| border=1
!Оператор||Действие||
|-
|+||Сложение
|-
| -||Вычитание
|-
| *||Умножение
|-
| /||Деление
|-
| DIV||Деление нацело
|-
| MOD||Вычисление остатка от деления
|-
|}

== Стандартные функции ==

Математические функции указаны в таблице 4.

Таблица 4. Математические функции

{| border=1
!Функция||Значение||
|-
|Abs(x)||Модуль x
|-
| Sqrt(x)|| Квадратный корень из x
|-
| Sqr(x)|| Квадрат x
|-
| Sin(x)||Синус x
|-
| Cos(x)|| Косинус x
|-
| Arctan(x)|| Арктангенс x
|-
| Exp(x)||Экспонента x
|-
| Ln(x)|| Натуральный логарифм x
|-
| Random(x)||Случайное целое число в диапазоне от 0 до x-1
|-
|}

== Функции преобразования ==

Функции преобразования (табл. 5) наиболее часто используются в инструкциях, обеспечивающих ввод и вывод информации.
Таблица 5. Функции преобразования

{| border=1
!Функция||Значение функции||
|-
|Chr(x)|| Символ, код которого равен x
|-
| IntToStr(x)|| Строка, являющаяся изображением целого x
|-
| FloatToStr(x)|| Строка, являющаяся изображением вещественного x
|-
| FloatToStrF(x, f, k,m)|| Строка, являющаяся изображением вещественного x. f — формат; k — общее количество цифр; m — количество цифр после десятичной точки
|-
| StrToInt(s)|| Целое, изображением которого является строка s
|-
| StrToFloat (s)|| Целое, изображением которого является строка s
|-
|Round(x)|| Целое, полученное путем округления x
|-
| Trunc(x)|| Целое, полученное путем отбрасывания дробной части x
|-
| Frac(x)|| Дробное, представляющее собой дробную часть вещественного x
|-
| Int(x)|| Дробное, представляющее собой целую часть вещественного x
|-
|}

== Пример ==

*Условие. Найти сопротивление цепи из двух последовательно соединенных проводников.
*Использованные компоненты

Edit1 – ввод R1
Edit1 – ввод R2
- вывод результирующего сопротивления

*Программный код

*Форма с результатом работы программы

==Задание==

Таблица 6

{| border=1
!Номер варианта||Условие||Исходные данные||
|-
!1||Определить расстояние d между двумя точками на плоскости||х1, у1, x2, y2
|-
!2||Заданы 4 числа. Вычислить среднее арифметическое и среднее геометрическое их модулей||a, в, c, d
|-
!3|| Найти радиус окружности, описанной вокруг треугольника по формуле:
<math> </math>
где р - полупериметр
||а, в, с
|-
!4||Найти радиус круга, вписанного в треугольник со сторонами а, в, с по формуле:
,
где р - полупериметр
||а, в, с
|-
!5||Определить площадь треугольника по трем углам и высоте:

||A, B, C, h
|-
!6||Определить площадь треугольника по заданной стороне и углам:

,
где р - полупериметр
||A, B, C, a
|-
!7||Вычислить сопротивление цепи:

||R1, R2, R3
|-
!8||Вычислить сопротивление цепи:

где р - полупериметр
||R1, R2, R3
|-
!9||По двум сторонам и углу между ними в треугольнике АВС найти два остальных угла и третью сторону.

||A, B, *
|-
!11||Найти площадь ромба по стороне и острому углу:
, где а - сторона , *-угол

||а, *
|-
!12|| В арифметической прогрессии известны 1-й член и разность. Найти 30-й член этой прогрессии и сумму первых 40 членовгде р - полупериметр
||а1, d
|-
!13||Найти координаты центра отрезка, заданного координатами его концов.
||x1, y1, x2, y2
|-
!14||Найти сумму всех натуральных чисел от 1 до m, используя формулу суммы членов арифметической прогрессии.||m
|}

Таблица 7

{| border=1
!Номер варианта||Условие||Исходные данные||
|-
!1||Найти произведение цифр заданного четырехзначного числа||n
|-

!2||Найти площадь кольца с внутренним радиусом r и внешним радиусом R (r< R)||r, R
|-
!3||Не используя никаких функций и никаких операций, кроме умножения, получить a8 за три операции.||a
|}

Таблица 8

{| border=1
!Номер варианта||Условие||Исходные данные||
|-
|<center>1</center>|| Треугольник со сторонами a, b, c является равнобедренным ||a, b, c|<center>1</center>
|-
|<center>2</center>||Данное четырехзначное число читается одинаково слева направо и справа налево||m|<center>2</center>
|-
|<center>3</center>||Данное целое число является четным||n|<center>3</center>
|-
|<center>4</center>||Сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр||n|<center>4</center>
|-
|<center>5</center>||Треугольник со сторонами a, b, c является равносторонним||a, b, c|<center>5</center>
|-
|<center>6</center>||Данное целое число a кратно числу b||a, b|<center>6</center>
|-
|<center>7</center>||Число с является средним арифметическим чисел a и b||a, b|<center>7</center>
|-
|<center>8</center>||Сумма цифр данного четырехзначного числа является четным числом||m|<center>8</center>
|-
|<center>9</center>||Числа x и y являются координатами точки, лежащей в третьей координатной четверти||x, y|<center>9</center>
|-
|<center>10</center>||Произведение чисел a и b кратно числу c||a, b, c|<center>10</center>
|-
|<center>11</center>||Данная тройка натуральных чисел a, b, c является тройкой Пифагора, т.е. c2 = a2 + b2||a, b, c|<center>11</center>
|-
|<center>12</center>||Сумма цифр данного трехзначного числа является нечетным числом||m|<center>12</center>
|-
|<center>13</center>||Сумма двух натуральных чисел кратна трем||a, b|<center>13</center>
|-
|<center>14</center>||Периметр треугольника со сторонами a, b, c больше числа d||a, b, c, d|<center>14</center>
|}

==Литература==

#Архангельский. Программирование на Delphi 6. – М: БИНОМ, 2002
#Бобровский С. Delphi 7. Учебный курс. – СПб: Питер, 2003
#Культин Н. Основы программирования в Delphi 7. СПб: БХВ-Петербург, 2005.

==Ссылки==

[[Учебный курс Программирование на Delphi]]

[[Учебный план курса Программирование на Delphi]]

[[Категория: Учебный курс Программирование на Delphi]]

Обсуждение участника:Иванов Александр

2008-02-26T10:29:48Z

Иванов Александр:

Ты необычный и интересный мне человек. С тобой здорово общаться, правда не всегда легко, но тем не менее общий язык найти мы можем!!!!!!!!! Твоя индивидуальность впечатляет!!!!!!!!!:)

Спасибо, дорогая, очень рад твоему комменту)))будем трудиться и упрощать напряги с общением, лоюблю тебя!)!)!)!

Файл:Панель управления Делфи7.JPG

2008-02-19T11:42:28Z

Иванов Александр:

Команда КВН ВГИПУ "СВОИ ЛЮДИ"

2008-02-19T11:32:06Z

Иванов Александр:

Группа ИВТ 06-2

2008-02-19T11:31:19Z

Иванов Александр:

[[Участник: Меньков Антон|Меньков Антон]]

[[Участник: Терешанцева Юлия|Терешанцева Юлия]]

[[Участник: Демакова Светлана|Демакова Светлана]]

[[Участник: Деричев Андрей|Деричев Андрей]]

[[Участник: Митрофанов Денис|Митрофанов Денис]]

[[Участник: Кузьмин Максим|Кузьмин Максим]]

[[Участник: Александр Ахвердян|Ахвердян Александр]]

[[Участник: Казанцев Артём|Казанцев Артём]]

[[Участник: Иванов Александр|Иванов Александр]]

[[Категория:Группы]]
[[Категория:ФСПО]]

Участник:Иванов Александр

2008-02-19T11:30:35Z

Иванов Александр: