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

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

2008-05-20T08:01:38Z

‎Задание

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

2008-04-19T06:07:06Z

‎Задание

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

2008-04-19T04:29:48Z

‎Задание

Алексей Моров: /* Пример 2 */

2008-03-01T07:41:26Z

‎Пример 2

Алексей Моров: /* Пример 2 */

2008-03-01T07:03:21Z

‎Пример 2

Алексей Моров: /* Пример 1 */

2008-03-01T07:02:01Z

‎Пример 1

Алексей Моров в 06:06, 1 марта 2008

2008-03-01T06:06:59Z

Алексей Моров в 05:58, 1 марта 2008

2008-03-01T05:58:03Z

Алексей Моров в 05:34, 1 марта 2008

2008-03-01T05:34:33Z

Алексей Моров в 10:10, 26 февраля 2008

2008-02-26T10:10:40Z

@@ Строка 155: / Строка 155: @@
 ==Задание==
-Таблица 15
+<CENTER>'''Таблица №19'''</CENTER>
 {| border=1
   |-
@@ Строка 190: / Строка 190: @@
    |}
-Таблица 16(Находится в разработке)
+<CENTER>'''Таблица №20'''</CENTER>
 ==Литература==

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

@@ Строка 155: / Строка 155: @@
 ==Задание==
-<CENTER>'''Таблица №19'''</CENTER>
+Таблица 15
 {| border=1
   |-
@@ Строка 190: / Строка 190: @@
    |}
-<CENTER>'''Таблица №20'''</CENTER>
+Таблица 16
 {| border=1
   |-
@@ Строка 229: / Строка 229: @@
    |}
 ==Литература==

@@ Строка 78: / Строка 78: @@
 == Пример 2==
-*'''Условие.'''
+*'''Условие:'''
 Из матрицы А[3,4] получить вектор В, элементами которого являются наибольшие элементы столбцов матрицы.

@@ Строка 88: / Строка 88: @@
 StringGrid2 - для вывода результирующего вектора
-Label1 - для подписи матрицы
+Label1 - для вывода текстовых сообщений
-Label2 - для подписи вектора
+Label2 - для вывода текстовых сообщений
 BitBtn1 - для запуска программы

@@ Строка 17: / Строка 17: @@
 Оба описания равноценны.
 == Пример 1==
-*'''Условие.'''
+*'''Условие:'''
 Получить матрицу, элементами которой являются произведения номеров строк i и номеров столбцов j.

@@ Строка 219: / Строка 219: @@
 |-
 |<center>11</center>||Вычислить сумму элементов матрицы X(l,l), расположенных в закрашенной области.
 |-
 |<center>12</center>||Найти произведение элементов матрицы T(k,k),  расположенных в закрашенной области.
 |-
 |<center>13</center>||Сформировать Вектор Т из четных элементов  матрицы P(k,l). Найти в нем максимальный элемент.

@@ Строка 187: / Строка 187: @@
 |-
 |<center>14</center>||Сформировать диагональную матрицу C(m,m).  У диагональной матрицы все элементы равны нулю, кроме диагональных.
    |}
 ==Литература==

@@ Строка 30: / Строка 30: @@
 *'''Программный код:'''
-  program umnog;
+  unit Unit1;
-      type mat = array[1..9, 1..9] of integer;
+ interface
-      var i,j: integer; p: mat;
+ uses
   begin
-     for i:=1 to 9 do
+ close;
-        begin
+ end;
-           for j:=1 to 9 do
+ procedure TForm1.BitBtn1Click(Sender: TObject);
-              begin
+ begin
-                  p[i,j]:=i*j;
+ for i:=1 to 9 do
-                  write (p[i,j]: 3)
+  begin
-              end;
+    for j:=1 to 9 do
-              writeln;
+      begin
-          end
+        p[i,j]:=i*j;
   end.
@@ Строка 70: / Строка 96: @@
 BitBtn2 - для закрытия формы
 *'''Программный код:'''
-  type x = array[1..3, 1..4] of integer;
+  unit Unit1;
-          y = array[1..4] of integer;
+ interface
-  var  i, j: integer; a: x; b: y;
+ uses
   begin
-     writeln ('Введите матрицу А');
+ randomize;
-     for i:=1 to 3 do begin
+  for i:=1 to 3 do  begin
-       for j:=1 to 4 do begin
+  for j:=1 to 4 do
-           read(a[i,j]);
+     begin
-           write (' ')
+      a[i,j]:=random(41)-10;
-       end;
+      stringgrid1.Cells[j-1,i-1]:=inttostr(a[i,j]);
-       writeln
+      end;
-      end;
+            end;
-     writeln ('Массив В');
+    for j:=1 to 4 do
-     for j: = 1 to 4 do
+      begin
-         begin
+        b[j]:=a[1,j];
-             b[j]: = a[1,j];
+        for i:=2 to 3 do
-             for i: = 2 to 3 do
+          if b[j]<a[i,j] then b[j]:=a[i,j];
-                if b[j] < a[i, j]
+        stringgrid2.Cells[j-1,0]:=inttostr(b[j]);
-                 then b[j]: = a[i, j];
+      end;
-             write(b[j]:4)
+ end;
   end.

@@ Строка 99: / Строка 99: @@
 ==Задание==
-Таблица 19
+<CENTER>'''Таблица №19'''</CENTER>
 Таблица 20