Ввод и вывод одномерных массивов, преобразование элементов одного массива в другой по заданной зависимости

Цель работы:

Научиться вводить и выводить одномерные массивы, а так же преобразовывать элементы одного массива в другой по заданной зависимости.

Индивидуальное задание: Преобразование элементов массива.

Таблица свойств компонентов

Таблица используемых событий

Таблица используемых переменных

Cхема алгоритма

Выводы по работе.

Научился вводить и выводить одномерные массивы, а так же преобразовывать элементы одного массива в другой по заданной зависимости.

Распечатка текста модуля

unit Unit1;

// Выполнил студент группы НР-11 Федотов Дмитрий

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids, jpeg, ExtCtrls, math;

type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

StringGrid1: TStringGrid;

StringGrid2: TStringGrid;

Label3: TLabel;

Button1: TButton;

Image1: TImage;

Label4: TLabel;

Edit2: TEdit;

Label5: TLabel;

Edit3: TEdit;

procedure Button1Click(Sender: TObject);

  private

{ Private declarations }

  public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

n,i:integer;

a,b:real;

d,e:array[1..20]of real;

begin

n:=StrToInt(Edit1.Text);

a:=StrToFloat(Edit2.Text);

b:=StrToFloat(Edit3.Text);

for i:=1 to n do

d[i]:=StrToInt(StringGrid1.Cells[0,i-1]);

for i:=1 to n do

e[i]:= (a-(exp(bx)))/(ln(abs(2x)));

for i:=1 to n do

StringGrid2.Cells[0,i-1]:=FloatToStr(e[i]);

end;

end.