1.Конструирование формы:
При выполнении задания на форме были размещены следующие компоненты:
- TLabel – используется для создания комментариев. Для этого использовалось свойство компонента Caption, которое имеет строковый тип.
- TButton – кнопка, при нажатии которой производятся вычисления. Код вычислений прописан в методе onclick, который срабатывает при нажатии кнопки во время исполнения программы. Комментарий на кнопке прописывается в свойстве кнопки Caption.
- TListBox – используется для вывода результатов программы.
2.Условие:
Дан массив xi={3,5;7,2;4,5;2,1;7,6;9,3}. Вычислить , найти max yi и его номер k.
3.Форма:
4.Программа:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
const
x: array [1 .. 6] of real = (3.5, 7.2, 4.5, 2.1, 7.6, 9.3);
var
y: array [1 .. 6] of real;
max: real;
i, k: integer;
begin
max := -1E5;
k := 0;
For i := 1 to 6 do
begin
y[i] := x[i] * cos(x[i]) + x[i] * x[i] / 4;
ListBox1.Items.Add('y=' + FormatFloat('###.##', y[i]));
if y[i] > max then
begin
max := y[i];
k := i;
end;
end;
ListBox1.Items.Add('max=' + FormatFloat('###.##', max));
ListBox1.Items.Add('k=' + IntToStr(k));
end;
end.
5.Результат: