![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 20.04.2010
Сообщений: 3
|
![]()
Как решить задачу на Delphi: "Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-40,40]. Найти сумму элементов, значения которых по модулю меньше 10".
Последний раз редактировалось endimion11; 20.04.2010 в 16:47. |
![]() |
![]() |
![]() |
#2 |
А может и не...
Участник клуба
Регистрация: 27.03.2010
Сообщений: 1,269
|
![]() Код:
Перемешивай дело с бездельем и не сойдешь с ума...
Последний раз редактировалось Grag; 20.04.2010 в 17:01. |
![]() |
![]() |
![]() |
#3 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
А что конкретно в задаче ты не знаешь?
Массив наполняется в цикле :=40-Random(80); А условие для поиска if abs(a[i])<10 then a[i] - нужный элемент.
I'm learning to live...
|
![]() |
![]() |
![]() |
#4 | |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
![]() Код:
Цитата:
にんじゃ
![]() |
|
![]() |
![]() |
![]() |
#5 |
А может и не...
Участник клуба
Регистрация: 27.03.2010
Сообщений: 1,269
|
![]()
Перемешивай дело с бездельем и не сойдешь с ума...
|
![]() |
![]() |
![]() |
#6 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
![]()
Ой!
![]() ![]()
にんじゃ
![]() |
![]() |
![]() |
![]() |
#7 |
Новичок
Джуниор
Регистрация: 20.04.2010
Сообщений: 3
|
![]() |
![]() |
![]() |
![]() |
#8 |
А может и не...
Участник клуба
Регистрация: 27.03.2010
Сообщений: 1,269
|
![]()
См. пост #2, я ж тебе там почти все написал... Массив динамический...заполняется рандомно.
Полагаю, что его выводить не надо...хотя при желании можно сляпать StringGrid... Ввод N через Едит, выводить сумму S можешь хоть через другой Едит, хоть через Label...
Перемешивай дело с бездельем и не сойдешь с ума...
Последний раз редактировалось Grag; 20.04.2010 в 17:13. |
![]() |
![]() |
![]() |
#9 |
Новичок
Джуниор
Регистрация: 20.04.2010
Сообщений: 3
|
![]()
Как прописать ввод и вывод?
|
![]() |
![]() |
![]() |
#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 |