Реферат Розрахунок вартості пластикових віконних конструкцій і дверей

StringGrid1.Cells [0, b]: = 'Глухий';

StringGrid1.Cells [1, b]: = floattostr (plos);

StringGrid1.Cells [2, b]: = floattostr (res);

b: = b +1;

start: = false; SpinEdit1.Value: = 0;

SpinEdit2.Value: = 0; end else goto 1;

end;

if n = 'Поворотний' then begin

Label4.Caption: = 'Поворотний';

pay: = strtoint (two);

if odn = '1 'then

pay: = pay-6;

{$ I-}

AssignFile (dop, dir + ' Технічні допуски Поворотний модуль.dat ');

{$ I +}

If IOResult = 0 then begin

Reset (dop);

while not EoF (dop) do begin

readln (dop, minv);

readln (dop, minh);

readln (dop, maxv);

readln (dop, maxh); end; CloseFile (dop); end;

SpinEdit1.MinValue: = strtoint (minh);

SpinEdit1.MaxValue: = strtoint (maxh);

SpinEdit2.MinValue: = strtoint (minv);

SpinEdit2.MaxValue: = strtoint (maxv);

SpinEdit1.Value: = strtoint (minh);

SpinEdit2.Value: = strtoint (minv);

ShowMessage ('Введіть розміри і натисніть "ОК" ');

2: application.ProcessMessages;

if start = true then begin l: = spinedit1.Value;

h: = spinedit2.Value;

plos: = (l * h) * 0.000001;

if plos <= 0.5 then

res: = (plos * pay) + ((plos * pay)/100) * 30

else res: = plos * pay;

if StringGrid1.RowCount

StringGrid1.Cells [0, b]: = 'Поворотний';