Отчет по практике: Программа для подсчета выручки казино

var

h, l, p, f, x, a: integer;

begin

p:= 1;

Randomize;

for f:= 1 to 37

do begin

for x:= 1 to 5 do begin

a:= (Random((49)+1)*100+Random(200)*50);

StringGrid1. Cells [f, x]:= IntToStr(a);

end;

end;

for l:= 1 to 37 do begin

for h:= 1 to 5 do begin

StringGrid2. Cells [l, h]:= IntToStr(p);

inc(p);

if p > z‑1 then p:= 1;

end;

end;

end;

procedure TForm1. CheckBox1Click (Sender: TObject);

begin

*данная процедура используется для показа (скрытия) листа дилеров и их результатов

if CheckBox1. Checked

then StringGrid3. Visible:= true

else StringGrid3. Visible:= false

end;

Procedure TForm1. ComboBox3Click (Sender: TObject);