Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.81/26: Рейтинг темы: голосов - 26, средняя оценка - 4.81
0 / 0 / 0
Регистрация: 26.12.2011
Сообщений: 70

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

05.02.2012, 13:12. Показов 5684. Ответов 38
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
дана последовательность целых чисел a1,...,a10 Выяснить какое число встречается раньше-положительное или отрицательное
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
05.02.2012, 13:12
Ответы с готовыми решениями:

Выяснить какое число встречается раньше-положительное или отрицательное
Нужен исходник программы,через обькт Memo.Дана последовательность целых чисел a1,...,a10 Выяснить какое число встречается...

Массив: Выяснить, какое число в массиве встретится ранее – положительное или отрицательное
Сформировать одномерный массив M(N) с клавиатуры. Выяснить, какое число в массиве встретится ранее – положительное или отрицательное (нули...

Является ли подстрока числом? Если да, выяснить: целое или вещественное число, положительное или отрицательное
Недавно только поступил на программирование. С делфи еще совсем не освоился, был бы рад хоть какой - то помощи. Всего 8 заданий, 3 уже...

38
 Аватар для Arcor
5709 / 2300 / 466
Регистрация: 20.11.2009
Сообщений: 7,721
Записей в блоге: 1
05.02.2012, 21:06
Студворк — интернет-сервис помощи студентам
Цитата Сообщение от perepe4a Посмотреть сообщение
Ну я подозреваю, что вы хотите стать программистами.
Где это решение?:-)
может уже угомонишься? флудильня в другой части форума
0
 Аватар для urckin
-4 / 7 / 1
Регистрация: 26.01.2012
Сообщений: 82
05.02.2012, 21:08
на первой странице мой пост читай с решением где учтено что все числа могут быть нулями, если тебе так не ймется
0
05.02.2012, 21:10

Не по теме:

Цитата Сообщение от perepe4a Посмотреть сообщение
Ну я подозреваю, что вы хотите стать программистами.
хотим, но мы учимся! мы не учитываем выделение памяти под 1 000 000 когда задача всего на 10 чисел!
вроде вы сами только что говорили, что алгоритм должен быть максимально простым!:rtfm:

0
39 / 71 / 10
Регистрация: 03.02.2012
Сообщений: 362
05.02.2012, 21:24
Цитата Сообщение от urckin Посмотреть сообщение
на первой странице мой пост читай с решением где учтено что все числа могут быть нулями, если тебе так не ймется
Смотри в твоем решении, когда все элементы массива равны 0. Первый цикл while. Вернет І= 11.
Идем дальше. Обращаемся к элементу массива А[11]. Вопрос: Что выдаст Приложение?
0
 Аватар для urckin
-4 / 7 / 1
Регистрация: 26.01.2012
Сообщений: 82
05.02.2012, 21:27
Цитата Сообщение от perepe4a Посмотреть сообщение
Смотри в твоем решении, когда все элементы массива равны 0. Первый цикл while. Вернет І= 11.
Идем дальше. Обращаемся к элементу массива А[11]. Вопрос: Что выдаст Приложение?
долго же ты пытался найти ошибку видимо) да я давно на нее внимание обратил там просто условие немного подкорректировать:
Delphi
1
while (A[i]=0)and(i<10) do...
Доволен?
0
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
39 / 71 / 10
Регистрация: 03.02.2012
Сообщений: 362
05.02.2012, 21:37
Цитата Сообщение от urckin Посмотреть сообщение
норм все вернет, хошь сам проверь)
Подправил?:-):-) там было больше равно:-):-):-).

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

Не по теме:

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

0
 Аватар для Arcor
5709 / 2300 / 466
Регистрация: 20.11.2009
Сообщений: 7,721
Записей в блоге: 1
05.02.2012, 21:39
Цитата Сообщение от perepe4a Посмотреть сообщение
Подправил?:-):-) там было больше равно:-):-):-).

Это условие не сработает если последний элемент не равен нулю:-):-):-). Ахаха
у тебя все ОК с головкой? Куча смайлов насмехаловка над всеми это фактор ненормальности какой-то...
0
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
 Аватар для Arcor
5709 / 2300 / 466
Регистрация: 20.11.2009
Сообщений: 7,721
Записей в блоге: 1
05.02.2012, 21:44
Цитата Сообщение от perepe4a Посмотреть сообщение
Блин, разве я не Прав? Я сейчас не могу писать код. Сижу планета. Под андроид еще дели не придумали:-):-). Просто это казалось бы простая логическая задачка. Но увы.
задача давным давно решена другими людьми, мной например, чего ты увязался к тому коду, если не куча тупых смайлов, не выглядело бы это с твоей стороны такой глупой насмешкой, нашел ошибку - молодец, объясни почему ошибка, зачем задираться такими методами?
0
39 / 71 / 10
Регистрация: 03.02.2012
Сообщений: 362
05.02.2012, 21:48
А зачем хвастаться не рабочими Решениями? Ладно проехали.
Ок завтра на работе посмотрю твою проблему. Может чем помогу.
0
Shiningemerald
 Аватар для Electroflower
384 / 117 / 22
Регистрация: 05.01.2012
Сообщений: 951
05.02.2012, 21:50

Не по теме:

Цитата Сообщение от perepe4a Посмотреть сообщение
Блин, разве я не Прав?
утютю:)



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

Не по теме:

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

0
 Аватар для Arcor
5709 / 2300 / 466
Регистрация: 20.11.2009
Сообщений: 7,721
Записей в блоге: 1
05.02.2012, 21:52
Цитата Сообщение от perepe4a Посмотреть сообщение
А зачем хвастаться не рабочими Решениями?
тут не хвастаются, ту не напоказ все делается, тут не выплясывают друг перед другом, кто круче и кто больше может, тут обмениваются опытами.


Цитата Сообщение от perepe4a Посмотреть сообщение
Ладно проехали.
не нужно тут отдолжения делать
0
39 / 71 / 10
Регистрация: 03.02.2012
Сообщений: 362
05.02.2012, 22:07

Не по теме:

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

[/QUOTE]
23 мне.
Все такие мнительные тут.
Завтра решим как надо. Поделимся опытом:-).
0
06.02.2012, 08:23
 Комментарий модератора 
Может, уже прекратите этот балаган! Раздел делфи не есть флудильня.
Предупреждение: за игнорирование замечаний последует бан!
0
39 / 71 / 10
Регистрация: 03.02.2012
Сообщений: 362
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 минут
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
06.02.2012, 15:21

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

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

Выяснить, какое число встречается раньше — положительное или отрицательное
Собственно сама задача: Дана последовательность целых чисел a1, a2, ..., an. Выяснить, какое число встречается раньше — положительное...

Выяснить, какое число встречается раньше — положительное или отрицательное
Помогите пожалуйста. 1. Дана последовательность чисел а1,а2, ... , а(n) (а в степени n). Выяснить, какое число встречается раньше -...

Выяснить, какое число встречается раньше — положительное или отрицательное
Составить программу на паскале, содержащую 4 подпрограммы. Дан одномерный массив, выполнить след. действия: 1) выяснить, какое число...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
39
Ответ Создать тему
Новые блоги и статьи
Калькулятор для расчета родства
russiannick 07.08.2026
1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь
Мир по моей воле
kumehtar 07.08.2026
Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .
Кредитный калькулятор
Maks 05.08.2026
Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .
У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35".
kumehtar 04.08.2026
С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .
Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники).
Hrethgir 04.08.2026
Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .
Термопринтер QR701
Argus19 03.08.2026
Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .
Создание формы заимствованного документа
Maks 03.08.2026
Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .
Задача предоставления скидок покупателям
Maks 03.08.2026
Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru