 задача на поиск среди чисел первого положительного, (с помощью цикла) |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| 18192123 |
  22.10.2006 18:52
Сообщение
#1
|
 Профи  Группа: Пользователи Сообщений: 920 Пол: Женский Реальное имя: Марина Репутация:  2   |
 пользователь вводит последовательнось целых чисел, признак окончания ввода - 0. Найти первый положительный член, равный сумме трех предыдущих. |
   |
 
|
  |
Ответов
| Malice |
22.10.2006 19:30
Сообщение
#2
|
 Профи Группа: Пользователи Сообщений: 705 Пол: Мужской Репутация: 20 |
Цитата(18192123 @ 22.10.2006 19:52)  пользователь вводит последовательнось целых чисел, признак окончания ввода - 0. Найти первый положительный член, равный сумме трех предыдущих. Что не получается ? Задача же простая.. Цикл через Repeat, выход если 0 или совпадение условия. Предыдущие значения запоминать в 3-х переменных. Если выход из repeat-a был по нулю, то решений небыло, иначе еще 1 repeat для ввода следующих чисел, без анализа. Условие выхода - 0, после чего вывод результатов  |
|
|
|
Сообщений в этой теме
18192123 задача на поиск среди чисел первого положительного 22.10.2006 18:52
18192123
Что не получается ? Задача же простая.. Цикл чере... 22.10.2006 19:58
18192123
Что не получается ? Задача же простая.. Цикл чере... 23.10.2006 16:06 Malice Что-то типа этого:
x1:=x2; x2:=x3; x3... 23.10.2006 16:13 18192123
Что-то типа этого:
x1:=x2; x2:=x3; x3... 23.10.2006 16:42 Bokul
А если последовательность будет такой: -5,3,2,0 ?... 22.10.2006 19:44 Malice
А если последовательность будет такой: -5,3,2,0 ?... 22.10.2006 19:56 volvo А как насчет САМОЙ попробовать хоть что-то сделать... 22.10.2006 20:02 18192123
А как насчет САМОЙ попробовать хоть что-то сделат... 22.10.2006 20:26 volvo А мой - к тебе ...
Внимательно посмотри на картин... 22.10.2006 20:41 мисс_граффити если он равен их сумме и положителен - то он подхо... 23.10.2006 16:47 18192123
если он равен их сумме и положителен - то он подх... 23.10.2006 17:08 мисс_граффити приводи код - я не могу вот так сказать, почему он... 23.10.2006 17:59 18192123
приводи код - я не могу вот так сказать, почему о... 23.10.2006 18:59 Reflex нашла ошибку sorry 23.10.2006 19:45 мисс_граффити мм....?
Reflex и 18192123 - одно лицо? 23.10.2006 20:17 Reflex нет ... я вывесила решение задачи, а потом в нем н... 23.10.2006 20:32 Reflex на то что ты написала Volvo ругатьси еще больше б... 23.10.2006 23:21 Malice Функция check здесь что-то другое проверяет. 24.10.2006 11:42 Reflex она проверяет является ли число суммой двух предыд... 24.10.2006 13:24 мисс_граффити а по-моему, она проверяет не совсем то....
ты же п... 24.10.2006 17:42 klem4 18192123, Сколько можно мусолить этот маразм ?... 24.10.2006 19:01 18192123 18192123, Сколько можно мусолить этот маразм ?... 25.10.2006 8:37 klem4 uses crt;
var
x, x1, x2, x3, s : Integer;
cou... 25.10.2006 10:58 Malice klem4, "Найти первый положительный член... 25.10.2006 11:38 klem4 Malice, а как же быть с
?
Если делать выход по ... 25.10.2006 11:41 Malice
Если делать выход по find, может возникнуть зацик... 25.10.2006 12:06 klem4 Все, понял :)
uses crt;
var
x, x1, x2, x3, s : ... 25.10.2006 12:43 18192123 Все, понял :)
скажи пожалуйста, что такое find := ... 25.10.2006 16:46 мисс_граффити 0 - это не положительное число! и не отрицател... 25.10.2006 21:32 18192123
0 - это не положительное число! и не отрицате... 25.10.2006 21:42 мисс_граффити find:=-maxint
это мы присваиваем самое маленькое в... 25.10.2006 21:55 18192123
find:=-maxint
это мы присваиваем самое маленькое ... 25.10.2006 22:49 мисс_граффити пожалуйста. 25.10.2006 22:59 Reflex а... извините, неправильно поняла задачу я думал т... 27.10.2006 14:03 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 19.07.2025 8:42 |