Выяснить какое число встречается раньше - положительное или отрицательное

@aliev_ravil · Регистрация: 26.12.2011

Студворк — интернет-сервис помощи студентам

дана последовательность целых чисел a1,...,a10 Выяснить какое число встречается раньше-положительное или отрицательное

@Arcor · 05.02.2012, 21:06

Сообщение от perepe4a

Ну я подозреваю, что вы хотите стать программистами.
Где это решение?:-)

может уже угомонишься? флудильня в другой части форума

@urckin · 05.02.2012, 21:08

на первой странице мой пост читай с решением где учтено что все числа могут быть нулями, если тебе так не ймется

@Electroflower · 05.02.2012, 21:10

Не по теме:

Сообщение от perepe4a

Ну я подозреваю, что вы хотите стать программистами.

хотим, но мы учимся! мы не учитываем выделение памяти под 1 000 000 когда задача всего на 10 чисел!
вроде вы сами только что говорили, что алгоритм должен быть максимально простым!:rtfm:

@perepe4a · 05.02.2012, 21:24

Сообщение от urckin

на первой странице мой пост читай с решением где учтено что все числа могут быть нулями, если тебе так не ймется

Смотри в твоем решении, когда все элементы массива равны 0. Первый цикл while. Вернет І= 11.
Идем дальше. Обращаемся к элементу массива А[11]. Вопрос: Что выдаст Приложение?

@urckin · 05.02.2012, 21:27

Сообщение от perepe4a

Смотри в твоем решении, когда все элементы массива равны 0. Первый цикл while. Вернет І= 11.
Идем дальше. Обращаемся к элементу массива А[11]. Вопрос: Что выдаст Приложение?

долго же ты пытался найти ошибку видимо) да я давно на нее внимание обратил там просто условие немного подкорректировать:

Delphi
1
while (A[i]=0)and(i<10) do...

Доволен?

@perepe4a · 05.02.2012, 21:33

Все равно вернет 11 :-):-):-):-)
Ничо я не искал, а кушал блинчики

@urckin · 05.02.2012, 21:35

норм все вернет, хошь сам проверь)

@perepe4a · 05.02.2012, 21:37

Сообщение от urckin

норм все вернет, хошь сам проверь)

Подправил?:-):-) там было больше равно:-):-):-).

Это условие не сработает если последний элемент не равен нулю:-):-):-). Ахаха

@Electroflower · 05.02.2012, 21:38

Не по теме:

urckin, посмотрите на статистику сообщений perepe4a :D
лучше не тратить на него время, пусть ест блинчики и не мешает нам учиться:(

@Arcor · 05.02.2012, 21:39

Сообщение от perepe4a

Подправил?:-):-) там было больше равно:-):-):-).

Это условие не сработает если последний элемент не равен нулю:-):-):-). Ахаха

у тебя все ОК с головкой? Куча смайлов насмехаловка над всеми это фактор ненормальности какой-то...

@perepe4a · 05.02.2012, 21:41

Блин, разве я не Прав? Я сейчас не могу писать код. Сижу планета. Под андроид еще дели не придумали:-):-). Просто это казалось бы простая логическая задачка. Но увы.

@urckin · 05.02.2012, 21:44

ну раз так умен, помоги вот с этим https://www.cyberforum.ru/delp... 41392.html, мне как раз помощь пригодилась бы

@Arcor · 05.02.2012, 21:44

Сообщение от perepe4a

Блин, разве я не Прав? Я сейчас не могу писать код. Сижу планета. Под андроид еще дели не придумали:-):-). Просто это казалось бы простая логическая задачка. Но увы.

задача давным давно решена другими людьми, мной например, чего ты увязался к тому коду, если не куча тупых смайлов, не выглядело бы это с твоей стороны такой глупой насмешкой, нашел ошибку - молодец, объясни почему ошибка, зачем задираться такими методами?

@perepe4a · 05.02.2012, 21:48

А зачем хвастаться не рабочими Решениями? Ладно проехали.
Ок завтра на работе посмотрю твою проблему. Может чем помогу.

@Electroflower · 05.02.2012, 21:50

Не по теме:

Сообщение от perepe4a

Блин, разве я не Прав?

утютю:)

Добавлено через 1 минуту

Не по теме:

perepe4a, сколько вам лет?:)я вот, например только учусь еще

@Arcor · 05.02.2012, 21:52

Сообщение от perepe4a

А зачем хвастаться не рабочими Решениями?

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

Сообщение от perepe4a

Ладно проехали.

не нужно тут отдолжения делать

@perepe4a · 05.02.2012, 22:07

Не по теме:

perepe4a, сколько вам лет?:)я вот, например только учусь еще

[/QUOTE]
23 мне.
Все такие мнительные тут.
Завтра решим как надо. Поделимся опытом:-).

deathNC · 06.02.2012, 08:23

Комментарий модератора

Может, уже прекратите этот балаган! Раздел делфи не есть флудильня.
Предупреждение: за игнорирование замечаний последует бан!

@perepe4a · 06.02.2012, 15:21

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
procedure TForm1.bbFindClick(Sender: TObject);
const n=10;
var a:array of integer;
    i,Element:integer;
begin
  SetLength(a,n);
  Element:=0;
 
  for i:=0 to n-1 do
    begin
      a[i]:=0;
    end;
 
  for i:=0 to n-1 do
    begin
      if a[i] <> 0 then
        begin
          Element:=a[i];
          break;
        end;
    end;
 
  if Element < 0 then
    ShowMessage(' < 0');
 
  if Element > 0 then
    ShowMessage(' > 0');
 
  if Element = 0 then
    ShowMessage('Все элементы массива  = 0');
 
end;

Добавлено через 3 часа 29 минут

Новые блоги и статьи Все статьи Все блоги /
Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .
Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .	Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .	Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.	Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .

@aliev_ravil 0 / 0 / 0 Регистрация: 26.12.2011 Сообщений: 70

	Выяснить какое число встречается раньше - положительное или отрицательное 05.02.2012, 13:12. Показов 5711. Ответов 38 Метки нет (Все метки) дана последовательность целых чисел a1,...,a10 Выяснить какое число встречается раньше-положительное или отрицательное 0

@urckin -4 / 7 / 1 Регистрация: 26.01.2012 Сообщений: 82
	05.02.2012, 21:08
	на первой странице мой пост читай с решением где учтено что все числа могут быть нулями, если тебе так не ймется 0

@perepe4a 39 / 71 / 10 Регистрация: 03.02.2012 Сообщений: 362
	05.02.2012, 21:33
	Все равно вернет 11 :-):-):-):-) Ничо я не искал, а кушал блинчики 0

@urckin -4 / 7 / 1 Регистрация: 26.01.2012 Сообщений: 82
	05.02.2012, 21:35
	норм все вернет, хошь сам проверь) 0

@Electroflower
	05.02.2012, 21:38
	Не по теме: urckin, посмотрите на статистику сообщений perepe4a :D лучше не тратить на него время, пусть ест блинчики и не мешает нам учиться:( 0

@perepe4a 39 / 71 / 10 Регистрация: 03.02.2012 Сообщений: 362
	05.02.2012, 21:41
	Блин, разве я не Прав? Я сейчас не могу писать код. Сижу планета. Под андроид еще дели не придумали:-):-). Просто это казалось бы простая логическая задачка. Но увы. 0

@urckin -4 / 7 / 1 Регистрация: 26.01.2012 Сообщений: 82
	05.02.2012, 21:44
	ну раз так умен, помоги вот с этим https://www.cyberforum.ru/delp... 41392.html, мне как раз помощь пригодилась бы 0

@perepe4a 39 / 71 / 10 Регистрация: 03.02.2012 Сообщений: 362
	05.02.2012, 21:48
	А зачем хвастаться не рабочими Решениями? Ладно проехали. Ок завтра на работе посмотрю твою проблему. Может чем помогу. 0

@perepe4a 39 / 71 / 10 Регистрация: 03.02.2012 Сообщений: 362
	05.02.2012, 22:07
	Не по теме: perepe4a, сколько вам лет?:)я вот, например только учусь еще [/QUOTE] 23 мне. Все такие мнительные тут. Завтра решим как надо. Поделимся опытом:-). 0