цикл for to do, или как отобразить сумму всех чётных трёхзначных чисел которые делятся на 7 (Delphi 6)

[Lorden]

если кого незатруднит скажити пожалуйста как сделать в делфи такую задачу:
Найти сумму всех чётных трёхзначных чисел которые делятся на 7.
я делаю слейдущим образом:
var
i,s:Integer;
begin
for i:=100 to 999 do
if (i mod 2=0) and (i mod 7=0) then
Memo1.Lines.Add(IntToStr(s));

но чёт неполучается(

[5naip]

var
i:Integer;
begin
for i:=100 to 999 do
if (i mod 2=0) and (i mod 7=0)
  then Memo1.Lines.Add(IntToStr(i));

[Lorden]

Сообщение от 5naip

var
i:Integer;
begin
for i:=100 to 999 do
if (i mod 2=0) and (i mod 7=0)
  then Memo1.Lines.Add(IntToStr(i));

ммм.. чёт я немного недопонял твоего поста. Можно поподробнее?) типо then нада перенести на строчку с Memo1?

[5naip]

блин,извини,затупил задание не все прочитал.
вот правиьный код:

var
  i,s:Integer;
begin
s:=0;
for i:=100 to 999 do
if (i mod 2=0) and (i mod 7=0)
  then
    begin
      ListBox1.Items.Add(IntToStr(i));
      s:=s+i;
    end;
ShowMessage(inttostr(s));

только я тут Listbox использовал
В листбокс забываются все трехзначные четные числа.
А в конце появлется сообщение с суммой их.
Твоя ошибка была в том,что:
1.s не была обнулена вначала....а сразу после объявления переменная содержит ненулевое зачение.
2.s никак не была связана с i.

[Lorden]

Сообщение от 5naip

блин,извини,затупил задание не все прочитал.
вот правиьный код:

var
  i,s:Integer;
begin
s:=0;
for i:=100 to 999 do
if (i mod 2=0) and (i mod 7=0)
  then
    begin
      ListBox1.Items.Add(IntToStr(i));
      s:=s+i;
    end;
ShowMessage(inttostr(s));

только я тут Listbox использовал
В листбокс забываются все трехзначные четные числа.
А в конце появлется сообщение с суммой их.
Твоя ошибка была в том,что:
1.s не была обнулена вначала....а сразу после объявления переменная содержит ненулевое зачение.
2.s никак не была связана с i.

во спасибо огромное

[Lorden]

чтобы неделать ненужных тем решил отписать тут:

var
x,y,z,f:Integer;
begin
x:=StrToInt(Edit1.Text);
y:=StrToInt(Edit2.Text);
z:=StrToInt(Edit3.Text);
begin
if x>0 then f:=x+25*y-17*z;
Memo1.Lines.Add(IntToStr(x)+'+25*'+ IntToStr(y)+'-17*'+IntToStr(z)+'='+IntToStr(f));
end;
begin
if x<0 then f:=-12*x+12*y-12*z;
Memo1.Lines.Add('-12*'+IntToStr(x)+'+12*'+IntToStr(y) +'-12*'+IntToStr(z)+'='+IntToStr(f));
end;
begin
if x=0 then f:=130*y-130*z;
Memo1.Lines.Add('130*'+IntToStr(y)+ '-130*'+IntToStr(z)+'='+IntToStr(f));
end;

подскажити как сделать в этом алгоритме так чтобы при нажатии кнопки Button1 в окне отображалась тока 1 формула по которой шло вычисление а невсе 3.
П.С. хотелбы ещё спросить как сделать проверку на 0? ато при написании канкулятора немогу исправить ошибку что на 0 делить нельзя( тока знаю как её исправлять в цикле а невцикле брик и континуе чёт неработает.

[5naip]

думаю, можно так:

procedure TForm1.Button1Click(Sender: TObject);
var
  x,y,z,f:Integer;
begin
x:=StrToInt(Edit1.Text);
y:=StrToInt(Edit2.Text);
z:=StrToInt(Edit3.Text);
if x>0
  then
    begin
      f:=x+25*y-17*z;
      Memo1.Lines.Add(IntToStr(x)+'+25*'+IntToStr(y)+'-17*'+IntToStr(z)+'='+IntToStr(f));
    end
  else
    if x<0
      then
        begin
           f:=-12*x+12*y-12*z;
          Memo1.Lines.Add('-12*'+IntToStr(x)+'+12*'+IntToStr(y)+'-12*'+IntToStr(z)+'='+IntToStr(f));
        end
      else
        if x=0
          then
            begin
              f:=130*y-130*z;
              Memo1.Lines.Add('130*'+IntToStr(y)+'-130*'+IntToStr(z)+'='+IntToStr(f));
            end;
end;

----------
А зачем у тебя так много "begin end;" было? Может я чего не знаю?

[5naip]

П.С. хотелбы ещё спросить как сделать проверку на 0? ато при написании канкулятора немогу исправить ошибку что на 0 делить нельзя( тока знаю как её исправлять в цикле а невцикле брик и континуе чёт неработает.

выкладывай код где ошибка нашлась....

[Lorden]

бегины фиг знает почему так много поставил) обычно ставлю мало но учитель чёт типо сказал перед каждыйм if бегин нада ставить)вот и перемудрил)

var
i,s,f:integer;
begin
Memo1.Visible:=True;
Memo1.Clear;
i:=StrToInt(Edit1.Text);
s:=StrToInt(Edit2.Text);
if i=0 then
Application.MessageBox('на нуль делить нельзя','ошибка');
break;
end;
f:=round(i/s);
Memo1.lines.add(IntToStr(i)+':'+Int ToStr(s)+'='+IntToStr(f));
end;

а ошибку пишет такую:
[Error] Unit1.pas(166): BREAK or CONTINUE outside of loop

[5naip]

ошибка состояла в том,что "break" и "continue" используются только для циклических операторов(while,for,repeat), а не для операторов ветвлений...
Ну,вобщем,если я правильно понял смысл задания, то вот рабочий код

var
i,s,f:integer;
begin
Memo1.Visible:=True;
Memo1.Clear;
i:=StrToInt(Edit1.Text);
s:=StrToInt(Edit2.Text);
if i=0
  then Application.MessageBox('на нуль делить нельзя','ошибка');
  else
    begin
      f:=round(i/s);
      Memo1.lines.add(IntToStr(i)+':'+IntToStr(s)+'='+In tToStr(f));
    end;
end;