Создание программ!!!

[KnighTeX]

Ребята, помогите, пожалуйста, нубу, никак не справлюсь(( Заранее благодарен)
1. Средства отладки программ в DELPHI.Создание программ для циклических процессов.
ц.png

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class (TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel.
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    procedure FormCreate (Sender: TObject);
    procedure Button1Click (Sender: TObject);
  private
    (Private declarations)
  public
    (Public declarations)
  end;
var
  Form1: TForm1;
implementation
($ R *. dfm)
procedure TForm1.FormCreate (Sender: TObject);
begin
  Edit1.Text: = '0 ';
  Edit2.Text: = '2 ';
  Edit3.Text: = '5 ';
  Edit4.Text: = '0, 25 ';
  Memo1.Clear;
  Memo1.Lines.Add ('Результаты. Студ. Гр.2ЭК Иванов А.А.');
   end;
 
procedure TForm1.Button1Click (Sender: TObject);
 Var
  x1, x2, x, h, a, s: extended;
  N, k, c: integer;
begin
  x1: = StrToFloat (Edit1.Text.
  Memo1.Lines.Add ('x1 =' Edit1.Text.
  x2: = StrToFloat (Edit2.Text.
  Memo1.Lines.Add ('x2 =' Edit2.Text.
  N: = StrToInt (Edit3.Text.
  Memo1.Lines.Add ('N =' Edit1.Text.
  h: = StrToFloat (Edit4.Text.
  Memo1.Lines.Add ('h =' Edit4.Text.
  C: = -1;
  X: = x1;
  Repeat
    A: = 1;
    S: = 1;
    for k: = 1 to N do
    begin
      a: = c * a * x / k;
      s: = s a;
    end;
  Memo1.Lines.Add ('nри x =' FloatToStr (x, ffFixed, 6, 2)
                 'Сумма =' FloatToStr (s, ffFixed, 6, 2));
  x: = x h;
  until x> x2;
end;
end.

После отладки программы составьте тест (N = 2, X1 = 0, X2 = 1, h = 3), установите курсор на первый оператор (N: =), нажмите клавишу F4. После этого нажимая клавишу F7, выполните пошаговое налаживания программы и проследите, как меняются все переменные в процессе выполнения.
у.png
2. Стандартные компоненты и обработчики событий. Создание программ для процессов, разветвляются.
к.png

unit unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
type
  TForm1 = class (TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel.
    Memo1: TMemo;
    Button1: TButton;
    CheckBox1: TCheckBox;
    RadioGroup1: TRadioGroup;
    Label5: TLabel;
    procedure Button1Click (Sender: TObject);
    procedure FormCreate (Sender: TObject);
  private
    (Private declarations)
  public
    (Public declarations)
  end;
 
var
  Form1: TForm1;
implementation
 
($ R *. dfm)
 
procedure TForm1.FormCreate (Sender: TObject);
begin
  Edit1.Text: = '0, 1 '; / / Начальное значение Х
  Edit2.Text: = '0, 356 '; / / Начальное значение Y
  Edit3.Text: = '0 '; / / Начальное значение Z
  Memo1.Clear; / / Очистка окна редактора Memo1
/ / Вывод строки в многострочный редактор Memol
Memo1.Lines.Add ('Ла6.раб.N3. Ст.гр. 2ЭК Иванов А.А.');
end;
 
procedure TForm1.Button1Click (Sender: TObject);
  var x, y, z, a, u, ma: Extended;
begin
  x: = StrToFloat (Edit1.Text.
/ / Считывается значение X
  Memo1.Lines.Add ('Х =' Edit1.Text.
/ / Вывод Х в окно Memol
  Y: = StrToFloat (Edit2.Text.
/ / Считывается значение Y
  Memo1.Lines.Add ('Y =' Edit2.Text.
/ / Вывод Y в окно Memol
  Z: = StrToFloat (Edit3.Text.
/ / Считывается значение Z
  Memo1.Lines.Add ('Z =' Edit3.Text.
  / / Проверка номера нажатой кнопки и выбор соответствующей ей функции
  case RadioGroup1.ItemIndex of
    0: u: = cos (x);
    1: u: = sin (x);
    2: u: = sin (x) / cos (x);
  end;
  / / Вывод U в окно Memol
 Memo1.Lines.Add ('U =' FloatToStr (U, fffixed, 8,2));
/ / Проверка состояния кнопки CheckBox1
  if CheckBox1.Checked then
  begin
    u: = abs (u);
    y: = abs (y);
    z: = abs (z)
  end;
 
/ / Нахождение максимального из трех чисел
  if u> y then ma: = u else ma: = y;
  if z> ma then ma: = z.
  if Checkbox1.checked then
  Memo1.Lines.Add ('maxabs =' FloatToStrF (ma, fffixed, 8,2))
  else
Memo1.Lines.Add ('max =' FloatToStrF (ma, fffixed, 8,2));
end;
end.

е.png

From artemavd: Слушай сюда, умник-лентяй! Или ты выкладываешь сюда полностью свой проект ли наработки. Или я закрываю, а еще лучше, удаляю твою тему. У форумчан нет никакого желания делать что-то за просто так за тебя и разбираться в твоей каше!

[fezilk24]

о_О

.......

[Irnil]

ты правда думаешь, что кому-то не лень копаться в твоем коде?...)

[Пепел Феникса]

что именно не получается?
оформите код как положено.

[_-Re@l-_]

ты правда думаешь, что кому-то не лень копаться в твоем коде?...)

Собственно, для этого форум и существует чтобы помогать другим, исправлять, подправлять код.

[Пепел Феникса]

имелся в виду не оформленный код.

[_-Re@l-_]

Тогда другое дело