Вывод массива в ListBox

Формирования массива результатов с обменом элементов

Поиск минимального элемента и его номера

Вычисления количества отрицательных элементов с выводом результатов

Вычисления суммы и вывод результатов в Edit

Вывод массива в Memo

Вычисления элементов вектора

Begin

close;

end;

// процедура отклика на кнопку “Пуск”

procedure TForm1.Button1Click(Sender: TObject);

var si, sv, sr, ssum, smin: string;

sum, min, pr: real;

kol,nom: integer;

begin

for i:=1 to n do

v[i]:=cos(4*i)+exp(-2*i);

for i:=1 to n do

begin

str(v[i]:7:3,sv);

str(i:3,si);

Мemo1.Lines.Add(si+sv);

end;

s:=0;

for i:=1 to n do

s:=s+v[i];

str(sum:7:3,sv);

Edit1.Text:=sv;

k:=0;

for i:=1 to n do

if v[i]<0 then k:=k+1;

Edit2.Text:= IntToStr(kol);

min:=v[1];

nom_min:=1;

for i:=2 to n do

if v[i]<min then

begin

min:=v[i];

nom_min:=i;

end;

// вывод результатов в Edi t

str(min:7:3,smin);

Edit3.Text:=IntToStr(nom)+'-и элемент '+smin;

r:=v;

pr:=r[1];

r[1]:=r[nom];

r[nom]:=pr;

for i:=1 to n do

begin

str(r[i]:7:3,sr);

str(i:3,si);

ListBox1.Items.Add(si+sr);

end;

end;

end.

4. Пример программы сортировки одномерных массивов

Пример 2 Составить проект программы в Delphi для введения 15-ти (или меньше) целых чисел из компонента Мемо и вывести их по возрастанию в окно сообщений (ShowMessage).

Форма проекта с результатами работы программы имеет вид:

Текст программы:

unit Unit1;

interface

…………………………………………..

implementation

{$R *.DFM}

Type vect=array[1..15]of integer;

//нажатие кнопки “Новый массив”

procedure TForm1.Button2Click(Sender: TObject);

Дата добавления: 2014-12-10