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

Учебный проект Интернет в обучении

2008-09-15T15:33:41Z

Меньков Антон: /* Автор проекта */

== Автор проекта ==
[[Участник:Меньков Антон|Меньков Антон ]], студент группы [[группа ИВТ 06-2|ИВТ 06-2]] факультета [[Факультет среднего профессионального образования|ФСПО]].

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Учебный проект Интернет в обучении

2008-09-15T13:28:19Z

Меньков Антон: /* Автор проекта */

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Учебный проект Интернет в обучении

2008-09-15T13:20:12Z

Меньков Антон:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

2008-09-15T13:04:31Z

Меньков Антон:

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

2008-05-20T10:14:39Z

Меньков Антон:

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

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

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

'''Мои увлечения:''' Автомобили, компьютеры, электронная музыка, PC Игры

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

{| border=1
|colspan=7 |<center>'''Календарь на март'''</center>
|-
!Понедельник||Вторник||Среда||Четверг||Пятница||bgcolor=#0000FF|Суббота||bgcolor=#FF0000|Воскресенье||
|-
|<center>25</center>||<center>26</center>||<center>27</center>||<center>28</center>||<center>29</center>||<center>1</center>||<center>2</center>||
|-
|<center>3</center>||<center>4</center>||<center>5</center>||<center>6</center>||<center>7</center>||<center>8</center>||<center>9</center>||
|-
|<center>10</center>||<center>11</center>||<center>12</center>||<center>13</center>||<center>14</center>||<center>15</center>||<center>16</center>||
|-
|<center>17</center>||<center>18</center>||<center>19</center>||<center>20</center>||<center>21</center>||<center>22</center>||<center>23</center>||
|-
|<center>24</center>||<center>25</center>||<center>26</center>||<center>27</center>||<center>28</center>||<center>29</center>||<center>30</center>||
|-
|<center>31</center>||<center>1</center>||<center>2</center>||<center>3</center>||<center>4</center>||<center>5</center>||<center>6</center>||
|}

{| class="standard" border=1 cellpadding="10" cellspacing="1" style="width: 100%; background-color: inherit; margin-left: auto; margin-right: auto" style="width: 60%; background-color: #fed; border: 1px solid #777777; -moz-border-radius-topleft: 8px; -moz-border-radius-bottomleft: 8px; -moz-border-radius-topright: 8px; -moz-border-radius-bottomright: 8px; height: 60px;" colspan="1"
!colspan=2|Зачётная книжка участника курса
|-
!colspan=2|[[ Учебный курс Программирование на Delphi| «Программирование на Delphi»]]
|-
!Модули курса|| Статья с выполненным заданием
|-
|[[ Учебный курс Программирование на Delphi. Модуль 1]] Введение в объектно-ориентированное программирование ||.
|-
|[[ Учебный курс Программирование на Delphi. Модуль 2 ]] Введение в Delphi ||.
|-
|[[ Учебный курс Программирование на Delphi. Модуль 3]] Программирование на Delphi линейных алгоритмов ||.
|-
| [[Учебный курс Программирование на Delphi. Модуль 4]] Программирование на Delphi разветвляющихся алгоритмов ||.
|-
| [[Учебный курс Программирование на Delphi. Модуль 5]] Программирование на Delphi структуры выбора ||.
|-
| [[Учебный курс Программирование на Delphi. Модуль 6]] Программирование на Delphi циклов с параметром ||.
|-
| [[Учебный курс Программирование на Delphi. Модуль 7]] Программирование на Delphi циклов с условием ||.
|-
| [[Учебный курс Программирование на Delphi. Модуль 8]] Работа со строками ||.
|-
| [[Учебный курс Программирование на Delphi. Модуль 9]] Работа с одномерными массивами ||.
|-
| [[Учебный курс Программирование на Delphi. Модуль 10]] Программы сортировки ||.
|-
| [[Учебный курс Программирование на Delphi. Модуль 11]] Работа с двумерными массивами ||.
|-

| [[Учебный курс Программирование на Delphi. Модуль 12]] Работа с файлами ||.
|-
| [[Учебный курс Программирование на Delphi. Модуль 13]] Использование процедур ||.
|-
| [[Учебный курс Программирование на Delphi. Модуль 14]] Использование функций ||.
|-
| [[Учебный курс Программирование на Delphi. Модуль 15]] Графические возможности Delphi ||.
|-
| [[Учебный курс Программирование на Delphi. Модуль 16]] Решение задач с использованием численных методов ||.
|-

| [[Учебный курс Программирование на Delphi. Модуль 17 ]] Разработка итогового проекта ||.
|-
|}

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

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

2008-04-20T16:44:15Z

Меньков Антон:

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

2008-04-19T05:39:04Z

Меньков Антон:

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

2008-04-02T12:25:46Z

Меньков Антон:

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

2008-03-22T06:16:56Z

Меньков Антон:

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

2008-03-22T06:16:05Z

Меньков Антон:

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

2008-03-22T06:12:53Z

Меньков Антон:

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

2008-03-22T05:49:33Z

Меньков Антон:

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

2008-03-22T05:45:25Z

Меньков Антон:

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

2008-03-22T05:44:49Z

Меньков Антон:

Файл:Категория-Изображения-автозаводРадиусный дом.JPG

2008-03-22T05:32:58Z

Меньков Антон:

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

2008-03-22T05:22:03Z

Меньков Антон:

Файл:Радиусный дом.JPG

2008-03-22T05:18:11Z

Меньков Антон:

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

2008-03-22T05:15:04Z

Меньков Антон:

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

2008-03-22T05:14:42Z

Меньков Антон:

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

2008-03-15T08:13:29Z

Меньков Антон:

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

2008-03-15T07:46:11Z

Меньков Антон:

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

2008-03-15T07:40:05Z

Меньков Антон:

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

2008-03-15T07:38:02Z

Меньков Антон:

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

2008-03-15T07:34:38Z

Меньков Антон:

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

2008-03-15T07:29:52Z

Меньков Антон:

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

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

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

'''Мои увлечения:''' Автомобили, компьютеры, PC Игры

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

'''Календарь на март'''
{| border=1
!Понедельник||Вторник||Среда||Четверг||Пятница||Суббота||Воскресенье||
|-
|<center>25</center>||<center>26</center>||<center>27</center>||<center>28</center>||<center>29</center>||<center>1</center>||<center>2</center>||
|-
|<center>3</center>||<center>4</center>||<center>5</center>||<center>6</center>||<center>7</center>||<center>8</center>||<center>9</center>||
|-
|10||11||12||13||14||15||16||
|-
|17||18||19||20||21||22||23||
|-
|24||25||26||27||28||29||30||
|-
|31||1||2||3||4||5||6||
|}

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

2008-03-15T07:08:13Z

Меньков Антон:

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

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

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

'''Мои увлечения:''' Автомобили, компьютеры, PC Игры

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

'''Календарь на март'''
{| border=1
!Понедельник||Вторник||Среда||Четверг||Пятница||Суббота||Воскресенье||
|-
|25||26||27||28||29||1||2|
|-
|3||4||5||6||7||8||9||
|-
|10||11||12||13||14||15||16||
|-
|17||18||19||20||21||22||23||
|-
|24||25||26||27||28||29||30||
|-
|31||1||2||3||4||5||6||
|}

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

2008-03-15T06:54:38Z

Меньков Антон:

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

2008-02-26T11:59:41Z

Меньков Антон: /* Задание */

<center>'''Программирование на Delphi разветвляющихся алгоритмов'''</center>

==Оператор If==
Алгоритм называется разветвляющимся, если он содержит несколько ветвей, отличающихся друг от друга содержанием вычислений. Выход вычислительного процесса на ту или иную ветвь алгоритма определяется исходными данными задачи.

==Пример 1==
*'''Условие'''

Найти максимальную из двух величин а и в
*'''Использованные компоненты'''

Edit1 – ввод

Edit 2 – ввод

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

BitBtn1, BitBtn2 - рабочие кнопки

*'''Программный код'''
var a,b,m:real;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
if a>=b then m:=a else m:=b;
label3.caption:='Первое число= '+floattostr(a)+#13+'Второе число= '
+floattostr(b)+#13+'Максимальное= '+floattostr(m);
end;

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

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

==Задание ==

Таблица 9
{| border=1
!Номер варианта||Условие||Исходные данные||
|-
|<center>1</center>||Три точки на плоскости заданы своими координатами.Выяснить какие из них находятся на максимальном расстоянии друг от друга||<center>x1,y1,x2,y2,x3,y3</center>
|-

|<center>2</center>||Вычислить: max^3(a,b,c)+min^2(a,b,c)||<center>a,b,c</center>
|-
|<center>3</center>||Заданы три величины а, b, c. Определить максимальное и минимальное значение из их среднего геометрического, среднего арифметического и суммы экспонент exp(a) + exp(b) + exp(c)||<center>a,b,c</center>
|-
|<center>4</center>||Определить в какой четверти координатной плоскости находится точка с координатами х,у||<center>x,y</center>
|-
|<center>5</center>||m=max(x,y,z) \ min ^ 2(a,b,c)||<center>x,y,z</center>
|-
|<center>6</center>||Z=min(0,x) - min(0,y) \ max ^ 2(y,x)||<center>x,y</center>
|-
|<center>7</center>||r=max(min(x,y),z)/3||<center>x,y,z</center>
|-
|<center>8</center>||v=max(min(x-y,y-x),0)||<center>x,y</center>
|-
|<center>9</center>||Вычислить значение функции, заданной графически, по заданному значению аргумента х [[Изображение:рис1.JPG|center]]||<center>x</center>
|-
|<center>10</center>||Вычислить значение функции, заданной графически, по заданному значению аргумента х [[Изображение:рис2.JPG|center]]||
|-
|<center>11</center>||Решить линейное уравнение ax+b=0 для любых значений коэффициентов.||<center>a,b</center>
|-
|<center>12</center>||Проверить, делится ли выбранное числона 5, на 11 или 13.||<center>x</center>
|-
|<center>13</center>||Определить, является ли сумма цифр четырехзначного числа четной||<center>m</center>
|-
|<center>14</center>||Проверить, кратно ли заданное целое число и сумма его цифр 4||<center>n</center>

|}

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

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

==Ссылки==

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

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

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

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

2008-02-26T11:54:01Z

Меньков Антон: /* Задание */

<center>'''Программирование на Delphi разветвляющихся алгоритмов'''</center>

==Оператор If==
Алгоритм называется разветвляющимся, если он содержит несколько ветвей, отличающихся друг от друга содержанием вычислений. Выход вычислительного процесса на ту или иную ветвь алгоритма определяется исходными данными задачи.

==Пример 1==
*'''Условие'''

Найти максимальную из двух величин а и в
*'''Использованные компоненты'''

Edit1 – ввод

Edit 2 – ввод

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

BitBtn1, BitBtn2 - рабочие кнопки

*'''Программный код'''
var a,b,m:real;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
if a>=b then m:=a else m:=b;
label3.caption:='Первое число= '+floattostr(a)+#13+'Второе число= '
+floattostr(b)+#13+'Максимальное= '+floattostr(m);
end;

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

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

==Задание ==

Таблица 9
{| border=1
!Номер варианта||Условие||Исходные данные||
|-
|<center>1</center>||Три точки на плоскости заданы своими координатами.Выяснить какие из них находятся на максимальном расстоянии друг от друга||<center>x1,y1,x2,y2,x3,y3</center>
|-

|<center>2</center>||Вычислить: max^3(a,b,c)+min^2(a,b,c)||<center>a,b,c</center>
|-
|<center>3</center>||Заданы три величины а, b, c. Определить максимальное и минимальное значение из их среднего геометрического, среднего арифметического и суммы экспонент exp(a) + exp(b) + exp(c)||<center>a,b,c</center>
|-
|<center>4</center>||Определить в какой четверти координатной плоскости находится точка с координатами х,у||<center>x,y</center>
|-
|<center>5</center>||m=max(x,y,z) \ min ^ 2(a,b,c)||<center>x,y,z</center>
|-
|<center>6</center>||Z=min(0,x) - min(0,y) \ max ^ 2(y,x)||<center>x,y</center>
|-
|<center>7</center>||r=max(min(x,y),z)/3||<center>x,y,z</center>
|-
|<center>8</center>||v=max(min(x-y,y-x),0)||<center>x,y</center>
|-
|<center>9</center>||Вычислить значение функции, заданной графически, по заданному значению аргумента х [[Изображение:Рис1.JPG|center]]||<center>x</center>
|-
|<center>10</center>||Вычислить значение функции, заданной графически, по заданному значению аргумента х [[Изображение:рис2.JPG|center]]||
|-
|<center>11</center>||Решить линейное уравнение ax+b=0 для любых значений коэффициентов.||<center>a,b</center>
|-
|<center>12</center>||Проверить, делится ли выбранное числона 5, на 11 или 13.||<center>x</center>
|-
|<center>13</center>||Определить, является ли сумма цифр четырехзначного числа четной||<center>m</center>
|-
|<center>14</center>||Проверить, кратно ли заданное целое число и сумма его цифр 4||<center>n</center>

|}

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

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

==Ссылки==

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

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

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

Файл:Рис2.JPG

2008-02-26T11:52:53Z

Меньков Антон:

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

2008-02-26T11:47:30Z

Меньков Антон: /* Задание */

<center>'''Программирование на Delphi разветвляющихся алгоритмов'''</center>

==Оператор If==
Алгоритм называется разветвляющимся, если он содержит несколько ветвей, отличающихся друг от друга содержанием вычислений. Выход вычислительного процесса на ту или иную ветвь алгоритма определяется исходными данными задачи.

==Пример 1==
*'''Условие'''

Найти максимальную из двух величин а и в
*'''Использованные компоненты'''

Edit1 – ввод

Edit 2 – ввод

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

BitBtn1, BitBtn2 - рабочие кнопки

*'''Программный код'''
var a,b,m:real;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
if a>=b then m:=a else m:=b;
label3.caption:='Первое число= '+floattostr(a)+#13+'Второе число= '
+floattostr(b)+#13+'Максимальное= '+floattostr(m);
end;

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

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

==Задание ==

Таблица 9
{| border=1
!Номер варианта||Условие||Исходные данные||
|-
|<center>1</center>||Три точки на плоскости заданы своими координатами.Выяснить какие из них находятся на максимальном расстоянии друг от друга||<center>x1,y1,x2,y2,x3,y3</center>
|-

|<center>2</center>||Вычислить: max^3(a,b,c)+min^2(a,b,c)||<center>a,b,c</center>
|-
|<center>3</center>||Заданы три величины а, b, c. Определить максимальное и минимальное значение из их среднего геометрического, среднего арифметического и суммы экспонент exp(a) + exp(b) + exp(c)||<center>a,b,c</center>
|-
|<center>4</center>||Определить в какой четверти координатной плоскости находится точка с координатами х,у||<center>x,y</center>
|-
|<center>5</center>||m=max(x,y,z) \ min ^ 2(a,b,c)||<center>x,y,z</center>
|-
|<center>6</center>||Z=min(0,x) - min(0,y) \ max ^ 2(y,x)||<center>x,y</center>
|-
|<center>7</center>||r=max(min(x,y),z)/3||<center>x,y,z</center>
|-
|<center>8</center>||v=max(min(x-y,y-x),0)||<center>x,y</center>
|-
|<center>9</center>||Вычислить значение функции, заданной графически, по заданному значению аргумента х [[Изображение:Рис1.JPG|center]]||<center>x</center>
|-
|<center>10</center>||Вычислить значение функции, заданной графически, по заданному значению аргумента х||
|-
|<center>11</center>||Решить линейное уравнение ax+b=0 для любых значений коэффициентов.||<center>a,b</center>
|-
|<center>12</center>||Проверить, делится ли выбранное числона 5, на 11 или 13.||<center>x</center>
|-
|<center>13</center>||Определить, является ли сумма цифр четырехзначного числа четной||<center>m</center>
|-
|<center>14</center>||Проверить, кратно ли заданное целое число и сумма его цифр 4||<center>n</center>

|}

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

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

==Ссылки==

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

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

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

Файл:Рис1.JPG

2008-02-26T11:08:37Z

Меньков Антон:

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

2008-02-26T11:06:40Z

Меньков Антон: /* Задание */

<center>'''Программирование на Delphi разветвляющихся алгоритмов'''</center>

==Оператор If==
Алгоритм называется разветвляющимся, если он содержит несколько ветвей, отличающихся друг от друга содержанием вычислений. Выход вычислительного процесса на ту или иную ветвь алгоритма определяется исходными данными задачи.

==Пример 1==
*'''Условие'''

Найти максимальную из двух величин а и в
*'''Использованные компоненты'''

Edit1 – ввод

Edit 2 – ввод

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

BitBtn1, BitBtn2 - рабочие кнопки

*'''Программный код'''
var a,b,m:real;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
if a>=b then m:=a else m:=b;
label3.caption:='Первое число= '+floattostr(a)+#13+'Второе число= '
+floattostr(b)+#13+'Максимальное= '+floattostr(m);
end;

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

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

==Задание ==

Таблица 9
{| border=1
!Номер варианта||Условие||Исходные данные||
|-
|<center>1</center>||Три точки на плоскости заданы своими координатами.Выяснить какие из них находятся на максимальном расстоянии друг от друга||<center>x1,y1,x2,y2,x3,y3</center>
|-

|<center>2</center>||Вычислить: max^3(a,b,c)+min^2(a,b,c)||<center>a,b,c</center>
|-
|<center>3</center>||Заданы три величины а, b, c. Определить максимальное и минимальное значение из их среднего геометрического, среднего арифметического и суммы экспонент exp(a) + exp(b) + exp(c)||<center>a,b,c</center>
|-
|<center>4</center>||Определить в какой четверти координатной плоскости находится точка с координатами х,у||<center>x,y</center>
|-
|<center>5</center>||m=max(x,y,z) \ min ^ 2(a,b,c)||<center>x,y,z</center>
|-
|<center>6</center>||Z=min(0,x) - min(0,y) \ max ^ 2(y,x)||<center>x,y</center>
|-
|<center>7</center>||r=max(min(x,y),z)/3||<center>x,y,z</center>
|-
|<center>8</center>||v=max(min(x-y,y-x),0)||<center>x,y</center>
|-
|<center>9</center>||Вычислить значение функции, заданной графически, по заданному значению аргумента х ||<center>x</center>
|-
|<center>10</center>||.||
|-
!11||.||.
|-

|}

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

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

==Ссылки==

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

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

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

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

2008-02-26T10:49:15Z

Меньков Антон: /* Задание */

<center>'''Программирование на Delphi разветвляющихся алгоритмов'''</center>

==Оператор If==
Алгоритм называется разветвляющимся, если он содержит несколько ветвей, отличающихся друг от друга содержанием вычислений. Выход вычислительного процесса на ту или иную ветвь алгоритма определяется исходными данными задачи.

==Пример 1==
*'''Условие'''

Найти максимальную из двух величин а и в
*'''Использованные компоненты'''

Edit1 – ввод

Edit 2 – ввод

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

BitBtn1, BitBtn2 - рабочие кнопки

*'''Программный код'''
var a,b,m:real;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
if a>=b then m:=a else m:=b;
label3.caption:='Первое число= '+floattostr(a)+#13+'Второе число= '
+floattostr(b)+#13+'Максимальное= '+floattostr(m);
end;

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

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

==Задание ==

Таблица 9
{| border=1
!Номер варианта||Условие||Исходные данные||
|-
|<center>1</center>||Три точки на плоскости заданы своими координатами.Выяснить какие из них находятся на максимальном расстоянии друг от друга||<center>x1,y1,x2,y2,x3,y3</center>
|-

|<center>2</center>||Вычислить: max^3(a,b,c)+min^2(a,b,c)||<center>a,b,c</center>
|-
|<center>3</center>||Заданы три величины а, b, c. Определить максимальное и минимальное значение из их среднего геометрического, среднего арифметического и суммы экспонент exp(a) + exp(b) + exp(c)||<center>a,b,c</center>
|-
|<center>4</center>||Определить в какой четверти координатной плоскости находится точка с координатами х,у||<center>x,y</center>
|-
|<center>5</center>||m=max(x,y,z) \ min ^ 2(a,b,c)||<center>x,y,z</center>
|-
|<center>6</center>||Z=min(0,x) - min(0,y) \ max ^ 2(y,x)||<center>x,y</center>
|-
|<center>7</center>||r=max(min(x,y),z)/3||<center>x,y,z</center>
|-
|<center>8</center>||v=max(min(x-y,y-x),0)||<center>x,y</center>
|-
|<center>9</center>||.||<center>x</center>
|-
|<center>10</center>||.||
|-
!11||.||.
|-

|}

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

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

==Ссылки==

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

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

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

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

2008-02-26T10:38:02Z

Меньков Антон: /* Задание */

<center>'''Программирование на Delphi разветвляющихся алгоритмов'''</center>

==Оператор If==
Алгоритм называется разветвляющимся, если он содержит несколько ветвей, отличающихся друг от друга содержанием вычислений. Выход вычислительного процесса на ту или иную ветвь алгоритма определяется исходными данными задачи.

==Пример 1==
*'''Условие'''

Найти максимальную из двух величин а и в
*'''Использованные компоненты'''

Edit1 – ввод

Edit 2 – ввод

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

BitBtn1, BitBtn2 - рабочие кнопки

*'''Программный код'''
var a,b,m:real;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
if a>=b then m:=a else m:=b;
label3.caption:='Первое число= '+floattostr(a)+#13+'Второе число= '
+floattostr(b)+#13+'Максимальное= '+floattostr(m);
end;

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

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

==Задание ==

Таблица 9
{| border=1
!Номер варианта||Условие||Исходные данные||
|-
|<center>1</center>||Три точки на плоскости заданы своими координатами.Выяснить какие из них находятся на максимальном расстоянии друг от друга||<center>x1,y1,x2,y2,x3,y3</center>
|-

|<center>2</center>||Вычислить: max^3(a,b,c)+min^2(a,b,c)||<center>a,b,c</center>
|-
|<center>3</center>||Заданы три величины а, b, c. Определить максимальное и минимальное значение из их среднего геометрического, среднего арифметического и суммы экспонент exp(a) + exp(b) + exp(c)||<center>a,b,c</center>
|-
|<center>4</center>||Определить в какой четверти координатной плоскости находится точка с координатами х,у||<center>x,y</center>
|-
|<center>5</center>||m=max(x,y,z) \ min ^ 2(a,b,c)||<center>x,y,z</center>
|-
|<center>6</center>||Z=min(0,x) - min(0,y) \ max ^ 2(y,x)||<center>x,y</center>
|-
|<center>7</center>||||<center>x,y,z</center>
|-
|<center>8</center>||v=max(min(x-y,y-x),0)||<center>x,y</center>
|-
|<center>9</center>||.||<center>x</center>
|-
|<center>10</center>||.||
|-
!11||.||.
|-

|}

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

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

==Ссылки==

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

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

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

Участник:Салабаев Юрий

2008-02-26T10:37:02Z

Меньков Антон:

[[Изображение: Салабаев Юрий.JPG|thumb|Termit]]

'''ФИО''':Салабаев Юрий Владимирович

'''Группа''' [[Группа ИСТ-07|ИСТ-07]]

'''Институт''' [[Профессионально-педагогический институт|ППИ]]

'''Мои увлечения ''': Футбол, хоккей, воллейбол, баскетбол, мини-футбол. Расширенное познание мира Hi-tech!

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

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

2008-02-19T11:09:28Z

Меньков Антон:

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

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

Группы факультета среднего профессионального образования

2008-02-19T11:06:53Z

Меньков Антон:

[[Группа ИВТ 05-2]]

[[Группа ИВТ 06-2]]
[[Категория: ФСПО]]
[[Категория: Группы]]

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

2008-02-19T11:05:07Z

Меньков Антон: