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

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

2008-04-19T04:20:43Z

‎Задание

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

2008-04-11T08:21:26Z

‎Пример 1

Меньков Антон: /* Задание */

2008-02-26T11:59:41Z

‎Задание

Меньков Антон: /* Задание */

2008-02-26T11:54:01Z

‎Задание

Меньков Антон: /* Задание */

2008-02-26T11:47:30Z

‎Задание

Меньков Антон: /* Задание */

2008-02-26T11:06:40Z

‎Задание

Меньков Антон: /* Задание */

2008-02-26T10:49:15Z

‎Задание

Меньков Антон: /* Задание */

2008-02-26T10:38:02Z

‎Задание

Осипов Артём в 10:06, 26 февраля 2008

2008-02-26T10:06:29Z

Осипов Артём в 10:02, 26 февраля 2008

2008-02-26T10:02:45Z

@@ Строка 81: / Строка 81: @@
 ==Задание ==
-Таблица 9
+Таблица 5
 {| border=1
   !Номер варианта||Условие||Исходные данные||

@@ Строка 5: / Строка 5: @@
 ==Пример 1==
-*'''Условие'''
+*'''Условие задачи'''
 Найти максимальную из двух величин а и в
 *'''Использованные компоненты'''
-Edit1 – ввод
+Edit1 – для ввода первого числа
-Edit 2 – ввод
+Edit2 – для ввода второго числа
-Label3 - вывод результирующего сопротивления
+Label1 - для вывода описания
-BitBtn1, BitBtn2 - рабочие кнопки
+Label2 - для вывода описания
 *'''Программный код'''
    var a,b,m:real;
   procedure TForm1.BitBtn2Click(Sender: TObject);
-  begin
+ begin
-  Close;
+ Close;
-  end;
+ end;
   procedure TForm1.BitBtn1Click(Sender: TObject);
-  begin
+ begin
   a:=strtofloat(edit1.Text);
   b:=strtofloat(edit2.Text);
- if a>=b then m:=a else m:=b;
+  if a>=b then m:=a else m:=b;
-  label3.caption:='Первое число= '+floattostr(a)+#13+'Второе число= '
+ <br>
   +floattostr(b)+#13+'Максимальное= '+floattostr(m);
-  end;
+ end;
+ <br>
+  end.
 *'''Форма с результатом работы программы'''

@@ Строка 62: / Строка 62: @@
 |<center>8</center>||v=max(min(x-y,y-x),0)||<center>x,y</center>
    |-
-|<center>9</center>||Вычислить значение функции, заданной графически, по заданному значению аргумента х [[Изображение:Рис1.JPG|center]]||<center>x</center>
+|<center>9</center>||Вычислить значение функции, заданной графически, по заданному значению аргумента х  [[Изображение:рис1.JPG|center]]||<center>x</center>
    |-
 |<center>10</center>||Вычислить значение функции, заданной графически, по заданному значению аргумента х [[Изображение:рис2.JPG|center]]||

@@ Строка 64: / Строка 64: @@
 |<center>9</center>||Вычислить значение функции, заданной графически, по заданному значению аргумента х [[Изображение:Рис1.JPG|center]]||<center>x</center>
    |-
-|<center>10</center>||Вычислить значение функции, заданной графически, по заданному значению аргумента х||
+|<center>10</center>||Вычислить значение функции, заданной графически, по заданному значению аргумента х [[Изображение:рис2.JPG|center]]||
    |-
 |<center>11</center>||Решить линейное уравнение ax+b=0 для любых значений коэффициентов.||<center>a,b</center>
@@ Строка 73: / Строка 73: @@
    |-
 |<center>14</center>||Проверить, кратно ли заданное целое число и сумма его цифр 4||<center>n</center>
 |}

@@ Строка 62: / Строка 62: @@
 |<center>8</center>||v=max(min(x-y,y-x),0)||<center>x,y</center>
    |-
-|<center>9</center>||Вычислить значение функции, заданной графически, по заданному значению аргумента х ||<center>x</center>
+|<center>9</center>||Вычислить значение функции, заданной графически, по заданному значению аргумента х [[Изображение:Рис1.JPG|center]]||<center>x</center>
    |-
-|<center>10</center>||.||
+|<center>10</center>||Вычислить значение функции, заданной графически, по заданному значению аргумента х||
    |-
-!11||.||.
+|<center>11</center>||Решить линейное уравнение ax+b=0 для любых значений коэффициентов.||<center>a,b</center>
    |-

@@ Строка 58: / Строка 58: @@
 |<center>6</center>||Z=min(0,x) - min(0,y) \ max ^ 2(y,x)||<center>x,y</center>
    |-
-|<center>7</center>||||<center>x,y,z</center>
+|<center>7</center>||r=max(min(x,y),z)/3||<center>x,y,z</center>
    |-
 |<center>8</center>||v=max(min(x-y,y-x),0)||<center>x,y</center>

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

	Таблица 9		Таблица 9
		+	{\| border=1
		+	!Номер варианта\|\|Условие\|\|Исходные данные\|\|
		+	\|-
		+	\|<center>1</center>\|\|Три точки на плоскости заданы своими координатами.Выяснить какие из них находятся на максимальном расстоянии друг от друга\|\|<center>x1,y1,x2,y2,x3,y3</center>
		+	\|-

		+	\|<center>2</center>\|\|Вычислить: max^3(a,b,c)+min^2(a,b,c)\|\|<center>a,b,c</center>
		+	\|-
		+	\|<center>3</center>\|\|Заданы три величины а, b, c. Определить максимальное и минимальное значение из их среднего геометрического, среднего арифметического и суммы экспонент exp(a) + exp(b) + exp(c)\|\|<center>a,b,c</center>
		+	\|-
		+	\|<center>4</center>\|\|Определить в какой четверти координатной плоскости находится точка с координатами х,у\|\|<center>x,y</center>
		+	\|-
		+	\|<center>5</center>\|\|m=max(x,y,z) \ min ^ 2(a,b,c)\|\|<center>x,y,z</center>
		+	\|-
		+	\|<center>6</center>\|\|Z=min(0,x) - min(0,y) \ max ^ 2(y,x)\|\|<center>x,y</center>
		+	\|-
		+	\|<center>7</center>\|\|\|\|<center>x,y,z</center>
		+	\|-
		+	\|<center>8</center>\|\|v=max(min(x-y,y-x),0)\|\|<center>x,y</center>
		+	\|-
		+	\|<center>9</center>\|\|.\|\|<center>x</center>
		+	\|-
		+	\|<center>10</center>\|\|.\|\|
		+	\|-
		+	!11\|\|.\|\|.
		+	\|-
		+
		+
		+
		+	\|}

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

@@ Строка 49: / Строка 49: @@
 #Бобровский С. Delphi 7. Учебный курс. –  СПб:  Питер, 2003
 #Культин Н. Основы программирования в  Delphi 7. СПб: БХВ-Петербург, 2005.
 [[Категория: Учебный курс Программирование на Delphi]]