массив, delphi

[azat94krg]

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

[BlackFishSQL]

if (A[i]>0.5) and (A[i]<1) then kol:=kol+1;

так наверно!) это общий вариант ...а в delphi сам приделаешь!

[azat94krg]

Так что ли?

procedure TForm1.N2Click(Sender: TObject);
var
x,y,y1,h,a,b,kol:real;
cod,i:integer;
str1,str2,str3:string;
m:array[0..100] of integer;
begin
if CheckBox3.Checked then
if (m[i]>0.5) and (m[i]<1) then kol:=kol+1;
if CheckBox4.Checked then
Memo1.Lines.Add('X F(X)	F"(X)')
else
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;
y1:=cos(x);
if CheckBox4.Checked then
begin
Str(x:8:2, str1); Str(y:8:2, str2); Str(y1:8:2, str3); 
str3 := str1 + str2 + str3
end
else
begin
Str(x:8:2,str1);
Str(y:8:3,str2);
str3 := str1 + str2
end;
if CheckBox1.Checked then
Memo1.Lines.Add(str1+str2);
x:=x+h;
end;
end;

А он не должен как-то отображаться?

[Hacker19_90]

А он не должен как-то отображаться?

Может и должен! Мы откуда знаем?
Может вы конкретнее опишите задание?

[weech]

Что должна делать программа? При проверке первого чекбокса вы обращаетесь к i-тому элементу массива; и что-то мне подсказывает, что i не изменяется никоим образом...Добавьте туда цикл для перебора всего массива. А переменную kol инициализируйте, как целочисленную.

[azat94krg]

Я сам не знаю, что она должна делать. В архиве "табулирование" всё что смог сделать, а в "табулирование1" то, что надо было.

[Hacker19_90]

Табулирование функции и и её производной.
хмм.....
а причём тут массивы?

Короче ТС мой вам совет!
Разберитесь с начало перед тем, чем что-то делать!
А не списывайте всё подряд!