Найдите ошибку в задаче на DELPHI7...немогу решить//
Сама задача... Известны данные о массе и объёме 30-ти предметов, изготовленных из различных материалов. Определить максимальную плотность матери.
Компоненты... StringGrid...button...нужно чтоб после введения данных в STringGrid при нажатии на кнопку выводился ответ.. .
Код.. .
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=StrToInt(StringGrid1.Cells[i-1,0]);
b:=StrToInt(StringGrid1.Cells[i-1,1]);
for i:=1 to 30 do c:=a/b
for i:=1 to 30 do
c:= StrToInt(StringGrid1.Cells[i-1,0]);
max:=1;
for i:=2 to 30 do
if c < c[max] then max:=i;
end;
end.
Подскажите где ошибка и что сдесь не так... Спасибо.. .