|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.05.2007, 16:40 | #1 |
Регистрация: 18.05.2007
Сообщений: 8
|
Поиск числа, большего заданного
Прива народ. Помогите с задачкой:
Найти среди чисел 1,1+1/2,1+1/2+1/3,... первое, большее некоторого числа А. Заранее спасибо =) |
20.05.2007, 18:25 | #2 |
Вот я и
Форумчанин
Регистрация: 07.04.2007
Сообщений: 501
|
Пользуйся моей добротой!!!!!
Код программы:
Код:
Исходники программ - http:\\www.kort.3dn.ru
|
20.05.2007, 18:28 | #3 |
Форумчанин
Регистрация: 16.04.2007
Сообщений: 298
|
Числа у тебя содержатся в массиве? Если да, то тогда можно написать так:
function FindMaxInArr: integer; var i: integer; begin for i := low(MyArr) to High(MyArr) do begin Result := MyArr[i]; if Result > SomeNumberWithNameA then break; end; end;
Не надо ничего усложнять. Все достаточно тривиально.
|
20.05.2007, 19:00 | #4 |
Регистрация: 18.05.2007
Сообщений: 8
|
пасибо за решение, а знает кто как написать решение используя оператор while/repeat ?
|
21.05.2007, 18:35 | #5 |
Новичок
Джуниор
Регистрация: 21.05.2007
Сообщений: 1
|
Помогите с задачей, плиз
Удалить из одномерного массива C нулевые элементы, передвинув на их место следущие элементы без нарушения порядка их следования. В результате должен получиться массив меньшего размера, но не содержащий нулей.
Последний раз редактировалось Heaven; 21.05.2007 в 18:49. |
21.05.2007, 21:39 | #6 |
Форумчанин
Регистрация: 16.04.2007
Сообщений: 298
|
Ну, можно и так
j := 0; for i := Low(Mass1) to High(Mass1) do begin if mass1[i] = 0 then continue; mass2[j] := mass1[i]; inc(j); end; for i := Low(mass2) to High(mass2) do mass1[i] := mass2[i]; Тупое решение в лоб.
Не надо ничего усложнять. Все достаточно тривиально.
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поиск непарного числа в файле | lexus | Помощь студентам | 8 | 20.12.2009 20:40 |
Помогите с макромом - поиск заданного значения | Alenka2319 | Microsoft Office Excel | 1 | 12.06.2008 16:34 |
Найти все слова, отличающиеся от заданного на 1 букву и имеющую ту же длинну. | gred | Помощь студентам | 5 | 23.05.2008 08:32 |
Си - Написать функцию, проверяющую наличие в строке заданного слова | Cvetok | Помощь студентам | 1 | 14.05.2008 05:44 |