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

StringGrid1. Cells [0,5]:= 'OP3';

for o:= 8 to 20 do begin

for x:= 0 to 2 do begin

Inc(i);

StringGrid1. Cells [i, 0]:= IntToStr (o) + ':' + IntToStr (x*2) + '0';

StringGrid2. Cells [i, 0]:= IntToStr (o) + ':' + IntToStr (x*2) + '0';

end;

end;

end;

procedure TForm1. Button3Click (Sender: TObject);

var

dl: integer;

st, y: string;

fl: TextFile;

sav: TextFile;

q, w, c, s, f, d, r, t, l, p: integer;

begin

w:= 0;

for c:= 1 to 36

do begin

for s:= 1 to 5

dobegin

*в переменную « d » берём № дилера

d:= StrToInt (StringGrid2. Cells [c, s]);

*в переменную « f » берём сколько денег было до него

f:= StrToInt (StringGrid1. Cells [c, s]);

*в переменную « t » берём сколько денег осталось после него

t:= StrToInt (StringGrid1. Cells [c+1, s]);

*в находим разницу, и получаем сумму работы дилера