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

Файл:Аверин Савицкий Кузьминых листам самооценки.pdf

2009-12-12T07:42:06Z

Антон Савицкий:

Файл:Аверин Савицкий Кузьминых Критерии оценивания Вики.pdf

2009-12-12T07:38:40Z

Антон Савицкий:

Участник:Антон Савицкий

2009-12-12T05:42:22Z

Антон Савицкий:

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

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

'''Мои увлечения''' PhotoShop

Работаю над проектом [[Учебный проект Выбираем обозреватель]]

[[Изображение:Антон_Савицкий.jpg]]

'''Мои друзья:'''

{|border =2

!Друзья

!Визитная карточка

|-

|Кузьминых Сергей

|[[Участник:Кузьминых Сергей|Кузьминых Сергей]]

|-

|Сенина Юлия

|[[Участник:Сенина Юлия|Сенина Юлия]]

|-

|Сухонина Евгения

|[[Участник:Сухонина Евгения|Сухонина Евгения]]

|-

|Ромодина Лидия

|[[Участник:Ромодина Лидия|Ромодина Лидия]]

|-

|Аверин Михаил

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

|-

|Румянцева Юлия

|[[Участник:Румянцва Юлия|Румянцева Юлия]]

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

Участник:Шитков Максим

2008-05-20T10:14:38Z

Шитков Максим:

'''ФИО: ''' Шитков Максим Сергеевич

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

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

'''Мои увлечения: ''' Авто

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

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

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

2008-02-26T12:00:53Z

Шитков Максим: /* Задание */

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

2008-02-26T11:48:54Z

Шитков Максим: /* Задание */

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

<center>'''Программирование на Delphi циклов с параметром'''</center>

==Оператор for ==

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

Различают циклы с параметрами и циклы с условием. Для программирования циклов с параметром в Delphi используют оператор for.

Формат оператора:

for v := а1 to а2 do оператор;

v – переменная цикла – переменная порядкового типа,

a1- выражение, задающее начальное значение переменной цикла,

a2 - выражение, задающее конечное значение переменной цикла.

Оператор – оператор, выполнение которого будет повторяться (оператор тела
цикла).

Если нужно сделать цикл по убыванию, то оператор for записывается в виде

for v: =a1 downto a2 do оператор;

Оператор работает так же, но шаг переменной цикла –1.
== Пример 1.==
*'''Условие:'''
Приписать к 523*** три такие цифры справа, чтобы полученное шестизначное число делилось на 7, на 8, на 9.

*'''Использованные компоненты:'''
BitBtn1,BitBtn2 - рабочие кнопки,

Label1 - вывод информации

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

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Label1: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var s,a,b,c,n: integer;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
for n:=0 to 999 do
begin
s:=523000+n;
a:=s mod 7;
b:=s mod 8;
c:=s mod 9;
if (a=0) and (b=0) and (c=0) then label1.Caption:='523..'+inttostr(n);
end;
end;
end.

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

==Задание==

<center>'''Таблица №11'''</center>
{| border=1
!Номер варианта||'''Условие'''
|-
|<center>1</center>|| Даны два вектора целых чисел А и В. Вычислить вектор С, который содержит нечетные элементы вектора А, которых нет в векторе В
|-

|<center>2</center>||Расположить элементы вектора в обратном порядке. Дополнительный массив не использовать.
|-
|<center>3</center>||Найти среднее арифметическое элементов массива X(n), исключив из них максимальное и минимальное значение.
|-
|<center>4</center>||Вектор B(n) заменить вектором, у которого элементы образуются делением вектора В на их сумму.
|-
|<center>5</center>||Заменить все элементы вектора X(m), стоящие до максимального, нулями.
|-
|<center>6</center>||В массиве R(k) найти минимальный элемент среди положительных и максимальный среди отрицательных.
|-
|<center>7</center>|| В массиве У(n) заменить все его элементы, стоящие после минимального, нулями.
|-
|<center>8</center>||Даны массив A(n) целого типа и целое число х. Произвести перестановку элементов массива так, чтобы в начале массива стояли элементы, значения которых меньше х, затем элементы, равные х, а следом элементы, значения которых больше х, в том порядке, в каком они стояли в массиве.
|-
|<center>9</center>||На плоскости на расстоянии s[1], s[2], ..., s[10] от центра кругового кольца с внутренним радиусом r и внешним R расположены точки. Определить количество точек, расположенных внутри кольца.
|-
|<center>10</center>||Дан вектор Х. Все его элементы не равные нулю, переписать (сохраняя их порядок) в начало массива, а нулевые элементы - в конец массива (новый массив не заводить).
|-
|<center>11</center>||Даны два вектора А и В. Сформировать вектор С, который содержит элементы, присутствующие в обоих массивах.
|-
|<center>12</center>||Имеется n окружностей с центром в начале координат и радиусами R[1], R[2], ..., R[n]. Определить номера окружностей между которыми находится точка с координатами (х, у).
|-
|<center>13</center>||В векторе X(n) поменять местами максимальный и последний элементы.
|-
|<center>14</center>||В векторе У(m) поменять местами максимальный и минимальный элементы.

|}

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

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

==Ссылки==

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

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

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

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

2008-02-26T11:29:43Z

Шитков Максим: /* Задание */

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

<center>'''Программирование на Delphi циклов с параметром'''</center>

==Оператор for ==

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

Различают циклы с параметрами и циклы с условием. Для программирования циклов с параметром в Delphi используют оператор for.

Формат оператора:

for v := а1 to а2 do оператор;

v – переменная цикла – переменная порядкового типа,

a1- выражение, задающее начальное значение переменной цикла,

a2 - выражение, задающее конечное значение переменной цикла.

Оператор – оператор, выполнение которого будет повторяться (оператор тела
цикла).

Если нужно сделать цикл по убыванию, то оператор for записывается в виде

for v: =a1 downto a2 do оператор;

Оператор работает так же, но шаг переменной цикла –1.
== Пример 1.==
*'''Условие:'''
Приписать к 523*** три такие цифры справа, чтобы полученное шестизначное число делилось на 7, на 8, на 9.

*'''Использованные компоненты:'''
BitBtn1,BitBtn2 - рабочие кнопки,

Label1 - вывод информации

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

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Label1: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var s,a,b,c,n: integer;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
for n:=0 to 999 do
begin
s:=523000+n;
a:=s mod 7;
b:=s mod 8;
c:=s mod 9;
if (a=0) and (b=0) and (c=0) then label1.Caption:='523..'+inttostr(n);
end;
end;
end.

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

==Задание==

Таблица 11
<math>Вставляйте сюда формулу</math>

Таблица 12
{| border=1
!Таблица №11
|-
!Номер варианта||Условие
|-
|<center>1</center>|| Даны два вектора целых чисел А и В. Вычислить вектор С, который содержит нечетные элементы вектора А, которых нет в векторе В
|-

|<center>2</center>||Расположить элементы вектора в обратном порядке. Дополнительный массив не использовать.
|-
|<center>3</center>||Найти среднее арифметическое элементов массива X(n), исключив из них максимальное и минимальное значение.
|-
|<center>4</center>||Вектор B(n) заменить вектором, у которого элементы образуются делением вектора В на их сумму.
|-
|<center>5</center>||Заменить все элементы вектора X(m), стоящие до максимального, нулями.
|-
|<center>6</center>||В массиве R(k) найти минимальный элемент среди положительных и максимальный среди отрицательных.
|-
|<center>7</center>|| В массиве У(n) заменить все его элементы, стоящие после минимального, нулями.
|-
|<center>8</center>||Даны массив A(n) целого типа и целое число х. Произвести перестановку элементов массива так, чтобы в начале массива стояли элементы, значения которых меньше х, затем элементы, равные х, а следом элементы, значения которых больше х, в том порядке, в каком они стояли в массиве.
|-
|<center>9</center>||На плоскости на расстоянии s[1], s[2], ..., s[10] от центра кругового кольца с внутренним радиусом r и внешним R расположены точки. Определить количество точек, расположенных внутри кольца.
|-
|<center>10</center>||Дан вектор Х. Все его элементы не равные нулю, переписать (сохраняя их порядок) в начало массива, а нулевые элементы - в конец массива (новый массив не заводить).
|-
|<center>11</center>||Даны два вектора А и В. Сформировать вектор С, который содержит элементы, присутствующие в обоих массивах.
|-
|<center>12</center>||Имеется n окружностей с центром в начале координат и радиусами R[1], R[2], ..., R[n]. Определить номера окружностей между которыми находится точка с координатами (х, у).
|-
|<center>13</center>||В векторе X(n) поменять местами максимальный и последний элементы.
|-
|<center>14</center>||В векторе У(m) поменять местами максимальный и минимальный элементы.

|}

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

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

==Ссылки==

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

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

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

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

2008-02-26T11:12:58Z

Шитков Максим: /* Пример 1. */

Участник:Шитков Максим

2008-02-26T10:57:41Z

Шитков Максим:

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

2008-02-26T10:56:09Z

Шитков Максим:

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

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

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

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

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

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

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

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

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

[[Участник: Шитков Максим|Шитков Максим]]

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