Help !
Дана последовательность чисел ai. Построить новую последовательность bi, где элемент bi равен максимальному из элементов от a1 до ai.
 обработка последовательностей значений., задачка |
Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| Valkirie |
 
Сообщение
#1
|
 Новичок  Группа: Пользователи Сообщений: 36 Пол: Женский Репутация:  0   |
|
   |
 
|
| APAL |
Сообщение
#2
|
 Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Где-то это уже было... из одного учебного учереждения что ли...
-------------------- |
|
|
|
| Valkirie |
Сообщение
#3
|
|
Новичок Группа: Пользователи Сообщений: 36 Пол: Женский Репутация: 0 |
Наврятли....
Я из Риги... Это лабораторка моя..я не совсем понимаю..как эту последовательность описать |
|
|
|
| volvo |
Сообщение
#4
|
|
Гость |
Описать a и b как два одинаковых массива... они же будут иметь один размер ...
|
|
|
|
| APAL |
Сообщение
#5
|
|
Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Описать можно и даже нужно массивом.
Код Const N=10; Var a,b : array [1..N] of Integer; -------------------- |
|
|
|
| Valkirie |
Сообщение
#6
|
|
Новичок Группа: Пользователи Сообщений: 36 Пол: Женский Репутация: 0 |
volvo
Мы ещё не учили массивы... =( Так что их там быть не может... |
|
|
|
| APAL |
Сообщение
#7
|
|
Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Тогда сложнее:
Надо использовать ручной ввод элементов с одновременным выводом второй последовательности. Тогда массив не нужен. -------------------- |
|
|
|
| volvo |
Сообщение
#8
|
|
Гость |
Цитата Дана последовательность чисел и с ней работать без массива?  А как? |
|
|
|
| APAL |
Сообщение
#9
|
|
Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
volvo,
Может Валькирия сама сделает... если нет покажу.  -------------------- |
|
|
|
| volvo |
Сообщение
#10
|
|
Гость |
APAL
Я прочитал твой предыдущий пост. Понятно. Так даже проще... :yes: |
|
|
|
| Valkirie |
Сообщение
#11
|
|
Новичок Группа: Пользователи Сообщений: 36 Пол: Женский Репутация: 0 |
я вот не знаю как эту законамерность для нахождения максимума написать
вот например, если Код a1:=StrToInt(ListBox1.Items[i1]) ai:=StrToInt(ListBox1.Items[i]) тогда... элемент bi поидее получается равен max промежутка а1 до аi Вот а как это всё записать не знаю... Вроде и понимаю..а решить не могу...;( Или понимаю не так... |
|
|
|
| Valkirie |
Сообщение
#12
|
|
Новичок Группа: Пользователи Сообщений: 36 Пол: Женский Репутация: 0 |
APAL
Если бы сама знала как это всё обозначить...то уже давно сделала бы =( |
|
|
|
| volvo |
Сообщение
#13
|
|
Гость |
Valkirie
А попробуй записать НА БУМАГЕ, как изменяется В(i) в зависимости от изменения A(i)... |
|
|
|
| APAL |
Сообщение
#14
|
|
Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Valkirie, если это Delphi, то может я перенесу это в соответствующий раздел?
Или не важно на чем писать, главное алгоритм понять? Сообщение отредактировано: APAL - -------------------- |
|
|
|
| Valkirie |
Сообщение
#15
|
|
Новичок Группа: Пользователи Сообщений: 36 Пол: Женский Репутация: 0 |
APAL
Всё равно... сам алгоритм важен ;) Как на Делфи переписать я знаю... volvo Уже пробовала... У меня получается что элемент b5 соответственно равен максимому от интервала (a1;a5) |
|
|
|
| APAL |
Сообщение
#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 |
Сообщение
#17
|
|
Новичок Группа: Пользователи Сообщений: 36 Пол: Женский Репутация: 0 |
Сейчас попробуем ;)
Спасибо |
|
|
|
| Rothmans |
Сообщение
#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 |
Сообщение
#19
|
|
Гость |
Rothmans
Valkirie же сказала: Цитата Мы ещё не учили массивы... =( Так что их там быть не может... |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 11.01.2025 21:43 |
Связь с администрацией: bu_gen в домене octagram.name