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

Googletest

2010-05-03T19:37:29Z

Конкин Евгений: Новая: <googlemap version="0.9" lat="56.247696" lon="43.855866" type="satellite" zoom="17" width="425" selector="no" overview="yes" controls="small"> 32.81134, 48.498341 One of many [[gas stati...

<googlemap version="0.9" lat="56.247696" lon="43.855866" type="satellite" zoom="17" width="425" selector="no" overview="yes" controls="small">
32.81134, 48.498341
One of many [[gas stations]] in town
32.82448, 48.504848
The [[town hall]]
(A) 56.24769, 43.855823
ВГИПУ
</googlemap>

Исходники на C AVR

2010-02-11T10:18:45Z

Конкин Евгений: /* Исходники на C для AVR */

''' Компилятор WinAVR '''

* [[Работаем с ADC (АЦП) в mega32]]

* [[Пример работы с USART (UART)]]

Исходники на C AVR

2010-02-11T10:18:21Z

Конкин Евгений: Новая: = Исходники на C для AVR= ''' Компилятор WinAVR ''' * Работаем с ADC (АЦП) в mega32 * Пример работы с USART (UART)

= Исходники на C для AVR=

''' Компилятор WinAVR '''

* [[Работаем с ADC (АЦП) в mega32]]

* [[Пример работы с USART (UART)]]

Исходники Микроконтроллеры

2010-02-11T10:15:20Z

Конкин Евгений: Новая: =Микроконтроллеры= ''' В данной категории публикуются исходные коды для микроконтроллеров ''' '' Микрок...

=Микроконтроллеры=

''' В данной категории публикуются исходные коды для микроконтроллеров '''

'' Микроконтроллеры AVR ''

* [[Исходники на C AVR | Исходники на C]]
* [[Исходники на Assembler AVR | Исходники на Assembler]]

'' Микроконтроллеры PIC ''

* [[Исходники на C PIC | Исходники на C]]
* [[Исходники на Assembler PIC | Исходники на Assembler]]

Исходники

2010-02-11T10:07:41Z

Конкин Евгений: /* Исходные Коды */

== <center> Исходные Коды </center> ==

<center> На данной страничке Вы можите опубликовывать исходные коды (далее Исходники) на любых языках программирования. Для начала ознакомтесь с небольшими [[Правила Размещения и Использования исходных кодов|Правилами]]</center>

<center>
{|border=1 width=75%
!Colspan=3 bgcolor=#CCFF00| Категории исходников
|-
|width=33%|[[Исходники Микроконтроллеры|Микроконтроллеры]]
|width=33%|[[Исходники Алгоритмы, МатМетоды|Алгоритмы, МатМетоды]]
|width=33%|[[Исходники Архивация|Архивация]]
|-
|[[Исходники Бухгалтерия, делопроизводство|Бухгалтерия, делопроизводство]]
|[[Исходники Аудио, обработка и вывод звука|Аудио, обработка и вывод звука]]
|[[Исходники Графика, DirectX, OpenGL|Графика, DirectX, OpenGL]]
|-
|[[Исходники Искусственный интеллект|Искусственный интеллект]]
|[[Исходники Исходные тексты игр|Исходные тексты игр]]
|[[Исходники Компиляторы и интерпретаторы|Компиляторы и интерпретаторы]]
|-
|[[Исходники Компоненты Delphi|Компоненты Delphi]]
|[[Исходники Лабораторные работы, учёба|Лабораторные работы, учёба]]
|[[Исходники Операционные системы|Операционные системы]]
|-
|[[Исходники Офисные приложения|Офисные приложения]]
|[[Исходники Простенькие программки|Простенькие программки]]
|[[Исходники Серьезные программы|Серьезные программы]]
|-
|[[Исходники Сеть, протоколы, модемы|Сеть, протоколы, модемы]]
|[[Исходники Web, PERL, PHP, JavaScript и т.д.|Web, PERL, PHP, JavaScript и т.д.]]
|[[Исходники Прочее|Прочее]]
|}

</center>

Исходники Простенькие программки

2010-02-11T10:06:13Z

Конкин Евгений:

[[Меняем местами кнопки мышки | Меняем местами кнопки мышки (Delphi , Windows XP)]]

MediaWiki:Sidebar

2010-02-11T10:04:41Z

Конкин Евгений:

Справка:Справка

2010-02-11T09:51:59Z

Конкин Евгений:

'''Правила работы в ВикиВГИПУ'''

* [[Правила_работы_в_ВикиВГИПУ| Перейти на страницу "Правила работы в ВикиВГИПУ"]]

'''Учебный курс Социальные сервисы Веб 2.0'''

* [[Учебный_курс_Социальные_сервисы_Веб_2.0| Перейти на страницу "Учебный курс Социальные сервисы Веб 2.0"]]

'''Часто задаваемые вопросы (FAQ) о MediaWiki'''

* [http://www.mediawiki.org/wiki/Manual:FAQ/ru http://www.mediawiki.org/wiki/Manual:FAQ/ru]

'''Работа с MediaWiki'''

* [http://viro.org.ru/mediawiki/index.php/Работа_с_Mediawiki http://viro.org.ru/mediawiki/index.php/Работа_с_Mediawiki]

'''Частично переведённое официально руководство по MediaWiki'''
''(Вы также можете принять участие и помочь с переводом на родной Вам язык)''

* [http://meta.wikimedia.org/wiki/Помощь:Содержание http://meta.wikimedia.org/wiki/Помощь:Содержание]

Справка:Справка

2010-02-11T09:47:51Z

Конкин Евгений:

'''Правила работы в ВикиВГИПУ'''

* [[Правила_работы_в_ВикиВГИПУ| Правила работы]]

'''Часто задаваемые вопросы (FAQ) о MediaWiki'''

* [http://www.mediawiki.org/wiki/Manual:FAQ/ru http://www.mediawiki.org/wiki/Manual:FAQ/ru]

'''Работа с MediaWiki'''

* [http://viro.org.ru/mediawiki/index.php/Работа_с_Mediawiki http://viro.org.ru/mediawiki/index.php/Работа_с_Mediawiki]

'''Частично переведённое официально руководство по MediaWiki'''
''(Вы также можете принять участие и помочь с переводом на родной Вам язык)''

* [http://meta.wikimedia.org/wiki/Помощь:Содержание http://meta.wikimedia.org/wiki/Помощь:Содержание]

Справка:Справка

2010-02-11T09:32:38Z

Конкин Евгений:

'''Часто задаваемые вопросы (FAQ) о MediaWiki'''

* [http://www.mediawiki.org/wiki/Manual:FAQ/ru http://www.mediawiki.org/wiki/Manual:FAQ/ru]

'''Работа с MediaWiki'''

* [http://viro.org.ru/mediawiki/index.php/Работа_с_Mediawiki http://viro.org.ru/mediawiki/index.php/Работа_с_Mediawiki]

'''Частично переведённое официально руководство по MediaWiki'''
''(Вы также можете принять участие и помочь с переводом на родной Вам язык)''

* [http://meta.wikimedia.org/wiki/Помощь:Содержание http://meta.wikimedia.org/wiki/Помощь:Содержание]

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

2010-02-02T20:14:35Z

Конкин Евгений: Защищена страница «Участник:Круподерова Елена Петровна»: От взлома сайта (Некоторые используют уязвимость на администраторских страни�

[[Изображение:Elena Krupoderova.jpg|thumb|left|Круподерова Елена]]

'''ФИО:''' Круподерова Елена Петровна

'''Образование:''' высшее техническое, электронные вычислительные машины

'''Ученая степень:''' кандидат пед. наук

'''Институт:''' [[Институт дизайна|дизайна]]

'''Кафедра:''' [[Кафедра математики и информатики | математики и информатики]]

'''Должность:''' профессор

'''Область профессиональных интересов:''' ИКТ-компетентность педагогов, информационная образовательная среда, сетевые сервисы Веб 2.0

'''E-mail''' krupoderova@gmail.com

'''Skype''': krupoderovae

Организатор обучения по программе [[Площадка программы Intel Обучение для будущего|Intel "Обучение для будущего"]]

Научный руководитель [[Клуб информационных технологий |клуба информационных технологий]]

[[Учебный проект Объединенные сетью]]

[[Шаблон:Вики-статья учащихся]]

[[Категория:Кафедра математики и информатики]]

[[Категория:Преподаватель]]

[[Категория:Администратор]]

Участник:Конкин Евгений

2010-02-02T19:49:15Z

Конкин Евгений:

{| border=0
| bgcolor=#FFFFFF| [[Изображение:My_Wiki.png]]
| '''Ф.И.О.:'''Конкин Евгений

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

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

'''Мои увлечения:''' Музыка, компьютеры, радиоэлектроника, научная литература, научные и научно-фантастические фильмы.

'''ICQ:''' 199803296

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

'''Некоторые ссылки'''

[[Список спецстраниц| Список спецстраниц]]

|}

Участник:Конкин Евгений

2009-11-04T15:00:19Z

Конкин Евгений:

{| border=0
| bgcolor=#FFFFFF| [[Изображение:My_Wiki.png]]
| '''Ф.И.О.:'''Конкин Евгений

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

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

'''Мои увлечения:''' Музыка, компьютеры, радиоэлектроника, научная литература, научные и научно-фантастические фильмы.

'''Наши Сайты:''' [http://xsudo.ru http://xsudo.ru] и [http://resendlers.clan.su http://resendlers.clan.su]

'''ICQ:''' 199803296

'''Jabber:''' rushack@jabber.ru

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

'''Некоторые ссылки'''

[[Список спецстраниц| Список спецстраниц]]

|}

Обсуждение участника:Конкин Евгений

2009-10-09T19:42:46Z

Конкин Евгений: Защищена страница «Обсуждение участника:Конкин Евгений»: Опасность взлома [edit=sysop:move=sysop] [каскадная]

Женя, одного Freeminda маловато, конечно, для диплома. Но...Что делать, раз Графвиз нельзя. Тогда надо представить как-то программирование по-дугому. Я варианты нашла, нужно обсудить. Звони, договоримся о встрече. --[[Участник:Круподерова Елена Петровна|Круподерова Елена Петровна]] 08:27, 17 апреля 2009 (UTC)

Женя, а где же фото?--[[Участник:Круподерова Елена|Круподерова Елена]] 09:02, 1 марта 2008 (Russian Standard Time)

----

Женечка, солнышко поздравляю тебя с днем Святого Валентина!!!!--[[Участник:Зеленова Елена|Зеленова Елена]] 10:33, 14 февраля 2008 (Russian Standard Time)

----

Обсуждение участника:Ermak

2009-10-09T19:15:16Z

Конкин Евгений:

Здравствуйте, Евгений. У меня к Вам будет просьба. Перерегистрируйтесь пожалуйста на сайте wiki.vgipu.ru заново. Только регистрироваться нужно не под ником "Ermak", а под реальным именем и фамилией (Читайте правила пользования порталом).После переригистрации старый профиль будет удалён.
 
--
 С уважением Евгений Александрович. Администрация портала wiki.vgipu.ru.
 
--[[Участник:Конкин Евгений|Конкин Евгений]] 19:15, 9 октября 2009 (UTC)

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

2008-05-20T08:01:38Z

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

<center>'''Работа с двумерными массивами'''</center>
== Описание двумерного массива==
Двумерный массив состоит из элементов с двумя индексами: один показывает номер строки в

массиве, другой - номер столбца.

В Delphi возможны массивы и большей размерности. Для их описания возможны два подхода:

а) массив рассматривается как массив других массивов:

type x = array[1..100] of real; y = array[1..2] of x;

б) массив рассматривается как многоиндексный

type y = array [ 1...100, 1...2 ] of real;

Оба описания равноценны.
== Пример 1==
*'''Условие:'''

Получить матрицу, элементами которой являются произведения номеров строк i и номеров столбцов j.

*'''Использованные компоненты:'''

StringGrid1 - для выврда результирующей таблицы

BitBtn1 - для запуска программы

BitBtn2 - для закрытия формы

*'''Программный код:'''
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Grids;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
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}
type mat=array[1..9,1..9] of integer;
var i,j:integer;
p:mat;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
for i:=1 to 9 do
begin
for j:=1 to 9 do
begin
p[i,j]:=i*j;
stringgrid1.Cells[j-1,i-1]:=inttostr(p[i,j]);
end;
end;
end;
end.

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

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

== Пример 2==

*'''Условие:'''

Из матрицы А[3,4] получить вектор В, элементами которого являются наибольшие элементы столбцов матрицы.

*'''Использованные компоненты:'''

StringGrid1 - для вывода исходной матрицы

StringGrid2 - для вывода результирующего вектора

Label1 - для вывода текстовых сообщений

Label2 - для вывода текстовых сообщений

BitBtn1 - для запуска программы

BitBtn2 - для закрытия формы
*'''Программный код:'''
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Grids;
type
TForm1 = class(TForm)
Label1: TLabel;
StringGrid1: TStringGrid;
Label2: TLabel;
StringGrid2: TStringGrid;
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}
type x=array[1..4,1..3] of integer;
y=array[1..4] of integer;
var i,j:integer;
a:x; b:y;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
randomize;
for i:=1 to 3 do begin
for j:=1 to 4 do
begin
a[i,j]:=random(41)-10;
stringgrid1.Cells[j-1,i-1]:=inttostr(a[i,j]);
end;
end;
for j:=1 to 4 do
begin
b[j]:=a[1,j];
for i:=2 to 3 do
if b[j]<a[i,j] then b[j]:=a[i,j];
stringgrid2.Cells[j-1,0]:=inttostr(b[j]);
end;
end;
end.

*'''Форма с результатом работы программы.'''
[[Изображение:-6-2.JPG]]

==Задание==

<CENTER>'''Таблица №19'''</CENTER>
{| border=1
|-
!Номер варианта||Условие
|-
|<center>1</center>||Для данного целого положительного n создать матрицу A(n,n), в которой элементы, стоящие по диагонали, равны единице, а все остальные элементы - нулевые.
|-
|<center>2</center>||Для данного целого положительного n сформировать матрицу A(n,n), в которой элементы диагонали равны номеру строки, а все остальные элементы - нулевые.
|-
|<center>3</center>||В матрице A(n,n) поменять местами две строки с номерами р и q.
|-
|<center>4</center>||В матрице A(n,m) поэлементно вычесть последнюю строку из всех строк, кроме последней.
|-
|<center>5</center>||В матрице х(k,l) поменять местами максимальный и минимальный элементы.
|-
|<center>6</center>||Матрицу A(n,n) сформировать по следующему принципу: по диагонали расположены единицы, выше диагонали - нули, а элементы, расположенные ниже диагонали, равны сумме соответствующих индексов.
|-
|<center>7</center>||Задана матрица В(3,5). Получить матрицу V путем удаления из В строки и столбца, в которых содержится минимальный элемент.
|-
|<center>8</center>||Дана матрица A(m,n). Дополнить ее (m+1)-й строкой и (n+1)-м столбцом, в которых записать суммы элементов соответствующих строк или столбцов исходного массива А.
|-
|<center>9</center>||Транспонировать матрицу x(m,n).
|-
|<center>10</center>||Из матрицы А(3,4) получить вектор В, элементами которого являются произведения элементов в каждой строке матрицы.
|-
|<center>11</center>||Создать вектор М, содержащий количество отрицательных элементов каждого столбца матрицы z(3,4).
|-
|<center>12</center>||Сформировать матрицу У(n,n) таким образом, чтобы значения всех элементов 1-го столбца были равны 1, второго - 2, n-го - n.
|-
|<center>13</center>||Имеется матрица A(m,n). Найти максимальный из всех минимальных элементов строк. Вывести номер строки, в которой расположено выбранное число.
|-
|<center>14</center>||Сформировать диагональную матрицу C(m,m). У диагональной матрицы все элементы равны нулю, кроме диагональных.

|}

<CENTER>'''Таблица №20'''</CENTER>
{| border=1
|-
!Номер варианта||Условие
|-
|<center>1</center>||Найти среднее арифметическое элементов матрицы Х(n,m) и сформировать вектор У из элементов, больших среднего арифметического.
|-
|<center>2</center>||Сформировать одномерный массив из элементов, стоящих над главной диагональю матрицы K(m,m). Найти сумму элементов этого массива.
|-
|<center>3</center>||Из матрицы У(k,k) получить вектор Т, элементами которого являются элементы главной диагонали матрицы.
|-
|<center>4</center>||Сформировать матрицу Z(n,n) по следующему правилу: элементы, расположенные выше диагонали, равны нулю, а остальные элементы имеют произвольные значения.
|-
|<center>5</center>||Заполнить массив A(n,m) целыми случайными числами таким образом, чтобы и в каждой строке и в каждом столбце каждый следующий элемент был не меньше предыдущего элемента.
|-
|<center>6</center>||В матрице X(m,m) найти максимальный диагональный элемент и вывести всю строку, в которой он расположен.
|-
|<center>7</center>||Вычислить сумму элементов двух главных диагоналей матрицы С(5,5).
|-
|<center>8</center>||Вычислить среднее арифметическое четных элементов матрицы У(4,5).
|-
|<center>9</center>||Дана матрица X(m,m). Сформировать вектор из элементов, расположенных по спирали.
[[Изображение:Т14-З9.JPG]]

Пример заполнения матрицы (3,3).
|-
|<center>10</center>||Сформировать вектор С из элементов матрицы L(m,n), больших заданного числа Z.
|-
|<center>11</center>||Вычислить сумму элементов матрицы X(l,l), расположенных в закрашенной области.
[[Изображение:Т14-З11.JPG]]
|-
|<center>12</center>||Найти произведение элементов матрицы T(k,k), расположенных в закрашенной области.
[[Изображение:Т14-З12.JPG]]
|-
|<center>13</center>||Сформировать Вектор Т из четных элементов матрицы P(k,l). Найти в нем максимальный элемент.
|-
|<center>14</center>||Найти разность среднего арифметического элементов первых трех и элементов последних трех столбцов матрицы X(5,6).

|}

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

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

==Ссылки==

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

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

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

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

2008-03-22T06:16:04Z

Сутков Александр:

'''ФИО''' Сутков Александр Сергеевич

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

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

'''Мои увлечения:''' Компьютеры

'''Любимые Фильмы:''' Побег из Шоушенга, Зеленая миля, Карты деньги два ствола, Брат, Нулевой километр, Сестры, Большой куш, Даже не думай, Игла.

[[Медиа:sutkov.SWF]]

<gallery>
Изображение:Радиусный_дом.JPG|Радиусный дом
Изображение:пр_Октября_НН.JPG|Проспект Октября
Изображение:ДК_Автозавода.jpg|ДК Автозавода
Изображение:храм_Татьяны_НН.JPG|Храм Татьяны
Изображение:бюст_Киселева.jpg|Киселев
</gallery>

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

2008-03-22T06:14:16Z

Сутков Александр:

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

2008-03-22T06:13:05Z

Сутков Александр:

'''ФИО''' Сутков Александр Сергеевич

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

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

'''Мои увлечения:''' Компьютеры

'''Любимые Фильмы:''' Побег из Шоушенга, Зеленая миля, Карты деньги два ствола, Брат, Нулевой километр, Сестры, Большой куш, Даже не думай, Игла.

[[Медиа:sutkov.SWF]]

<gallery>
[[Изображение:Радиусный_дом.JPG|Радиусный дом]]
[[Изображение:пр_Октября_НН.JPG|Проспект Октября]]
[[Изображение:ДК_Автозавода.jpg|ДК Автозавода]]
[[Изображение:храм_Татьяны_НН.JPG|Храм Татьяны]]
[[Изображение:бюст_Киселева.jpg|Киселев]]
</gallery>

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

2008-03-22T06:08:38Z

Сутков Александр:

Файл:Пр Октября НН.JPG

2008-03-22T06:06:35Z

Сутков Александр: Категория:Изображения

[[Категория:Изображения]]

Файл:Храм Татьяны НН.JPG

2008-03-22T06:01:15Z

Сутков Александр:

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

2008-03-22T05:59:59Z

Сутков Александр:

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

2008-03-22T05:55:27Z

Сутков Александр:

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

2008-03-22T05:36:16Z

Сутков Александр:

Файл:Sutkov.SWF

2008-03-22T05:12:25Z

Сутков Александр: Категория:Презентации

[[Категория:Презентации]]

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

2008-03-15T06:59:47Z

Сутков Александр:

'''ФИО''' Сутков Александр Сергеевич

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

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

'''Мои увлечения:''' Компьютеры

'''Любимые Фильмы:''' Побег из Шоушенга, Зеленая миля, Карты деньги два ствола, Брат, Нулевой километр, Сестры, Большой куш, Даже не думай, Игла.

{| border=1
|bgcolor=#CCFF00|'''Фильмы'''
|bgcolor=#CCFF00|'''Музыка'''
|-
|bgcolor=##00BFFF|Побег из Шоушенга
|bgcolor=##00BFFF|Психея
|-
|bgcolor=##00BFFF|Зеленая миля
|bgcolor=##00BFFF|Stigmata
|-
|bgcolor=##00BFFF|Карты деньги два ствола
|bgcolor=##00BFFF|Korea
|-
|bgcolor=##00BFFF|Брат
|bgcolor=##00BFFF|Bulet For My Valentine
|-
|bgcolor=##00BFFF|Нулевой километр
|bgcolor=##00BFFF|As I Lay Daing
|-
|}

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

2008-03-15T06:24:17Z

Сутков Александр:

'''ФИО''' Сутков Александр Сергеевич

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

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

'''Мои увлечения:''' Компьютеры

'''Любимые Фильмы:''' Побег из Шоушенга, Зеленая миля, Карты деньги два ствола, Брат, Нулевой километр, Сестры, Большой куш, Даже не думай, Игла.

{| border=1
|bgcolor=#CCFF00|Фильмы
|bgcolor=#CCFF00|Музыка
|-
|Побег из Шоушенга
|Психея
|-
|Зеленая миля
|Stigmata
|-
|Карты деньги два ствола
|Korea
|-
|Брат
|Bulet For My Valentine
|-
|Нулевой километр
|As I Lay Daing
|-
|}

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

2008-03-15T06:04:27Z

Сутков Александр:

'''ФИО''' Сутков Александр Сергеевич

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

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

'''Мои увлечения:''' Компьютеры

'''Любимые Фильмы:''' Побег из Шоушенга, Зеленая миля, Карты деньги два ствола, Брат, Нулевой километр, Сестры, Большой куш, Даже не думай, Игла.

{| border=1
|Ячейка 1*1
|bgcolor=#FFCC00|Ячейка 2*1
|Ячейка 3*1
|-
|Ячейка 1*2
|Ячейка 2*2
|Ячейка 3*2
|-
|bgcolor=#CCFF00|Ячейка 1*3
|Ячейка 2*3
|Ячейка 3*3
|}

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

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

2008-03-01T07:06:26Z

Сутков Александр:

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

2008-03-01T06:32:04Z

Сутков Александр:

<center>Программы сортировки '''</center>

==Пример 1==

*'''Условие'''

Массив A(n) отсортировать в порядке возрастания элементов.

*'''Использованные компоненты'''

<center>[[Изображение:11-1.JPG]]</center>

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

'''unit Unit1;'''
'''interface'''
'''uses'''
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, XPMan, Grids, StdCtrls, Buttons;
'''type'''
x=array [1..20] of real;
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
StringGrid1: TStringGrid;
Label2: TLabel;
Button2: TButton;
StringGrid2: TStringGrid;
Label3: TLabel;
XPManifest1: TXPManifest;
BitBtn1: TBitBtn;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{Private declarations }
public
{Private declarations }
end;
'''var'''
Form1: TForm1;
a:x; i, j, n, k: integer; R: real;
implementation
{$R *.dfm}
'''procedure max (q: integer; var nmax: integer);'''
var m: real; l: integer;
begin
m:=A[1]; nmax:=1;
for l:=1 to q do
if A[l]>m then
begin
m:= A[l]; nmax:= l
end;
end; {конец описания процедуры}
'''procedure TForm1.Button2Click(Sender: TObject);'''
begin
randomize;
n:=strtoint(edit1.Text);
j:=n;
for i:=1 to n do begin
a[i]:=random(11);
stringgrid1.Cells[i-1,0]:=floattostr(a[i]);
end;
end;
'''procedure TForm1.Button1Click(Sender: TObject);'''
begin {основная программа}
while j <> 1 do
begin
max (j, k);
R:= A[k]; A[k]:= A[j]; A[j]:= R;
j:= j-1;
end;
for i:=1 to n do
stringgrid2.Cells[i-1,0]:=floattostr(a[i]);
end;
'''procedure TForm1.BitBtn1Click(Sender: TObject);'''
begin
close;
end;
end.

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

==Задание ==

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

==Ссылки==

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

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

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

Файл:11-1.JPG

2008-03-01T06:29:15Z

Сутков Александр: 11-1 Категория:Изображения:Формы

11-1

[[Категория:Изображения:Формы]]

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

2008-03-01T06:17:29Z

Сутков Александр:

<center>Программы сортировки '''</center>

==Пример 1==

*'''Условие'''

Массив A(n) отсортировать в порядке возрастания элементов.

*'''Использованные компоненты'''

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

'''unit Unit1;'''
'''interface'''
'''uses'''
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, XPMan, Grids, StdCtrls, Buttons;
'''type'''
x=array [1..20] of real;
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
StringGrid1: TStringGrid;
Label2: TLabel;
Button2: TButton;
StringGrid2: TStringGrid;
Label3: TLabel;
XPManifest1: TXPManifest;
BitBtn1: TBitBtn;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{Private declarations }
public
{Private declarations }
end;
'''var'''
Form1: TForm1;
a:x; i, j, n, k: integer; R: real;
implementation
{$R *.dfm}
'''procedure max (q: integer; var nmax: integer);'''
var m: real; l: integer;
begin
m:=A[1]; nmax:=1;
for l:=1 to q do
if A[l]>m then
begin
m:= A[l]; nmax:= l
end;
end; {конец описания процедуры}
'''procedure TForm1.Button2Click(Sender: TObject);'''
begin
randomize;
n:=strtoint(edit1.Text);
j:=n;
for i:=1 to n do begin
a[i]:=random(11);
stringgrid1.Cells[i-1,0]:=floattostr(a[i]);
end;
end;
'''procedure TForm1.Button1Click(Sender: TObject);'''
begin {основная программа}
while j <> 1 do
begin
max (j, k);
R:= A[k]; A[k]:= A[j]; A[j]:= R;
j:= j-1;
end;
for i:=1 to n do
stringgrid2.Cells[i-1,0]:=floattostr(a[i]);
end;
'''procedure TForm1.BitBtn1Click(Sender: TObject);'''
begin
close;
end;
end.

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

==Задание ==

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

==Ссылки==

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

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

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

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

2008-03-01T06:15:54Z

Сутков Александр:

<center>'''Программирование на Delphi. Модуль 10'''</center>

==Пример 1==

*'''Условие'''

Массив A(n) отсортировать в порядке возрастания элементов.

*'''Использованные компоненты'''

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

'''unit Unit1;'''
'''interface'''
'''uses'''
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, XPMan, Grids, StdCtrls, Buttons;
'''type'''
x=array [1..20] of real;
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
StringGrid1: TStringGrid;
Label2: TLabel;
Button2: TButton;
StringGrid2: TStringGrid;
Label3: TLabel;
XPManifest1: TXPManifest;
BitBtn1: TBitBtn;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{Private declarations }
public
{Private declarations }
end;
'''var'''
Form1: TForm1;
a:x; i, j, n, k: integer; R: real;
implementation
{$R *.dfm}
'''procedure max (q: integer; var nmax: integer);'''
var m: real; l: integer;
begin
m:=A[1]; nmax:=1;
for l:=1 to q do
if A[l]>m then
begin
m:= A[l]; nmax:= l
end;
end; {конец описания процедуры}
'''procedure TForm1.Button2Click(Sender: TObject);'''
begin
randomize;
n:=strtoint(edit1.Text);
j:=n;
for i:=1 to n do begin
a[i]:=random(11);
stringgrid1.Cells[i-1,0]:=floattostr(a[i]);
end;
end;
'''procedure TForm1.Button1Click(Sender: TObject);'''
begin {основная программа}
while j <> 1 do
begin
max (j, k);
R:= A[k]; A[k]:= A[j]; A[j]:= R;
j:= j-1;
end;
for i:=1 to n do
stringgrid2.Cells[i-1,0]:=floattostr(a[i]);
end;
'''procedure TForm1.BitBtn1Click(Sender: TObject);'''
begin
close;
end;
end.

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

==Задание ==

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

==Ссылки==

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

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

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

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

2008-03-01T06:07:13Z

Сутков Александр:

<center>'''Программирование на Delphi. Модуль 10'''</center>

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

*'''Использованные компоненты'''

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

'''unit Unit1;'''
'''interface'''
'''uses'''
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, XPMan, Grids, StdCtrls, Buttons;
'''type'''
x=array [1..20] of real;
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
StringGrid1: TStringGrid;
Label2: TLabel;
Button2: TButton;
StringGrid2: TStringGrid;
Label3: TLabel;
XPManifest1: TXPManifest;
BitBtn1: TBitBtn;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{Private declarations }
public
{Private declarations }
end;
'''var'''
Form1: TForm1;
a:x; i, j, n, k: integer; R: real;
implementation
{$R *.dfm}
'''procedure max (q: integer; var nmax: integer);'''
var m: real; l: integer;
begin
m:=A[1]; nmax:=1;
for l:=1 to q do
if A[l]>m then
begin
m:= A[l]; nmax:= l
end;
end; {конец описания процедуры}
'''procedure TForm1.Button2Click(Sender: TObject);'''
begin
randomize;
n:=strtoint(edit1.Text);
j:=n;
for i:=1 to n do begin
a[i]:=random(11);
stringgrid1.Cells[i-1,0]:=floattostr(a[i]);
end;
end;
'''procedure TForm1.Button1Click(Sender: TObject);'''
begin {основная программа}
while j <> 1 do
begin
max (j, k);
R:= A[k]; A[k]:= A[j]; A[j]:= R;
j:= j-1;
end;
for i:=1 to n do
stringgrid2.Cells[i-1,0]:=floattostr(a[i]);
end;
'''procedure TForm1.BitBtn1Click(Sender: TObject);'''
begin
close;
end;
end.

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

==Задание ==

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

==Ссылки==

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

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

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

Файл:F1-3.JPG

2008-02-26T10:05:05Z

Сутков Александр: Формула для 6 таблицы 3 модуль Категория:Изображение:Учебный курс Программирование на Delphi

Формула для 6 таблицы 3 модуль

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

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

2008-02-26T09:56:57Z

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

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

<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]]

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

2008-02-26T09:45:09Z

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

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

<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]]

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

2008-02-26T09:26:38Z

Сутков Александр:

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

<center>'''Введение в Delphi'''</center>
== Окно системы программирования Delphi ==
Система программирования Delphi предоставляет пользователю удобный графический интерфейс в процессе разработки приложения. После запуска Delphi появится окно системы программирования Delphi.

<center>[[Изображение:DelphiMain.jpg|500px]]</center>

В главном окне находится меню команд, панели инструментов и палитра компонентов.

== Окно Конструктор форм ==
Окно стартовой формы (Forml) представляет собой заготовку главного окна разрабатываемого приложения.
<center>[[Изображение:Форма_Delphi1.JPG|500px]]</center>

== Окно Программный код ==
В окне редактора кода, которое можно увидеть, отодвинув в сторону окно формы, следует набирать текст программы. В начале работы над новым проектом это окно редактора кода содержит сформированный Delphi шаблон программы.

<center>[[Изображение:Схема программного кода.jpg|500px]]</center>

== Панель инструментов ==

Под стракой Главного меню справа располагаеться Панель инструментов, содержащая пиктограммы управляющих элементов

<center>[[Изображение:Панель инструментов.JPG|500px]]</center>

== Окно Свойства объекта ==
Окно Object Inspector — окно редактора свойств объектов предназначено для редактирования значений свойств объектов. В терминологии визуального проектирования объекты — это диалоговые окна и элементы управления (поля ввода и вывода, командные кнопки, переключатели и др.). Свойства объекта — это характеристики, определяющие вид, положение и поведение объекта. Например, свойства width и height задают размер (ширину и высоту) формы, свойства тор и left — положение формы на экране, свойство caption — текст заголовка.

<center>[[Изображение:Свойства_обьекта.JPG|Свойства_обьекта.JPG]]</center>

== Окно Проводник проекта ==
Проводник проекта (Projekt Manager) располагается в правом верхнем углу окна системы программирования Delphi.
В нем отображаются в виде иерархического каталога все составные части текущего проекта.

<center>[[Изображение:Окно_Проводник_проекта.JPG]]</center>

== Окно Дерево объектов ==
Окно Дерево объектов (Object TreeView) отображает перечень объектов, размещенных на форме. Окно Дерево объектов вызывается командой [View-Object TreeView].

<center>[[Изображение:Дерево_объектов.JPG]]</center>

== Этапы разработки приложения на языке Delphi ==

Создание приложения в среде Delphi можно условно разделить на несколько этапов:

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

'''2.Задание значений свойств объектов графического интерфейса.''' С помощью окна Свойства объекта задаются значения свойств управляющих элементов, помещенных ранее на форму.

'''3.Создание и редактирование программного кода.''' Для создания заготовки событийной процедуры необходимо осуществить двойной щелчок мышью по управляющему элементу. В окне Редактор кода появиться заготовка событийной процедуры, имя которой состоит из двух частей: имени формы, содержащий управляющий элемент, и имени объекта и имени события (например,TForm1.Button1Click). затем в окне Редактор кода производится ввод и редактирование программного кода процедуры.

'''4.Сохранение проекта.''' Так как проект включает в себя несколько файлов, рекомендуется для каждого проекта создать отдельную папку на диске. Сохранение проекта производится с помощью меню File:

-Сначала необходимо сохранить форму и связанный с ней программный модуль (файл с расширением pas) с помощью команды Save As.…По умолчанию для файла формы предлагается имя Unit1.pas;

-Далее необходимо сохранить файл главного модуля, который содержит описание проекта (файл с расширением dpr) с помощью команды Save Project As…;

-В процессе сохранения в папку проекта записываются вспомогательные файлы: файл с расширением res, описывающий ресурсы; файл с расширением dfm, описывающий форму, и некоторые другие файлы.

'''5.Компиляция проекта в приложение.''' Сохранённый проект может выполняться только в самой системе программирования Delphi. Для того чтобы преобразовать проект в приложение, которое может выполняться непосредственно в среде операционной системы, необходимо сохранить проект в исполнимом файле (типа exe). Для компиляции проекта в исполнимый файл используется команда[Project-Compile]

==Задание==
{| 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 является тройкой Пифагора, т.е. с2 = 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
#Иванова Г., Ничушкина Т., Пугачев Е. Объектно-ориентированное программирование.– М.: Издательство МГТУ им. Баумана, 2001
#Культин Н. Основы программирования в Delphi 7. СПб: БХВ-Петербург, 2005.

==Ссылки==

* [http://www.ctc.msiu.ru/materials/Book/node82.html Основные концепции ООП]
* [http://www.weblibrary.biz/c-sharp/princypy Принципы ООП]
*[http://ru.wikipedia.org/wiki/Объектно-ориентированное_программирование Статья из Википедии «Объектно-ориентированное программирование»]

*[http://ru.wikibooks.org/wiki/Объектно-ориентированное_программирование Викиучебник «Объектно-ориентированное_программирование»]

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

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

2008-02-26T09:24:32Z

Сутков Александр:

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

<center>'''Введение в объектно-ориентированное программирование'''</center>

==Понятие ООП==

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

Объектно-ориентированное программирование (ООП) — это методика разработки программ, в основе которой лежит понятие объект. Объект — это некоторая структура, соответствующая объекту реального мира, его поведению. Задача, решаемая с использованием методики ООП, описывается в терминах объектов и операций над ними, а программа при таком подходе представляет собой набор объектов и связей между ними.

Объект похож на тип запись, но включает в себя не только поля данных, но и подпрограммы (т.е. процедуры и функции) для обработки этих данных. Такие подпрограммы называются методами.

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

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

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

Пример:

Объект: окружность

Свойства: координаты, цвет

Методы: изменить, переместить

Объектно-ориентированное программирование по своей сути – это создание приложений из объектов, подобно тому, как из блоков и различных деталей строят дома.

Среди методов объектов важнейшими являются методы – обработчики событий. Событие: щелчок кнопкой мыши на объекте, нажатие определённой клавиши.

Наследование – это возможность использовать созданный объект для построения иерархии порожденных объектов. Причем, каждый "потомок" автоматически наследует от "родителя" все поля и методы, и также может дополнять их новыми и заменять (перекрывать) методы "родителя". Это свойство служит для сокращения избыточности кода. Если объект является "потомком" какого-то объекта, то имя "родителя" указывается при описании типа в круглых скобках после object. Принцип наследования решает проблему модификации свойств объекта и придаёт ООП в целом исключительную гибкость.

Наследование – определение нового объекта с использованием свойств ранее объявленных объектов, дополняя или изменяя их.

Полиморфизм – это возможность использовать одноименный метод для различных объектовых типов.

В рамках ООП поведенческие свойства объекта определяются набором входящих в него методов. Изменяя алгоритм того или иного метода в потомках объекта, программист может придавать этим потомкам отсутствующие у "родителя" специфические свойства. Для изменения метода необходимо перекрыть его в потомке, т.е. объявить в потомке одноименный метод и реализовать в нем нужные действия. В результате в объекте-родителе и объекте-потомке будут действовать два одноименных метода, имеющих разную алгоритмическую основу и, следовательно, придающие объектам разные свойства. Это и называется полиморфизмом объектов.
==Классы и объекты==

Классический язык Pascal позволяет программисту определять свои собственные сложные типы данных — записи (records). Язык Delphi, поддерживая концепцию объектно-ориентированного программирования, дает возможность определять классы. Класс — это сложная структура, включающая, помимо описания данных, описание процедур и функций, которые могут быть выполнены над представителем класса — объектом.

Вот пример объявления простого класса:

TPerson = class

Private

fname: string[15]; faddress: string[35];

public

procedure Show;

end;

Данные класса называются полями, процедуры и функции — методами.

В приведенном примере TPerson — это имя класса, fname и faddress - имена полей, show — имя метода.

Примечание

Согласно принятому в Delphi соглашению, имена полей должны начинаться с буквы f (от слова field — поле).

Описание класса помещают в программе в раздел описания типов (type).

Объекты как представители класса объявляются в программе в разделе var, например:

Var

student: TPerson; professor: TPerson;

Помимо объявления элементов класса (полей, методов, свойств) описание класса, как правило, содержит директивы protected (защищенный) и private (закрытый), которые устанавливают степень видимости элементов класса в программе.

Элементы класса, объявленные в секции protected, доступны только в порожденных от него классах. Область видимости элементов класса этой секции не ограничивается модулем, в котором находится описание класса. Обычно в секцию protected помещают описание методов класса.

Элементы класса, объявленные в секции private, видимы только внутри модуля. Эти элементы не доступны за пределами модуля, даже в производных классах. Обычно в секцию private помещают описание полей класса, а методы, обеспечивающие доступ к этим полям, помещают в секцию protected.

Более подробно познакомиться с понятием ООП вы можете по указанным в модуле источникам.

==Задание==

Постройте [[Сервисы построения карт знаний |карту знаний]] «Основные понятия ООП». Для построения карт знаний используйте социальный сервис Bubbl.us или программу FreeMind
==Литература==

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

==Ссылки==

* [http://www.ctc.msiu.ru/materials/Book/node82.html Основные концепции ООП]
* [http://www.weblibrary.biz/c-sharp/princypy Принципы ООП]
*[http://ru.wikipedia.org/wiki/Объектно-ориентированное_программирование Статья из Википедии «Объектно-ориентированное программирование»]

*[http://ru.wikibooks.org/wiki/Объектно-ориентированное_программирование Викиучебник «Объектно-ориентированное_программирование»]

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

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

2008-02-26T09:22:43Z

Сутков Александр:

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

2008-02-26T09:20:58Z

Сутков Александр:

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

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

== Типы данных 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

Таблица 7

Таблица 8

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

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

==Ссылки==

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

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

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

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

2008-02-26T09:19:02Z

Сутков Александр:

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

2008-02-19T10:06:43Z

Сутков Александр:

'''ФИО''' Сутков Александ Сергеевич

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

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

'''Мои увлечения:''' Компьютеры

'''Любимые Фильмы:''' Побег из Шоушенга, Зеленая миля, Карты деньги два ствола, Брат, Нулевой километр, Сестры, Большой куш, Даже не думай, Игла.

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

Участник:Осипов Артём

2008-02-19T10:01:51Z

Сутков Александр:

'''ФИО''' Осипов Артём Павлович

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

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

'''Мои увлечения:''' футбол, рыбалка, собирание бабочек

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

Участники курса Программирование на Delphi

2008-02-19T09:52:40Z

Сутков Александр:

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

'''[[Группа ИВТ 06-1]]'''

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

[[Категория:Участники курса]]

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

2008-02-19T09:28:36Z

Сутков Александр:

'''ИВТ-06-1'''

[[Бирюков Евгений]] 
[[Дмитриев Максим]] 
Ершов Алексей 
[[Кочетков Илья]] 
[[Лебедев Вячеслав]] 
[[Участник:Макаров Владимир|Макаров Владимир]] 
Макаров Олег 
[[Участник:Алексей Моров|Алексей Моров]] 
[[Оносова Анна]] 
Осинина Марина 
[[Участник:Осипов Артём|Осипов Артем]] 
[[Панченко Владимир]] 
[[Участник:Смирнова Надежда|Смирнова Надежда]] 
[[Смирнова Татьяна]] 
[[Участник:Сутков Александр|Сутков Александр]] 
[[Фадин Иван]] 
Шестаков Алексей 
[[Участник: Юров Алексей|Юров Алексей]] 

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

Участник:Осипов Артём

2008-02-19T09:19:54Z

Сутков Александр:

'''ФИО''' Осипов Артём Павлович

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

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

'''Мои увлечения:''' футбол,рыбалка, собирание бабочек

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

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

2008-02-19T09:18:51Z

Сутков Александр: