Помогите с массивами в Delphi

← →
Ptitca © (2010-06-30 11:25) [0]

Необходимо было создать программу, которая создает массив случайных целых чисел, подсчитывает их среднее арифметическое, а также выводит на экран минимальное и максимальное из этих чисел.

Программу я еще написала. Но вот работать она увы не стала. Ошибок она не находит, но выводит абсолютно чистый лист без возможных действий далее.

У меня лично особо натянутые отношения с Delphi.

Заранее спасибо за помощь.

← →
12 © (2010-06-30 11:29) [1]

да Вы поэт просто :)

> Программу я еще написала

интересно было б глянуть

← →
И. Павел © (2010-06-30 11:30) [2]

Вы бы хоть листинг программы показали. Что значит "Чистый лист"?

> У меня лично особо натянутые отношения с Delphi.

Это у вас с ним. А у него ко всем одинаковое отношение :)

← →
Jeer © (2010-06-30 12:10) [3]

> У меня лично особо натянутые отношения

Какой простор для фантазии :)

← →
Юрий Зотов © (2010-06-30 12:42) [4]

> Ptitca © (30.06.10 11:25)

Так в чем вопрос-то? Вы хотите, чтобы Вам помогли, или за Вас написали?

← →
Palladin © (2010-06-30 13:54) [5]

> Программу я еще написала.

Велик и могуч русская языка! )

← →
oldman © (2010-06-30 14:33) [6]

> Необходимо было создать программу, которая создает массив
> случайных целых чисел, подсчитывает их среднее арифметическое,
> а также выводит на экран минимальное и максимальное из
> этих чисел.
>
> Ошибок она не находит, но выводит абсолютно чистый лист
> без возможных действий далее.

Видимо, сгенерирован массив их nill

← →
Anatoly Podgoretsky © (2010-06-30 16:07) [7]

Все проще, у него наверно ошибка в программе.

← →
brother © (2010-06-30 16:09) [8]

> у него

у нее - судя по анкете и аське... 17 лет кстати ;)

← →
Плохиш © (2010-06-30 16:10) [9]

> Ptitca © (30.06.10 11:25)

Фотку гони.

← →
Anatoly Podgoretsky © (2010-06-30 16:47) [10]

> brother (30.06.2010 16:09:08) [8]

Стоп! Пусть фотку гонит.

← →
oldman © (2010-06-30 17:47) [11]

> Anatoly Podgoretsky © (30.06.10 16:47) [10]
> Стоп! Пусть фотку гонит.

Из анкеты:

бывает эгоистичный, меланхоличный, депрессивный и вообще умалишенный.
очень ребенок.
любит мультики и мелодрамы.
сильно хочет повзрослеть.
бывает жестоко тупит.

На фига нам ее фотка?

← →
Lyonux © (2010-06-30 19:14) [12]

Превед массив целых случайных чисел и их среднее арифметическое и максимальным и минимальным элементами)
Мария, продемонстрируйте господам код (лучше даже с комментариями), пока Вам благородные джентельмены все кости не перемыли)

← →
Anatoly Podgoretsky © (2010-06-30 19:40) [13]

> сильно хочет повзрослеть.

> На фига нам ее фотка?

Надо торопиться.

← →
Anatoly Podgoretsky © (2010-06-30 19:46) [14]

ВКонтакте это кто?
Действительно вредная, у меня же шея онемела, ну кто же так фотографии печатает.

← →
Плохиш © (2010-07-01 15:00) [15]

> Anatoly Podgoretsky © (30.06.10 19:46) [14]

Монитор надо поворачивающийся :-P

Только я так и непонял, ну нафига ей это программирование, совсем заняться больше нечем?

← →
Омлет © (2010-07-01 19:58) [16]

procedure TForm1.Button1Click(Sender: TObject); const ARRAY_SIZE = 1000; RANGE_MIN = 10; RANGE_MAX = 90; var i, min, max : integer; average : extended; IntArray : array of integer; begin randomize; SetLength(IntArray, ARRAY_SIZE); min := RANGE_MAX; max := RANGE_MIN; average := 0; for i := 0 to high(IntArray) do begin IntArray[i] := RANGE_MIN + Random(RANGE_MAX - RANGE_MIN + 1); if IntArray[i] < min then min := IntArray[i]; if IntArray[i] > max then max := IntArray[i]; average := average + IntArray[i] / length(IntArray); end; ShowMessage(Format( "Min = %d" +sLineBreak+ "Max = %d" +sLineBreak+ "Average = %.3f" +sLineBreak+ "-----" +sLineBreak+ "Range = [%d, %d]" +sLineBreak+ "Count = %d", [min, max, average, RANGE_MIN, RANGE_MAX, length(IntArray)])); end;

← →
Омлет © (2010-07-01 20:05) [17]

> Palladin © (30.06.10 13:54) [5]

Зеленый травк ложится под ногами,
И сам к бумаге тянется рука,
И я шепчу дрожащими губами:
"Велик могучим русский языка!"
(c)

← →
Leonid Troyanovsky © (2010-07-01 22:55) [18]

> Омлет © (01.07.10 19:58) [16]

Массив не нужен, только луц на него тратить.

--
Regards, LVT.

← →
Омлет © (2010-07-01 22:59) [19]

> Leonid Troyanovsky © (01.07.10 22:55) [18]

Я знаю, но просили с массивом )

← →
Leonid Troyanovsky © (2010-07-01 23:04) [20]

> Омлет © (01.07.10 22:59) [19]

> Я знаю, но просили с массивом )

Дамский угодник ;)

--
Regards, LVT.

← →
Anatoly Podgoretsky © (2010-07-02 00:52) [21]

Надо помочь девочки, она даже без наших просьб фотку предоставила.

← →
Anatoly Podgoretsky © (2010-07-02 00:59) [22]

Девочке, а то подумаете, что это я про вам и обидитесь.

← →
Германн © (2010-07-02 02:18) [23]

> Девочке, а то подумаете, что это я про вам и обидитесь.
>

А вдруг мы обидимся на "про вам"
:)
Ты уж тогда лучше забудь про запятые. Они только мешают восприятию твоих сообщений.

> Германн (02.07.2010 02:18:23) [23]

Не я буду писать по правилам, с запятыми.

← →
Nickolay (2010-07-02 12:31) [25]

Ребята! Что ж вы творите?
Среднее арифметическое считается так:

average := 0;
for i := 0 to high(IntArray) do
begin
...
average := average + IntArray[i];
end;
// А вот после цикла уже делим:
average := average / length(IntArray);

Девочку в заблуждение ввели!

> Nickolay (02.07.10 12:31) [25]
> А вот после цикла уже делим

Безусловно, так будет точнее.
Но и в [16] ошибки нет.

> Nickolay (02.07.10 12:31) [25]

Дада. Просто, я сначала хотел найти целочисленную сумму, потом разделить на количество. Подумал про переполнение - решил суммировать уже поделенные значения. Поэтому взял extended. Хотя его можно было безболезненно использовать и для полной суммы. Хорошая мысля приходит апосля ))
А точность тут, я думаю, не критична.

> Омлет © (01.07.10 19:58) [16]

Ну и как думаешь, поможет чем-то ребенку твой код?

> Ptitca © (30.06.10 11:25) [0]
> ..подсчитывает их среднее арифметическое, а также выводит
> на экран..

Тебя слова "выводит на экран" и то, что девочке 17 лет, а это скорее всего 1-ый курс, не наводит на мысль, что у нее задача написать простое консольное приложение, не вдаваясь в подробности событийно-ориентированной архитектуры операционной системы и форматируемой строки, передаваемой параметром функции Format?

> Омлет © (02.07.10 14:50) [27]
> Подумал про переполнение

Может ты бы еще и обработчики исключений добавил в код, рассказав перед этим девочке про третье и нулевое кольцо защиты процессора?

> Anatoly Podgoretsky © (02.07.10 10:34) [24]
> Не я буду писать по правилам, с запятыми.

А кто ж тогда, если не ты?
:o))))))))))

>
> Юрий Зотов © (02.07.10 15:56) [30]
> > Anatoly Podgoretsky © (02.07.10 10:34) [24]
> > Не я буду писать по правилам, с запятыми.
>
> А кто ж тогда, если не ты?
> :o))))))))))

Фраза содержит запятую, что уже противоречит самой фразе. :)

> Deltas © (02.07.10 15:59) [31]
> Фраза содержит запятую, что уже противоречит самой фразе. :)

Не.. самая соль фразы в пропущенной запятой.

> Омлет (02.07.2010 16:03:32) [32]

А чего, просили, получите. Я не виноват в любом случае.

Помогите с массивами в Delphi Найти похожие ветки