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

Круподерова Елена Петровна: /* Задание */

2008-07-27T19:36:32Z

‎Задание

Смирнова Надежда: /* Пример 2. */

2008-04-19T06:03:53Z

‎Пример 2.

Смирнова Надежда: /* Пример 1. */

2008-04-19T06:03:34Z

‎Пример 1.

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

2008-04-19T04:27:42Z

‎Задание

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

2008-04-11T08:27:45Z

Смирнова Надежда: /* Литература */

2008-04-11T08:25:26Z

‎Литература

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

2008-04-11T07:55:34Z

‎Задание

Смирнова Надежда: /* Пример 2. */

2008-04-11T07:53:09Z

‎Пример 2.

Смирнова Надежда: /* Пример 1. */

2008-04-11T07:47:03Z

‎Пример 1.

Смирнова Надежда: /* Пример 1. */

2008-04-11T07:38:43Z

‎Пример 1.

← Предыдущая		Версия 19:36, 27 июля 2008
Строка 234:		Строка 234:
	\|-		\|-
	\|-}		\|-}
		+	==Ссылки==
		+
		+	[[Учебный курс Программирование на Delphi]]
		+
		+	[[Учебный план курса Программирование на Delphi]]
		+
		+
		+	[[Категория: Учебный курс Программирование на Delphi]]

@@ Строка 158: / Строка 158: @@
   end.
 *'''Форма с результатом работы программы'''
 ==Задание==

@@ Строка 90: / Строка 90: @@
   end.
 *'''Форма с результатом работы программы'''
 == Пример 2.==

@@ Строка 162: / Строка 162: @@
 ==Задание==
-<center>'''Таблица №15'''</center>
+Таблица 13
 {| border=1
@@ Строка 200: / Строка 200: @@
-<center>'''Таблица №16'''</center>
+Таблица 14
 {| border=1

@@ Строка 198: / Строка 198: @@
   |-
   |}
 <center>'''Таблица №16'''</center>
-{| border=2
+{| border=1
   |-
   !Номер варианта||Условие||
@@ Строка 235: / Строка 236: @@
 |-
   |-}

@@ Строка 236: / Строка 236: @@
   |-}
-== Литература ==
+==Литература ==
 == Ссылки ==

@@ Строка 93: / Строка 93: @@
 == Пример 2.==
-Создать массив из n случайных целых чисел, равномерно распределенных в диапазоне от 0 до 100. Вычислить среднее арифметическое и количество четных чисел.
+*'''Условие задачи'''
-Label – метка, используется как надпись или как область вывода информации для чтения. Как и для кнопки, для метки можно определить клавишу быстрого доступа, но она будет запускать связанный с меткой компонент (по FocusControl). Свойство AutoSize=True определит минимизацию размера метки под текст надписи, Aligment – центровку этого текста, WordWrap – воз-можность расположения текста в несколько строк, Transparent – прозрачность при наложении на другие элементы.
+Edit – строка ввода.
-Edit – строка ввода. Заголовка (Caption) у этого компонента нет, но есть свой-ство Text как содержимое строки. Это свойство можно как считывать, так и присваивать (при необходимости с ограничением длины назначением свойства MaxLength). При вводе конфиденциальной информации указывают отображаемые символы (обычно "*"), при этом нужно переопределить свойство PasswordChar, задав его отличным от #0.
+Button – стандартная кнопка, обычно кнопка используется для запуска действия, при этом задействуют только метод OnEvent (реакция на нажатие).
 StringGrid - используется для ввода и вывода массива.
+*'''Код программы'''
+ unit Unit1;
-const nmax=1000;
+ interface
     type x=array[1..nmax] of integer;
     var m:x;
         k,i,n:integer;
         s:real;
-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
+   n:=strtoint(edit1.Text);
-n:=strtoint(edit1.Text);
+    randomize;
-randomize;
+     for i:=1 to n do
-  for i:=1 to n do
+     begin
        m[i]:=random(101);
        stringgrid1.Cells[i-1,0]:=inttostr(m[i]);
-    end;
+     end;
-s:=0;
+   s:=0;
-k:=0;
+   k:=0;
-  for i:=1 to n do
+   for i:=1 to n do
      if not odd(m[i]) then begin
                              s:=s+m[i];
@@ Строка 131: / Строка 154: @@
                            end;
    s:=s/k;
-label3.Caption:='Среднее арифметическое= '+floattostr(s)+#13+
+ label3.Caption:='Среднее арифметическое= '+floattostr(s)+#13+
                  'Количество четных чисел= '+inttostr(k);
-end;
+ end;
+ end.
-end.
+*'''Форма с результатом работы программы'''
 [[Изображение:leb2.JPG]]

@@ Строка 32: / Строка 32: @@
 StringGrid - используется для ввода и вывода массива.
 *'''Код программы'''
-var a:array[1..100] of real;
+ unit Unit1;
        n,i,nmin,nmax:integer;
        amax,amin:real;
-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
+   n:=strtoint(edit1.Text);
-n:=strtoint(edit1.Text);
+   for i:=1 to n do
-for i:=1 to n do
+   if n>30 then label3.Caption:='Большое число';
-if n>30 then label3.Caption:='Большое число';
+    randomize;
-  randomize;
+    for i:=1 to n do
        begin
         a[i]:=random(81)- 30;
         stringgrid1.cells[i-1,0]:=floattostr(a[i]);
        end;
-amin:=a[1]; nmin:=1;
+   amin:=a[1]; nmin:=1;
-amax:=a[1]; nmax:=1;
+   amax:=a[1]; nmax:=1;
-  for i:=1 to n do
+      for i:=1 to n do
-     begin
+       begin
          if a[i]<amin then begin
                              amin:=a[i]; nmin:=i
@@ Строка 61: / Строка 85: @@
                                amax:=a[i]; nmax:=i;
                              end;
+                           end;
-     end;
+ label3.Caption:='Минимальное= '+floattostr(amin)+#13+'Номер минимального= '+inttostr(nmin)+' '+#13+'Максимальное= '+floattostr(amax)+#13+'Номер максимального= '+inttostr(nmax);
-label3.Caption:='Минимальное= '+floattostr(amin)+#13+'Номер минимального= '+inttostr(nmin)+' '+#13+
+ end;
-                'Максимальное= '+floattostr(amax)+#13+'Номер максимального= '+inttostr(nmax);
+ end.
 *'''Форма с результатом работы программы'''
 [[Изображение:leb1.JPG]]

@@ Строка 21: / Строка 21: @@
 == Пример 1.==
-*'''Условие'''
+*'''Условие задачи'''
 В векторе найти номера и значения первого минимального и последнего максимального элементов.
-*'''Использующие компаненты'''
+*'''Использованные компаненты'''
 Label – метка, используется как надпись или как область вывода информации для чтения.
@@ Строка 68: / Строка 68: @@
 end.
+*'''Форма с результатом работы программы'''
 [[Изображение:leb1.JPG]]