|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
20.04.2010, 16:38 | #1 |
Новичок
Джуниор
Регистрация: 20.04.2010
Сообщений: 3
|
Задача на Delphi на массивы
Как решить задачу на Delphi: "Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-40,40]. Найти сумму элементов, значения которых по модулю меньше 10".
Последний раз редактировалось endimion11; 20.04.2010 в 16:47. |
20.04.2010, 16:46 | #2 |
А может и не...
Участник клуба
Регистрация: 27.03.2010
Сообщений: 1,269
|
Код:
Перемешивай дело с бездельем и не сойдешь с ума...
Последний раз редактировалось Grag; 20.04.2010 в 17:01. |
20.04.2010, 16:48 | #3 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
А что конкретно в задаче ты не знаешь?
Массив наполняется в цикле :=40-Random(80); А условие для поиска if abs(a[i])<10 then a[i] - нужный элемент.
I'm learning to live...
|
20.04.2010, 16:58 | #4 | |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
Код:
Цитата:
にんじゃ
|
|
20.04.2010, 17:02 | #5 |
А может и не...
Участник клуба
Регистрация: 27.03.2010
Сообщений: 1,269
|
Перемешивай дело с бездельем и не сойдешь с ума...
|
20.04.2010, 17:04 | #6 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
Ой! Извиняюсь.Ну я думаю переделать то не трудно будет если чё.
にんじゃ
|
20.04.2010, 17:07 | #7 |
Новичок
Джуниор
Регистрация: 20.04.2010
Сообщений: 3
|
|
20.04.2010, 17:11 | #8 |
А может и не...
Участник клуба
Регистрация: 27.03.2010
Сообщений: 1,269
|
См. пост #2, я ж тебе там почти все написал... Массив динамический...заполняется рандомно.
Полагаю, что его выводить не надо...хотя при желании можно сляпать StringGrid... Ввод N через Едит, выводить сумму S можешь хоть через другой Едит, хоть через Label...
Перемешивай дело с бездельем и не сойдешь с ума...
Последний раз редактировалось Grag; 20.04.2010 в 17:13. |
20.04.2010, 17:17 | #9 |
Новичок
Джуниор
Регистрация: 20.04.2010
Сообщений: 3
|
Как прописать ввод и вывод?
|
20.04.2010, 17:23 | #10 |
А может и не...
Участник клуба
Регистрация: 27.03.2010
Сообщений: 1,269
|
Допустим на форме у тебя есть Edit1. Тогда ввод размерности массива будет так N:=StrToInt(Edit1.Text);
Вывод суммы: если выводишь ее в другой Едит, то так Edit2.Text:=FloatToStr(S). Если выводишь в какую-нибудь метку, то так Label1.Caption:=FloatToStr(S)... Всю байду можно сделать по нажатию кнопки Button1Click, просто весь код засовываешь в обработчик нажатия на кнопку...
Перемешивай дело с бездельем и не сойдешь с ума...
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
массив целых чисел.... | Ma666oT | Помощь студентам | 4 | 01.04.2010 17:13 |
массив целых чисел | -ushёl- | Помощь студентам | 4 | 28.02.2009 19:18 |
массив целых чисел | ^SPARTAK^ | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 27.12.2008 10:59 |
Дан массив из N элементов (чисел),определить количество элементов кратных 3. | Woha | Общие вопросы C/C++ | 2 | 08.12.2008 13:12 |