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

Смирнова Надежда: /* Задание */

2008-04-19T06:00:39Z

‎Задание

Терешанцева Юлия: /* Задание */

2008-04-19T04:23:18Z

‎Задание

Терешанцева Юлия: /* Задание */

2008-04-19T04:22:40Z

‎Задание

Смирнова Надежда: /* Задание */

2008-04-11T06:36:43Z

‎Задание

Смирнова Надежда в 06:32, 11 апреля 2008

2008-04-11T06:32:55Z

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

2008-02-26T12:00:53Z

‎Задание

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

2008-02-26T11:48:54Z

‎Задание

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

2008-02-26T11:29:43Z

‎Задание

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

2008-02-26T11:12:58Z

‎Пример 1.

Смирнова Татьяна в 10:04, 26 февраля 2008

2008-02-26T10:04:03Z

@@ Строка 118: / Строка 118: @@
   |-
   |}
-Таблица 8
+Таблица 8 (Находится в разработке)
 ==Литература==

@@ Строка 118: / Строка 118: @@
   |-
   |}
-<center>'''Таблица 12'''</center>
+Таблица 8

@@ Строка 82: / Строка 82: @@
 ==Задание==
-<center>'''Таблица №11'''</center>
+Таблица 7
 {| border=1

@@ Строка 118: / Строка 118: @@
   |-
   |}
-<center>'''Таблица 8'''</center>
+<center>'''Таблица 12'''</center>
@@ Строка 130: / Строка 130: @@
 |-
 |<center>2</center>
-|[[Изображение:Формула2.JPG]]
+|[[Изображение:Ф2.JPG]]
 |-
 |<center>3</center>
-|[[Изображение:Формула3.JPG]]
+|[[Изображение:Ф3.JPG]]
 |-
 |<center>4</center>
-|[[Изображение:Формула4.JPG]]
+|[[Изображение:Ф4.JPG]]
 |-
 |<center>5</center>
-|[[Изображение:Формула5.JPG]]
+|[[Изображение:Ф5.JPG]]
 |-
 |<center>6</center>
-|[[Изображение:Формула6.JPG]]
+|[[Изображение:Ф6.JPG]]
 |-
 |<center>7</center>
-|[[Изображение:Формула7.JPG]]
+|[[Изображение:Ф7.JPG]]
 |-
 |<center>8</center>
-|[[Изображение:Формула8.JPG]]
+|[[Изображение:Ф8.JPG]]
 |-
 |<center>9</center>
-|[[Изображение:Формула9.JPG]]
+|[[Изображение:Ф9.JPG]]
 |-
 |<center>10</center>
-|[[Изображение:Формула10.JPG]]
+|[[Изображение:Ф10.JPG]]
 |-
- |}
+|<center>11</center>
+|[[Изображение:Ф11.JPG]]
 ==Литература==

@@ Строка 32: / Строка 32: @@
 *'''Использованные компоненты:'''
-BitBtn1,BitBtn2 - рабочие кнопки,
+BitBtn1 - для запуска программы; <br>
+BitBtn2 - для выхода из программы; <br>
-Label1 - вывод информации
+Label1 - вывод результата.<br>
 *'''Программный код:'''
@@ Строка 83: / Строка 82: @@
 ==Задание==
-Таблица №11
+<center>'''Таблица №11'''</center>
 ==Литература==

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

← Предыдущая		Версия 11:29, 26 февраля 2008
Строка 87:		Строка 87:

	Таблица 12		Таблица 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) поменять местами максимальный и минимальный элементы.
		+
		+	\|}

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

@@ Строка 28: / Строка 28: @@
 Оператор работает так же, но шаг переменной цикла –1.
 == Пример 1.==
-*Условие
+*'''Условие:'''
 Приписать к 523*** три такие цифры справа, чтобы полученное шестизначное число делилось на 7, на 8, на 9.
-*Использованные компоненты
+*'''Использованные компоненты:'''
 BitBtn1,BitBtn2 - рабочие кнопки,
 Label1 - вывод информации
-*Программный код
+*'''Программный код:'''
   var
    Form1: TForm1;
-implementation
+  implementation
-{$R *.dfm}
+  {$R *.dfm}
    var s,a,b,c,n: integer;
-procedure TForm1.BitBtn2Click(Sender: TObject);
+  procedure TForm1.BitBtn2Click(Sender: TObject);
-begin
+  begin
-close;
+  close;
-end;
+  end;
-procedure TForm1.BitBtn1Click(Sender: TObject);
+  procedure TForm1.BitBtn1Click(Sender: TObject);
-begin
+  begin
    for n:=0 to 999 do
-      begin
+     begin
-      s:=523000+n;
+     s:=523000+n;
-      a:=s mod 7;
+     a:=s mod 7;
-      b:=s mod 8;
+     b:=s mod 8;
-      c:=s mod 9;
+     c:=s mod 9;
-        if (a=0) and (b=0) and (c=0) then label1.Caption:='523..'+inttostr(n);
+     if (a=0) and (b=0) and (c=0) then label1.Caption:='523..'+inttostr(n);
-      end;
+   end;
-end;
+   end;
-end.
+   end.
-*Форма с результатом работы программы
+*'''Форма с результатом работы программы:'''
 [[Изображение:-3-1.JPG]]