Delphi - [решено] Ошибка в коде простейшей программы.

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

Delphi - [решено] Ошибка в коде простейшей программы.

Warrior of light

Новый участник

Сообщения: 12
Благодарности: 0

Конфигурация

Профиль | Отправить PM | Цитировать

Изменения

Автор: Warrior of light
Дата: 25-12-2011

Здравствуйте, помогите, пожалуйста разобраться с задачей.
Собственно задача так звучит: Найти среднее арифметическое членов, имеющих нечетные порядковые номера и являющихся четными числами.

Код:

procedure TForm1.Button2Click(Sender: TObject); var j:integer; p,s,k,m,nom,s1,s2:integer; 
  begin
   if CheckBox4.Checked then begin
             for j:=1 to n do begin
               if (j mod 2 <> 0) and (StrToInt(StringGrid1.cells[j,1]) > 0) then begin
                  s1:=s1+1;
                  s2:=s2+StrToInt(StringGrid1.cells[j,1]);
               end;
             end;
            m:=s2/s1;
             Label4.Caption:='Средн. арифметическое'+IntToStr(m);
          end
          else
            Label4.Caption:='';


 end;
end.

Выдает ошибку, ссылаясь на строку, выделенную красным цветом. [Error] My_Unit3_4.pas(129): Incompatible types: 'Integer' and 'Extended'

Отправлено: 15:33, 25-12-2011

Hector

Misanthrope

Сообщения: 474
Благодарности: 38

Профиль | Отправить PM | Цитировать

Warrior of light, вероятно переменная m объявлена типом Integer, а нужен Extended ибо по правилам, результат деления не является Integer

-------
Information must be free!
Нет границ, есть только препятствия