[Delphi] Определите количество элементов массива больших 0,5 и меньших 1

[rustorkan]

Табулирование функции.

procedure TForm1.N2Click(Sender: TObject);
var
x,y,h,a,b: real;
cod:    integer;
strl,str2:  string;
begin
Memo1.Lines. Add('X F(X)');
Val(Edit1.Text, a, cod);
Val(Edit2.Text, b, cod);
Val(Edit3.Text, h, cod);
x:=a;
while x<=b+h/2 do
begin   
y:=sin(x)+1;    {Вычисляем значения функции}
{Формируем символьные строки из значений }
Str(x:8:2,strl);     { аргумента и функции}
Str(y:8:3, str2);
 if CheckBox1.Checked then
      {Вставляем строку в поле Memo1}
      Memo1.Lines. Add(strl+str2);
 x:=x+h; {Увеличиваем аргумент на величину шага}
 end
end;
end.

[Вадим Мошев]

В чём проблема у вас? Если есть ошибки в коде, то говорите, что за ошибки, в каких местах.

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

Val(Edit1.Text, a, cod);

Для преобразования строки в число используйте функцию strToFloat

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

Str(x:8:2,strl);

Аналогично http://www.delphibasics.ru/FloatToStr.php

[rustorkan]

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

Табулирование функции.

procedure TForm1.N2Click(Sender: TObject);
var
x,y,h,a,b: real;
cod:    integer;
strl,str2:  string;
begin
Memo1.Lines. Add('X F(X)');
Val(Edit1.Text, a, cod);
Val(Edit2.Text, b, cod);
Val(Edit3.Text, h, cod);
x:=a;
while x<=b+h/2 do
begin   
y:=sin(x)+1;    {Вычисляем значения функции}
{Формируем символьные строки из значений }
Str(x:8:2,strl);     { аргумента и функции}
Str(y:8:3, str2);
 if CheckBox1.Checked then
      {Вставляем строку в поле Memo1}
      Memo1.Lines. Add(strl+str2);
 x:=x+h; {Увеличиваем аргумент на величину шага}
 end
end;
end.

Этот код рабочий.
Мне нужно определить количество элементов массива больших 0,5 и меньших 1
и вывести значение в поле Memo1.
Нужно этот код немного поправить.

[Вадим Мошев]

Вам не нужен массив для этого. Можно сделать так примерное:

amount:=0;

в цикле табилирования функции после вычисления значения писать
	if (значение > 0.5) AND (значение < 1) then begin
		inc(amount);
	end;

после цикла писать
	amount перевести в строку
	memo1.lines.append(amount_как_строка)

[rustorkan]

Можете весь код сразу в исправленном виде написать?

[Sciv]

Сообщение от Вадим Мошев

Вам не нужен массив для этого.

Судя по всему, это условие задания

[rustorkan]

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

Можете весь код сразу в исправленном виде написать?

Как-то так.

procedure TForm1.N2Click(Sender: TObject);
var
x,y,h,a,b: real;
cod,kolichestvo: integer;
strl,str2: string;
begin
Memo1.Lines. Add('X F(X)');
Val(Edit1.Text, a, cod);
Val(Edit2.Text, b, cod);
Val(Edit3.Text, h, cod);
x:=a;
while x<=b+h/2 do
begin   
y:=sin(x)+1; {Вычисляем значения функции}
begin
kolichestvo:=0;
end;
if (y > 0.5) AND (y < 1) then
  begin
    inc(kolichestvo);
  end;
memo1.lines.append(IntToStr(kolichestvo));
{Формируем символьные строки из значений }
Str(x:8:2,strl);     { аргумента и функции}
Str(y:8:3, str2);
 if CheckBox1.Checked then
      {Вставляем строку в поле Memo1}
      Memo1.Lines. Add(strl+str2);
 x:=x+h; {Увеличиваем аргумент на величину шага}
 end
end;
end.

[Serge_Bliznykov]

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

Как-то так.

не, обнуление надо за цикл вынести.
и вывод количества тоже

так:

  kolichestvo:=0;
  x:=a;
  while x<=b+h/2 do
  begin   
      y:=sin(x)+1; {Вычисляем значения функции}
      if (y > 0.5) AND (y < 1) then
           inc(kolichestvo);
      if CheckBox1.Checked then begin
          {Вставляем строку в поле Memo1}
          {Формируем символьные строки из значений }
          Str(x:8:2,strl);     { аргумента и функции}
          Str(y:8:3, str2);
          Memo1.Lines.Append(strl+' '+str2);
      end;
      x:=x+h; {Увеличиваем аргумент на величину шага}
  end;
  Memo1.Lines.Append('количество элементов от 0.5 до 1 = '+IntToStr(kolichestvo));
end;

p.s. а почему не хотите воспользоваться функциями FloatToStr или FloatToStrF или Format ?
вместо 3-х строк кода будет всего одна!

      if CheckBox1.Checked then begin
          {Формируем символьные строки из значений и Вставляем строку в поле Memo1
           аргумента и функции}
          Memo1.Lines.Append(Format('%8.2f %8.3f',[x,y]));
      end;

[rustorkan]

procedure TForm1.N2Click(Sender: TObject);
var
x,y,h,a,b: real;
cod,kolichestvo: integer;
begin
Memo1.Lines. Add('X F(X)');
Val(Edit1.Text, a, cod);
Val(Edit2.Text, b, cod);
Val(Edit3.Text, h, cod);
kolichestvo:=0;
x:=a;
  while x<=b+h/2 do
  begin   
      y:=sin(x)+1;
      if (y > 0.5) AND (y < 1) then
           inc(kolichestvo);
      if CheckBox1.Checked then begin
           Memo1.Lines.Append(Format('%8.2f %8.3f',[x,y]));
      end;
      x:=x+h;
  end;
  Memo1.Lines.Append('Количество элементов от 0.5 до 1 =
'+IntToStr(kolichestvo));
end;
end.

[rustorkan]

Всем спасибо!