[frostikit]

Обеспечить вывод в компонент TMemo всех целых чисел, попадающих в интервал от n1 до n2 и которые являются удвоенными нечетными числами. Подсчитать количество этих чисел.

Не подскажете как это осуществить?

[eXplorer]

Обеспечить вывод в компонент TMemo всех целых чисел, попадающих в интервал от n1 до n2

Код:

var
n1,n2,i:integer;
begin
n2:=89; //n2
i:=0; //счётчик чисел
for n1:=2 to n2 do begin //цикл
memo1.Text:=memo1.Text+inttostr(n1); //вывод в мэмо
i:=i+1;
end;
showmessage(inttostr(i));
end;

[eXplorer]

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

Код:

if i2 mod 2=0 then begin

[Konrad]

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

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

Код:

if i2 mod 2=0 then begin

"if" в цикле да еще и "мод" туда же?

Если N1-четное (нечетное), то N2=N1+2 будет четным(нечетным).

Соответственно, находим первое четное(нечетное) число диапазона, и добавляем ему 2, пока не дойдем до конца диапазона .

[eXplorer]

ну да))) извените так проще как написал Konrad

[Konrad]

Где-то так:

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
n1,n2,p:integer;
begin
  memo1.lines.clear;
  n1:=strtoint(edit1.Text);
  n2:=strtoint(edit2.Text);
  if n1>n2 then showmessage('n1>n2')
    else
    begin
      if (n1 mod 2) =0 then p:=n1 else p:=n1+1;
      memo1.lines.add('#0'+' = '+inttostr(p));
      n2:=(n2-p)div 2;
      for n1:=1 to n2 do
      begin
        p:=p+2;
        memo1.lines.add('#'+inttostr(n1)+' = '+inttostr(p));
      end;
      memo1.lines.add('# результат sum = '+inttostr(n1)+';');
    end;
end; 


Если что не так, просто вечер, думать не хочется

300-е сообщение

[frostikit]

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

PHP код:

procedure TForm3.Button1Click(Sender: TObject);
var n1,n2,pr,z,n:integer; s:string;
begin
  memo1.Clear;
  n1:=strToInt(Edit1.Text);
  n2:=strToInt(Edit2.text);
  for n:=n1 to n2 do
    if n mod 2 <> 0 then
      begin
        pr:=n*n;
        s:=floattostr(pr);
        Edit3.text:=floattostr((memo1.Lines.Count)+1);
        z:=strtoInt(Edit3.Text);
        memo1.Lines.Append(s);
      end;
    case z of
    2,3,4: Label3.Caption:='раза';
    0,1,5..999: Label3.Caption:='раз';
end; 


На case..of не обращайте внимания, свои задумки)

Но есть еще 1 вопросик
Как написать подпрограмму которая работает как функция TrimLeft?

[lmikle]

TrimLeft отрезает все пробелы (и непечатные символы) в начале строки.
Т.е. задача найти первый не пробел и с этого места скопировать.

Код:

function TrimLeft(S : String) : String;
var
  I, Idx : Integer;
begin
  Result := '';
  If S <> '' Then
    Begin
      Idx := 0;
      For I := 1 To Length(S) Do
        If S[i] > #32 Then
          Begin
            Idx := I;
            Break;
          End;
      If Idx > 0 Then Result := Copy(S,Idx,Length(S));
   End;
End;

[frostikit]

Все понятно, только что такое #32?

[BoRoV]

знак пробела

[frostikit]

Всем спасибо за помощь