Курсовая работа: Программирование на Delphi с алгоритмами и кодами

Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

var i,j,n,p,q:integer;

mas1,mas,mas2:array[1..100,1..100] of integer;

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

begin

n:=strtoint(edit1.Text);

p:=strtoint(edit2.text);

q:=strtoint(edit3.Text);

edit4.Text:='';

edit5.text:='';

randomize;

for i:=1 to n+1 do

begin

a[i]:=random(98)+1; // формируем значения первого числового ряда

edit4.Text:=edit4.Text+inttostr(a[i])+' '; // выводим значения первого числового ряда

b[i]:=random(98)+1; // формируем значения второго числового ряда

edit5.Text:=edit5.Text+inttostr(b[i])+' '; // выводим значения второго числового ряда

end;

// задаем количество сток и столбцов таблиц

stringgrid1.ColCount:=n+2;

stringgrid1.RowCount:=n+1;

stringgrid2.ColCount:=n+3;

stringgrid2.RowCount:=n+2;

// нумеруем строки и столбцы таблиц

fori:=1 tondo

stringgrid1.Cells[0,i]:=inttostr(i);