Подпрограммы

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <iostream.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int maxA,maxB,s,a[6],b[6],k;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
for (int i=1;i<=6;i++)
{
if (maxA<a[i])
{
maxA=a[i];
}
}
for (int i=1;i<=6;i++)
{
if (maxB<b[i])
{
maxB=b[i];
} }
if (maxA>maxB)
{
s=-1;
}
if (maxA<maxB)
{
s=1;
}
if (maxA==maxB)
{
s=0;
}
Edit1->Text=IntToStr(s);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  for (int i=1;i<=6;i++)
{
a[i]=random(20)+2;
StringGrid1->Cells[i-1][0]=IntToStr(a[i]);
b[i]=random(20);
StringGrid2->Cells[i-1][0]=IntToStr(b[i]);
}
}
//---------------------------------------------------------------------------