Задача № 2

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

Пример решения –

var

Form1: TForm1;

n,i,j:integer;

sum1,sum2:integer;

mas:array[0..100,0..100] of integer;

implementation

{$R *.dfm}

procedure TForm1.zapolnenieClick(Sender: TObject);

begin

Randomize;

n:=StrToInt(Edit1.Text);

StringGrid1.RowCount:=n;

StringGrid1.colCount:=n;

for i:=0 to n-1 do

for j:=0 to n-1 do

begin

mas[i,j]:=random(10);

StringGrid1.Cells[j,i]:=IntToStr(mas[i,j]);

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

sum1:=0;sum2:=0;

for i:=0 to n-1 do

begin

sum1:=sum1+mas[i,i];

sum2:=sum2+mas[i,n-1-i];

end;

Edit2.Text:=IntToStr(sum1);

Edit3.Text:=IntToStr(sum2);

end;

end.
Задача № 3

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

Пример решения –

var

Form1: TForm1;

m,i,j,a:integer;

mas:array of integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

m:=StrToInt(Edit1.Text);

Edit2.Text:='';

SetLength(mas,m);

randomize;

for i:=0 to m-1 do

begin

mas[i]:=random(100);

Edit2.Text:=Edit2.Text+IntToStr(mas[i])+' ';

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit3.Text:='';

for i:=0 to m-2 do

for j:=i to m-1 do

if mas[i]>mas[j] then

begin

a:=mas[i];

mas[i]:=mas[j];

mas[j]:=a;

end;

for i:=0 to m-1 do

Edit3.Text:=Edit3.Text+IntToStr(mas[i])+' ';

end;

end.

Задача № 4

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

Пример решения –

var

Form1: TForm1;

m,i,j,a:integer;

mas:array of integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

m:=StrToInt(Edit1.Text);

Edit2.Text:='';

SetLength(mas,m);

randomize;

for i:=0 to m-1 do

begin

mas[i]:=random(10);

Edit2.Text:=Edit2.Text+IntToStr(mas[i])+' ';

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit3.Text:='';

for i:=0 to m-2 do

for j:=i to m-1 do

if mas[i]<mas[j] then

begin

a:=mas[i];

mas[i]:=mas[j];

mas[j]:=a;

end;

for i:=0 to m-1 do

Edit3.Text:=Edit3.Text+IntToStr(mas[i])+' ';

end;

end.

Задача № 5

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

Пример решения –

var

Form1: TForm1;

n,i,k:integer;

mas:array of integer;

implementation

{$R *.dfm}

procedure TForm1.zapolnenieClick(Sender: TObject);

begin

n:=StrToInt(Edit1.Text);

SetLength(mas,n);

Edit2.Text:='';

for i:=0 to n-1 do

mas[i]:=0;

randomize;

for k:=1 to n do

begin

repeat

i:=random(n);

until mas[i]=0;

mas[i]:=k;

end;

for k:=0 to n-1 do

Edit2.Text:=Edit2.Text+IntToStr(mas[k])+' ';

end;

end.
Задача № 6