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

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

2008-04-19T06:01:56Z

‎Задание

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

2008-04-19T04:25:18Z

‎Задание

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

2008-04-11T08:30:44Z

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

2008-04-11T07:12:34Z

‎Пример 3.

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

2008-04-11T07:00:07Z

‎Пример 2.

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

2008-04-11T06:48:30Z

‎Пример 1.

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

2008-04-11T06:41:54Z

‎Пример 1.

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

2008-04-11T06:40:38Z

‎Задание

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

2008-04-11T06:40:02Z

‎Задание

Бирюков Евгений в 10:09, 26 февраля 2008

2008-02-26T10:09:53Z

@@ Строка 198: / Строка 198: @@
 ==Задание==
-Таблица 9
+Таблица 9(Находится в разработке)
-{| border=2
+Таблица 10(Находится в разработке)
 ==Литература==

@@ Строка 198: / Строка 198: @@
 ==Задание==
-<center>'''Таблица 9'''</center>
+Таблица 9
 {| border=2
@@ Строка 258: / Строка 258: @@
 Вычисления продолжать пока [[Изображение:Задание14-1.JPG]]не станет меньше заданной точности Е.
 |}
-<center>'''Таблица 14'''</center>
+Таблица 10

← Предыдущая		Версия 08:30, 11 апреля 2008
Строка 1:		Строка 1:
	<Center>'''Программирование на Delphi циклов с условием'''</Center>		<Center>'''Программирование на Delphi циклов с условием'''</Center>
		+
		+	== Операторы REPEAT и WHILE ==
	Для программирования циклов с условием в Delphi существуют оператор цикла с предусловием WHILE и оператор цикла с постусловием REPEAT.		Для программирования циклов с условием в Delphi существуют оператор цикла с предусловием WHILE и оператор цикла с постусловием REPEAT.

@@ Строка 138: / Строка 138: @@
 == Пример 3.==
-*Условие
+*'''Условие'''
+Вычислить кубический корень из числа m методом Ньютона по формуле: '''...(вставить формулу)...''' Вычисления продолжать пока '''...(вставить формулу)...'''  не станет меньше заданной точности Е.
-*Использованные компоненты
+*'''Использованные компоненты'''
+Label1 - для текстовых комментарий; <br>
-*Программный код
+Label2 - для текстовых комментарий;<br>
+Label3 - для вывода результата;<br>
-var x1,x2,d,e,m:real;
+Edit1 - для ввода числа;<br>
-procedure TForm1.BitBtn2Click(Sender: TObject);
+Edit2 - для ввода числа;<br>
-begin
+BitBtn1 - для запуска программы;<br>
-close;
+BitBtn2 -для выхода из программы.<br>
-end;
+*'''Программный код'''
+ unit Unit1;
-procedure TForm1.BitBtn1Click(Sender: TObject);
+ interface
-begin
+ uses
-m:=strtofloat(edit1.Text);
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-e:=strtofloat(edit2.Text);
+  Dialogs, StdCtrls, Buttons;
-x1:=m;
+ type
-  repeat
+  TForm1 = class(TForm)
-    x2:=2/3*x1+m/3/sqr(x1);
+    Label1: TLabel;
-    d:=abs(x1-x2);
+    Label2: TLabel;
-    x1:=x2;
+    Edit1: TEdit;
-  until d<=e;
+    Edit2: TEdit;
-label3.Caption:='Корень= '+floattostr(x2);
+    Label3: TLabel;
-end;
+    BitBtn1: TBitBtn;
+    BitBtn2: TBitBtn;
-end.
+    procedure BitBtn2Click(Sender: TObject);
+    procedure BitBtn1Click(Sender: TObject);
-*Форма с результатом работы программы
+  private
+    { Private declarations }
 ==Задание==

@@ Строка 83: / Строка 83: @@
 == Пример 2.==
-*Условие
+*'''Условие'''
+Вычислить сумму членов ряда   (...вставить формулу...)   с точностью до члена ряда, меньшего Е.
-*Использованные компоненты
+*'''Использованные компоненты'''
+Label1 - для тектовых коментарий; <br>
-*Программный код
+Label2 - для вывода результата;<br>
+Edit1 - для ввода числа;<br>
-var n:integer;
+BitBtn1 - для запуска программы;<br>
        s,z,e: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
+  e:=strtofloat(edit1.Text);
-e:=strtofloat(edit1.Text);
+  n:=1; z:=1/6; s:=0;
      while abs(z)>=e do
        begin
@@ Строка 106: / Строка 131: @@
          z:=n/((n+1)*(n+2));
        end;
-label2.Caption:='Сумма= '+floattostr(s);
+  label2.Caption:='Сумма= '+floattostr(s);
-end;
+ end;
 == Пример 3.==

@@ Строка 18: / Строка 18: @@
 *Использованные компоненты
 *Программный код
-var a,b,x,y,z:integer;
+unit Unit1;
 procedure TForm1.BitBtn2Click(Sender: TObject);
 begin
 close;
 end;
- procedure TForm1.BitBtn1Click(Sender: TObject);
+procedure TForm1.BitBtn1Click(Sender: TObject);
 a:=strtoint(edit1.Text);
 b:=strtoint(edit2.Text);
-  x:=a; y:=b;
-    while (x<>y) do
+x:=a; y:=b;
-      if x>y then x:=x-y
-              else y:=y-x;
+while (x<>y) do
-      z:=x;
 label3.Caption:='НОД= '+inttostr(z);
 end;
 end.
 *Форма с результатом работы программы
 [[Изображение:-4-1.JPG]]
 == Пример 2.==
 *Условие