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

Цель работы:

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

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

  

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

Элемент интерфейса	Компонент		Свойство		Значение свойства
Заголовок окна	Form1		Caption		Преобразование элементов массива.
Заголовок ввода  значения n	Label1		Caption		n=
Поле ввода  значения n	Edit1		Text
Заголовок ввода значения a	Label4		Caption		a=
Поле ввода  a	Edit2		Text
Заголовок ввода  b	Label5		Caption		b=
Поле ввода  b	Edit3		Text
Заголовок исх. массива		Label2		Caption	Исходный массив
Заголовок результата		Label3		Caption	Результат
Вычислить		Button1		Caption	Вывод массива

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

Компонент	Событие	Имя процедуры обработки события	Реализуемый алгоритм
Button1	OnClick	Tform1.Button1Click	Вычисление  функции

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

Имя переменной в задаче	Имя переменной в программе	Тип переменной	Комментарий
a, b, x	a, b, x	Real	Исходное
n	n	Integer	Исходное
y	y	Real	Результат

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.