Алгоритма на языке программирования.

Алгоритм решения задачи.

Скриншот с результатами работы программы.

Алгоритма на языке программирования.

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, Grids;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

StringGrid1: TStringGrid;

Button1: TButton;

Button2: TButton;

Label4: TLabel;

Memo1: TMemo;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button1Click(Sender: TObject);

Var a:array [1..100,1..100] of integer;

k,m,i,j,n,max:integer;

begin

k:=StrToInt(Edit1.Text); // количество строк

m:=StrToInt(Edit2.Text); // количество столбцов

n:=StrToInt(Edit3.Text); // номер столбца

StringGrid1.RowCount:=k;

StringGrid1.ColCount:=m;

randomize;

// заполнение массива случайными числами

for i:=1 to k do

for j:=1 to m do

begin

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

StringGrid1.Cells[j-1,i-1]:=IntToStr(a[i,j]);

end;

// поиск максимального элемента в столбце n

max:=a[1,n];

for i:=1 to k do

if a[i,n]>max then max:=a[i,n];

Label4.Caption:='Max='+IntToStr(max);

end;

end.

Таблица результатов

№	k	m	A[i,j]	n	Результат
			-1 -2 3 7 -1 -3
			8 3 -1 -2 5 3 4 5 3

Вывод

В данной лабораторной работе мы использовали цикл с параметром для ввода массива и работы с ним.

Дата добавления: 2015-07-11