Массивы

[Ken_Watanabe]

Дан массив А размера N (N-четное число) Вывести его элементы с четными номерами в порядке возрастания номеров: А2, А4, .... Аn.

к примеру
N=2
5.90 1.05 <= введение данных

1.05 <= ответ

Нужен код в делфи, решение на форме желательно.

[Foreseen]

Если правильно задачу понял...

 Uses Math
procedure TForm1.Button1Click(Sender: TObject);
const
N=100;
var
A: array [1..N] of real;
i: integer;
begin
Randomize;
Memo1.Clear;
for i:=1 to N do
  Begin
    A[i]:=SimpleRoundTo(Random(100)/Random(100), -2);
    if not odd(i) then
      Memo1.Lines.Append('A'+inttostr(i)+'='+floattostr(A[i]));
  End;
end;

[Serge_Bliznykov]

Foreseen, нет, не верно. Вы же пример из пост #1 смотрели?
Просто нумерацию в массиве от единицы сделайте и тип массива вещественный, вот тогда всё будет гуд!



ну и вместо if odd(i)=false then
лучше классическое Not:

 if Not odd(i) then ...

это не ошибка, просто не очень красиво выглядит...

[Ken_Watanabe]

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

Если правильно задачу понял...

procedure TForm1.Button1Click(Sender: TObject);
const
N=100;
var
A: array [0..N] of integer;
i: integer;
begin
Randomize;
Memo1.Clear;
for i:=0 to N do
  Begin
    A[i]:=Random(100);
    if odd(i)=false then
      Memo1.Lines.Append('A'+inttostr(i)+'='+inttostr(A[i]));
  End;
end;

Как будет блок схемма нарисуйте пожалуйста

[Foreseen]

Поправил

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

это не ошибка, просто не очень красиво выглядит...

Быдлокод?

За конструкцию вида

Random(100)/Random(100)

сильно не ругайте, не знаю я другого способа навалить real-мусора в массив, приделал костыль.

[Ken_Watanabe]

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

Foreseen, нет, не верно. Вы же пример из пост #1 смотрели?
Просто нумерацию в массиве от единицы сделайте и тип массива вещественный, вот тогда всё будет гуд!



ну и вместо if odd(i)=false then
лучше классическое Not:

 if Not odd(i) then ...

это не ошибка, просто не очень красиво выглядит...

нарисуйте блок схемму кто знает??? )

[superedward]

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

За конструкцию вида

Random(100)/Random(100)

сильно не ругайте, не знаю я другого способа навалить real-мусора в массив, приделал костыль.

random*100

[Человек_Борща]

Как будет блок схемма нарисуйте пожалуйста

Сам нарисуй.