Практическая работа. i,j,ball,s,max, row, col:integer;

Begin

Var

i,j,ball,s,max, row, col:integer;

buf:array [0..5] of string;

{ Подсчет количества медалей и баллов, причем, если ячейка пуста, то автоматически в нее заносится ноль}

for i:=1 to sg.rowcount do

begin

s:=0;

for j:=1 to 3 do

If sg.cells[j,i]<>'' then

s:=s+StrToInt(sg.cells[j,i])

else

sg.Cells[j,i]:='0';

sg.cells[4,i]:=IntToStr(s);

ball:=7*StrToInt(sg.cells[1,i])+

6*StrToInt(sg.cells[2,i])+

5*StrToInt(sg.cells[3,i]);

sg.cells[5,i]:=IntToStr(ball);

end;

{Сортировка}

for row:=1 to sg.rowcount-1 do

begin

max:=row;

for i:=row to sg.rowcount-1 do

if strtoint(sg.cells[5,i])>strtoint(sg.cells[5,max]) then

max:=i;

if row<>max then

begin

for col:=0 to 5 do

begin

buf[col]:=sg.cells[col,row];

sg.Cells[col,row]:=sg.Cells[col,max];

sg.Cells[col,max]:=buf[col];

end;

end;

end;

end;

Создадим программу для магазина. В таблицу можно добавлять, удалять и покупать товар со склада.

Поставьте на форму следующие компоненты: StringGrid1 (SG), 5 меток Label с заголовками «Код товара», «Название», «Цена», «Количество», «Введите количество покупаемого товара», 5 строк ввода Edit, 3 кнопки: «Купить», «Добавить товар», «Удалить товар», «Выход».

В таблице понадобится фиксированная строкадля названия колонок. Поэтому свойству FixedCols в Инспекторе Объектов присвоим значение 0.

Свойству ColCount зададим значение 4, а RowCount зададим значение 2, так как сначала товаров не будет.

Опишем процедуру заполнения фиксированных ячеек (процедура по созданию формы):

procedure TForm1.FormCreate(Sender: TObject);

Дата добавления: 2015-05-09