Question

Помогите!!! С использованием функции заполнить массив, каждый элемент которого будет членом последовательности (n-1) / (n + 1) ^ 2 где n-натуральное число, число элементов в массиве равно в водной n Для ввода использовать TEdit Вывод массива из TMemo

Answer 1

Ответ:

n = input()

A = [0]*n

for i in range(0, len(A)):

   A[((n-1)/(n+1)**2)] = input()

print(A)

если я правильно понял

Answer 2

Для создания программы на Delphi, которая заполняет массив и выводит его в TMemo с использованием TEdit, вам потребуется следующий код:

1. Создайте новый проект Delphi.
2. Разместите на форме TEdit (назовем его Edit1), TMemo (назовем его Memo1) и кнопку (назовем ее, например, btnGenerate).
3. Добавьте обработчик события нажатия на кнопку btnGenerate.

Код для заполнения массива и вывода его в TMemo может выглядеть следующим образом:

delphiCopy code
unit MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    btnGenerate: TButton;
    procedure btnGenerateClick(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnGenerateClick(Sender: TObject);
var
  n, i: Integer;
  arr: array of Double;
begin
  // Получите значение n из Edit1
  n := StrToInt(Edit1.Text);

  // Установите длину массива
  SetLength(arr, n);

  // Заполните массив значениями
  for i := 0 to n - 1 do
    arr[i] := (i + 1 - 1) / Power(i + 1 + 1, 2);

  // Очистите Memo1
  Memo1.Clear;

  // Выведите массив в Memo1
  for i := 0 to n - 1 do
    Memo1.Lines.Add(Format('%d: %.6f', [i + 1, arr[i]]));
end;

end.

Этот код берет значение n из TEdit (Edit1), создает массив с заданной длиной и заполняет его значениями согласно вашей формуле. Затем он очищает TMemo (Memo1) и выводит элементы массива в TMemo.