Вывести все содержащиеся в массиве A(N) нечетные числа и их количество K ( Делфи 7 )

[nadyaH]

begin
  M:=StrToInt(Edit2.Text);
  N:=StrToInt(Edit1.Text);
for i:=1 to M do
   for j:=1 to N do
      x[i,j]:=random(201)/100 - 1.0;
RichEdit1.Text:=MatrixToStr(x,M,N);

заполняю матрицу произвольными числами.
как написать функцию MatrixToStr ?

[Serge_Bliznykov]

Какое отношение этот код(вопрос) имеет к первому сообщению темы?!

Там ОДНОМЕРНЫЙ массив, причём ЦЕЛОЧИСЛЕННЫЙ!
здесь двухмерный, к тому же - вещественный!

ну и ещё. Не знаю, кто Вас учит возвращать все элементы массива в виде строки, но это явно не самая лучшая идея!
Передайте StringList в качестве параметра в вашу процедуру/функцию, там просто выводите элементы в него, зачем Вам через строку это делать?!

[nadyaH]

if (a[i] mod 2)=1 then result := result  + IntToStr(a[i])+',';

Делфи всеравно выдаёт ошибку в этой строке.

[Serge_Bliznykov]

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

if (a[i] mod 2)=1 then result := result  + IntToStr(a[i])+',';

Делфи всеравно выдаёт ошибку в этой строке.

секретную ошибку?!

Подозреваю, что у Вас тип элементов массива не целочисленный.

приведите описание ващего типа TArray

[nadyaH]

type 
  TArray = array[1..100] of real;
  TMatrix = array[1..100] of TArray;

{$R *.dfm}
function Neth(a: TArray; N: integer): string;
var
  i: integer;
begin
  result := '';
  for i:=0 to N do
      if (a[i] mod 2)=1 then result := result  + IntToStr(a[i])+',';
end;
function MatrixToStr(x: TMatrix; M,N: integer): string;
var
  i: integer;
begin
  result:='';
  for i:=1 to M do
    result:=FloatToStr(x[i],M,N)+#13;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  M, N: integer;
  x: TMatrix;
  i, j: integer;
  a: TArray;
begin
  M:=StrToInt(Edit2.Text);
  N:=StrToInt(Edit1.Text);
for i:=1 to M do
 for j:=1 to N do
  x[i,j]:=random(100);
end;
RichEdit1.Text:=MatrixToStr(x,m,n)  
end.

вот что я написала.Не знаю что делать дальше,где что исправить надо чтобы программа заработала и правильно.

[Serge_Bliznykov]

type 
  TArray = array[1..100] of real;

Надя, скажите, пожалуйста, Вы знаете, что такое чётные и нечётные числа в математике? Ну как Вы (без компьютера) сможете определить заданное Вам число является нечётным?
Вот, допустим, если я Вам дам число 102. Это чётное или нечётное число?
А если я дам Вам число 279, это чётное или нечётное число?

Разобрались с темой?

А теперь смотрим, что у Вас за элементы массива... Ба, так это же real, значит элементами массива являются ВЕЩЕСТВЕННЫЕ (они же действительные, они же ДРОБНЫЕ) числа.

Скажите, пожалуйста, число 1.6 является чётныи или нечётным?!

исправьте тип на Integer

ну и второе. Вы абсолютна зря проигнорировали мой вопрос про матрицу (см. пост #12)
Как отношение x: TMatrix; имеет к исходному посту?!?!

У Вас должно быть x : TArray.


примерно так:

....
var
  Form1: TForm1;

var
  Form1: TForm1;

implementation

{$R *.dfm}

type
  TArray = array[1..100] of Integer;

function Neth(a: TArray; N: integer; var CountNechet : integer): string;
var
  i: integer;
begin
  result := '';
  CountNechet := 0;
  for i:=1 to N do
      if (a[i] mod 2)=1 then begin
        result := result  + IntToStr(a[i])+',';
        Inc(CountNechet);
      end;
end;

function ArrayToString(a: TArray; N: integer): string;
var
  i: integer;
begin
  result := '';
  for i:=1 to N-1 do
    result := result  + IntToStr(a[i])+',';
  result := result  + IntToStr(a[i]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  N, K: integer;
  i: integer;
  x: TArray;
begin
  randomize;

  N:=StrToInt(Edit1.Text);
  for i:=1 to N do
     x[i] := random(100);

  RichEdit1.Lines.Clear;
  RichEdit1.Lines.Append('Исходный массив: ' + ArrayToString(x,N));

  RichEdit1.Lines.Append('Нечётные числа: ' +Neth(x, N, K));
  RichEdit1.Lines.Append('Количество нечётных числе в массиве: ' +IntToStr(K));
end;

end.

[nadyaH]

 RichEdit1.Lines.Clear;
  RichEdit1.Lines.Append('Исходный массив: ' + ArrayToString(x,N));

что это означает?
И почему К выдаёт всегда единицу?

[Serge_Bliznykov]

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

 RichEdit1.Lines.Clear;

очистить содержимое RichEdit1

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

  RichEdit1.Lines.Append('Исходный массив: ' + ArrayToString(x,N));

вывести в RichEdit1 строку, которая в себе содержит исходный массив (все элементы массива через запятую).
Для получения этой строки используется функция ArrayToString (см. чуть выше по коду)

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

И почему К выдаёт всегда единицу?

не потверждаю.
Ищите, что Вы там у себя успели испортить!
Скриншот:

[nadyaH]

Спасибо всё работает правильно!

[Serge_Bliznykov]

Пожалуйста.

Данную тему закрываем?