 обработка последовательностей значений., задачка |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| Valkirie |
  12.11.2004 16:29
Сообщение
#1
|
 Новичок  Группа: Пользователи Сообщений: 36 Пол: Женский Репутация:  0   |
Help !
Дана последовательность чисел ai. Построить новую последовательность bi, где элемент bi равен максимальному из элементов от a1 до ai. |
   |
 
|
| APAL |
12.11.2004 16:31
Сообщение
#2
|
 Смотрю... Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Где-то это уже было... из одного учебного учереждения что ли...
-------------------- |
|
|
|
| Valkirie |
12.11.2004 16:37
Сообщение
#3
|
|
Новичок Группа: Пользователи Сообщений: 36 Пол: Женский Репутация: 0 |
Наврятли....
Я из Риги... Это лабораторка моя..я не совсем понимаю..как эту последовательность описать |
|
|
|
| volvo |
12.11.2004 16:39
Сообщение
#4
|
|
Гость |
Описать a и b как два одинаковых массива... они же будут иметь один размер ...
|
|
|
|
| APAL |
12.11.2004 16:42
Сообщение
#5
|
|
Смотрю... Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Описать можно и даже нужно массивом.
Код Const N=10; Var a,b : array [1..N] of Integer; -------------------- |
|
|
|
| Valkirie |
12.11.2004 16:42
Сообщение
#6
|
|
Новичок Группа: Пользователи Сообщений: 36 Пол: Женский Репутация: 0 |
volvo
Мы ещё не учили массивы... =( Так что их там быть не может... |
|
|
|
| APAL |
12.11.2004 16:44
Сообщение
#7
|
|
Смотрю... Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Тогда сложнее:
Надо использовать ручной ввод элементов с одновременным выводом второй последовательности. Тогда массив не нужен. -------------------- |
|
|
|
| volvo |
12.11.2004 16:45
Сообщение
#8
|
|
Гость |
Цитата Дана последовательность чисел и с ней работать без массива?  А как? |
|
|
|
| APAL |
12.11.2004 16:46
Сообщение
#9
|
|
Смотрю... Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
volvo,
Может Валькирия сама сделает... если нет покажу.  -------------------- |
|
|
|
| volvo |
12.11.2004 16:49
Сообщение
#10
|
|
Гость |
APAL
Я прочитал твой предыдущий пост. Понятно. Так даже проще... :yes: |
|
|
|
| Valkirie |
12.11.2004 16:50
Сообщение
#11
|
|
Новичок Группа: Пользователи Сообщений: 36 Пол: Женский Репутация: 0 |
я вот не знаю как эту законамерность для нахождения максимума написать
вот например, если Код a1:=StrToInt(ListBox1.Items[i1]) ai:=StrToInt(ListBox1.Items[i]) тогда... элемент bi поидее получается равен max промежутка а1 до аi Вот а как это всё записать не знаю... Вроде и понимаю..а решить не могу...;( Или понимаю не так... |
|
|
|
| Valkirie |
12.11.2004 16:53
Сообщение
#12
|
|
Новичок Группа: Пользователи Сообщений: 36 Пол: Женский Репутация: 0 |
APAL
Если бы сама знала как это всё обозначить...то уже давно сделала бы =( |
|
|
|
| volvo |
12.11.2004 16:55
Сообщение
#13
|
|
Гость |
Valkirie
А попробуй записать НА БУМАГЕ, как изменяется В(i) в зависимости от изменения A(i)... |
|
|
|
| APAL |
12.11.2004 16:56
Сообщение
#14
|
|
Смотрю... Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Valkirie, если это Delphi, то может я перенесу это в соответствующий раздел?
Или не важно на чем писать, главное алгоритм понять? Сообщение отредактировано: APAL - 12.11.2004 16:58 -------------------- |
|
|
|
| Valkirie |
12.11.2004 17:01
Сообщение
#15
|
|
Новичок Группа: Пользователи Сообщений: 36 Пол: Женский Репутация: 0 |
APAL
Всё равно... сам алгоритм важен ;) Как на Делфи переписать я знаю... volvo Уже пробовала... У меня получается что элемент b5 соответственно равен максимому от интервала (a1;a5) |
|
|
|
| APAL |
12.11.2004 17:02
Сообщение
#16
|
|
Смотрю... Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Код Var a,m : Integer; Begin m:=-30000; Repeat Write('Ai = ');Readln(a); If a>m then m:=a; Writeln(' Bi = ',m) Until a=-30000; {условие выхода} End. Теперь только навести "маникюр"... -------------------- |
|
|
|
| Valkirie |
12.11.2004 17:05
Сообщение
#17
|
|
Новичок Группа: Пользователи Сообщений: 36 Пол: Женский Репутация: 0 |
Сейчас попробуем ;)
Спасибо |
|
|
|
| Rothmans |
13.11.2004 1:34
Сообщение
#18
|
 Группа: Пользователи Сообщений: 9 Пол: Мужской Репутация: 0 |
Код const i=100 {for example} var a,b:array[1..i] of integer; m:integer; j:integer; begin for j:=1 to i do a[j]:=random(1000); {init a} m:=a[1]; for j:=1 to i do begin if a[j]>m then m:=a[j]; b[j]:=m; end; end. Кажется незачем связываться с вводом/выводом, если только препод об этом не попросил. Исходя из условий, массив "a" дан. |
|
|
|
| volvo |
13.11.2004 1:40
Сообщение
#19
|
|
Гость |
Rothmans
Valkirie же сказала: Цитата Мы ещё не учили массивы... =( Так что их там быть не может... |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 18.06.2025 22:33 |