Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Страницы: 1 2 >
Ptitca © (2010-06-30 11:25:00)
Необходимо было создать программу, которая создает массив случайных целых чисел, подсчитывает их среднее арифметическое, а также выводит на экран минимальное и максимальное из этих чисел.

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

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

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

Anatoly Podgoretsky (2010-07-02 16:59:00) [1]
> Омлет (02.07.2010 16:03:32) [32]

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

Омлет (2010-07-02 16:03:00) [2]
> Deltas © (02.07.10 15:59) [31]
> Фраза содержит запятую, что уже противоречит самой фразе. :)

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

Deltas (2010-07-02 15:59:00) [3]

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

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

Юрий Зотов (2010-07-02 15:56:00) [4]
> Anatoly Podgoretsky © (02.07.10 10:34) [24]
> Не я буду писать по правилам, с запятыми.

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

Омлет (2010-07-02 15:52:00) [5]
> Deltas © (02.07.10 15:32) [28]

Словоблудием занимаешься.

Deltas (2010-07-02 15:32:00) [6]

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

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

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

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

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

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

Омлет (2010-07-02 14:50:00) [7]
> Nickolay (02.07.10 12:31) [25]

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

Sha (2010-07-02 13:19:00) [8]
> Nickolay (02.07.10 12:31) [25]
> А вот после цикла уже делим

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

Nickolay (2010-07-02 12:31:00) [9]
Ребята! Что ж вы творите?
Среднее арифметическое считается так:

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

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

Anatoly Podgoretsky (2010-07-02 10:34:00) [10]
> Германн (02.07.2010 02:18:23) [23]

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

Германн (2010-07-02 02:18:00) [11]

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

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

Anatoly Podgoretsky (2010-07-02 00:59:00) [12]
Девочке, а то подумаете, что это я про вам и обидитесь.

Anatoly Podgoretsky (2010-07-02 00:52:00) [13]
Надо помочь девочки, она даже без наших просьб фотку предоставила.

Leonid Troyanovsky (2010-07-01 23:04:00) [14]

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

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

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

--
Regards, LVT.

Омлет (2010-07-01 22:59:00) [15]
> Leonid Troyanovsky © (01.07.10 22:55) [18]

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

Leonid Troyanovsky (2010-07-01 22:55:00) [16]

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

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

--
Regards, LVT.

Омлет (2010-07-01 20:05:00) [17]
> Palladin © (30.06.10 13:54) [5]

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

Омлет (2010-07-01 19:58:00) [18]
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 15:00:00) [19]

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

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

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

Anatoly Podgoretsky (2010-06-30 19:46:00) [20]
ВКонтакте это кто?
Действительно вредная, у меня же шея онемела, ну кто же так фотографии печатает.

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »