[fojia]

у меня не правильно считает!помогите найти в чем ошибка!

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 form1.Close;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
var  i, j : byte; c,p,s:integer;
  begin
    s:=0;
 for i:= 0 to 6 do
  for j:=0 to 4 do s:=0;     begin
     p:=StrToInt(StringGrid1.Cells[i,j]);
  if (p mod 2=0) then s:=s+p ;
    edit3.Text:=FloatToStr(s);
                   end;    end;
procedure TForm1.RadioButton3Click(Sender: TObject);
 var  i, j : byte; p,s:integer;
begin
  s:=0;
    for i:= 0 to 6 do
for j:=0 to 4 do    begin
p:=StrToInt(StringGrid1.Cells[i,j]);
 if p mod 2<>0 then    s:=s+p;

     edit3.Text:=FloatToStr(s);
     end;      end;
       end.

[Assistant]

щас Admin напишет: Пользуемся тегами

а не правильно считает это как? и как оно должно правильно считать?

[fojia]

должно считать сумму четных и нечетных и вывести!а оно считает больше че должно получиться!

[Assistant]

а если так:

Код:

var
  i, j: byte;
  p, s, n: integer;
begin
  s := 0;
  n := 0;
  for i:= 0 to 6 do
  begin
    for j:=0 to 4 do
    begin
      p := StrToInt(StringGrid1.Cells[i,j]);
      if (p div 2 = p / 2) then
        s := s+p
      else
        n := n+p;
    end;
  end;
  ShowMessage('Сумма четных: ' + IntToStr(s));
  ShowMessage('Сумма не четных: ' + IntToStr(n));
end;

[Konrad]

Сообщение от Assistant

а если так:
[code]
if (p div 2 = p / 2) then

Новые веяния в программировании, или как заставить программу работать быстрее?)

PHP код:

p mod 2 = 0 


[fojia]

один фиг получаеться больше чем надо!

[PhoeniX]

Сообщение от Konrad

Новые веяния в программировании

PHP код:

p mod 2 = 0 


PHP код:

(p and 1) = 0 


А точно 7 столбцов и 5 строк?

[fojia]

спасибо!все из-за столбцов!их должно быть 6 и 4!

[Assistant]

Сообщение от Konrad

Новые веяния в программировании, или как заставить программу работать быстрее?)

ну я то для студентов показывал )) им то какая разница по большей части, как оно будет работать, быстро или медленно )