Определение индекса последнего max и первого min элемента последовательности

@DGrad · Регистрация: 13.10.2009

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

Доброго времени суток, уважаемые программеры и сисадмины. Помогите пожалуйста в решении казалось бы лёгкой на первый взгляд задачи.
В одну и ту же переменную последовательно вводятся действительные числа. Количество вводимых чисел заранее не известно. Определить номер и значение последнего максимального числа Определить номер и значение первого минимального числа. ЯП - QBasic. Заранее благодарю.

@BasicMan · 13.10.2009, 14:04

DGrad, алгоритм потянет или нужна инпуты - принты писать?

@DGrad · 13.10.2009, 14:09 **[ТС]**

Можно и с инпутами. Я малость не догоняю сути задачи.

@BasicMan · 13.10.2009, 14:31

чтотокактотак

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
нМин=0
нМах=0
нМин2=0
нМах2=0
 
метка:
 
ввести а
 
если нМин=0 то Мин=а
иначе если Мин>а то (Мин=а; нМин2=нМин)
 
если нМах=0 то Мах=а
иначе если Мах<а то (Мах=а; нМах2=нМах)
   
нМах=нМах+1
нМин=нМин+1
 
если продолжить то идти к метка
 
вывести точонадо
все

@DGrad · 13.10.2009, 15:18 **[ТС]**

В этом-то вся и фишка. Не зря же в условии задачи указано, что выудить первый минимум и последний максимум. А в этом коде получается просто минимум последовательности и максимум последовательности. Кажись тут имеется ввиду что-то вроде функции (подобие синусоиды). График функции меняет направление. И при смене направления получается либо минимум, либо максимум (точка перегиба). Вот и надо их поймать. Первый минимум и последний максимум. По этой мысли идеи есть? За код спасибо.

@BasicMan · 13.10.2009, 15:54

мдяааа. чот я совсем отупел )))
ну с первым минимумом просто.
там надо ввести проверку

Code
1
2
3
если нМин=0 то Мин=а
иначе если (Мин>а и флагМин=Ложь) то (Мин=а; нМин2=нМин)
если (Мин<a  и флагМин=Ложь) то (флагМин=Истина)

Добавлено через 35 секунд
где флагМин, понятное дело, булевый тип

@Toxa33rus · 13.10.2009, 16:48

Может все проще? Имеется ввиду что если минимальным является 0, то когда мы введем первый раз 0, он станет минимумом, а когда второй раз опять ноль введем то старый минимум должен остаться, а вот при максимумах наоборот последний должен затереть старый.
КОроче в одном случае "если <", а в другом "если >="

@BasicMan · 13.10.2009, 17:36

Toxa33rus, не. нам нужен не минимум минимовый. а 1й минимум

Добавлено через 35 секунд
поэтому может 1й минимум и не 0 быть а +1 или +2 или -3

@DGrad · 14.10.2009, 07:06 **[ТС]**

А максимум последний как зацепить?

@BasicMan · 14.10.2009, 10:59

а с максимумом сложнее. вот прикинь такая последовательность
1,2,3,4,5
5 это максимум?
или еще прикольнее
1,2,3,4,5,6,7,5,4,3,2,3
последняя 3 это максимум?

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

@DGrad · 14.10.2009, 14:42 **[ТС]**

После долгих мучений в итоге получилась вот такая вещь (сам не понял как, но работает

)

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
CLS
ans$ = "Y"
flagmin$ = "false"
DO
INPUT "Введите любое действительное число"; a
IF cnt = 0 THEN min = a: nmin = cnt + 1:  ELSE IF min > a AND flagmin$ = "false" THEN min = a: nmin = cnt + 1
IF min < a AND flagmin$ = "false" THEN flagmin$ = "true"
IF cnt = 0 THEN max = a: nmax = cnt + 1: tmp = a: GOTO sled
IF max < a THEN max = a: nmax = cnt + 1
IF tmp < a THEN max = a: nmax = cnt + 1
IF max >= a THEN tmp = a
sled: cnt = cnt + 1
INPUT "Желаете продолжить? Y - да, N- нет"; ans$
LOOP UNTIL ans$ = "N" OR ans$ = "n"
PRINT "Первый минимум равен "; min
PRINT "Номер минимума - "; nmin
PRINT "Последний максимум равен "; max
PRINT "Номер максимума - "; nmax
END

Спасибо, уважаемый CyberБурундукЪ, за помощь!

@BasicMan · 14.10.2009, 14:55

Не по теме:

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

сам не понял как, но работает

главное чоб работало )))))

Добавлено через 59 секунд
DGrad, а чо в кубасике нету типа, типа, Boolean?

@DGrad · 14.10.2009, 15:07 **[ТС]**

Не текстовые true и false не проканали. По всей видимости типа boolean нету.

@BasicMan · 14.10.2009, 15:32

QBasic has five built-in types: INTEGER (%), LONG(&), SINGLE(!), DOUBLE(#) or STRING($).

мдяааа

ну тогда можна INTEGER использовать и приравнивать к 0 или 1

@кот Бегемот · 01.11.2009, 22:37

Задача очень примитивная. Задаём в качестве min максимально возможное число, а в качестве max минимально возможное число. Дальше последовательно вводим числа и пишем два условия: если число больше минимума, запоминаем его и его номер в двух переменных, если число больше или равно максимуму, запоминаем его и его номер в двух других переменных. Когда ввод кончился, выводим все 4 значения. Очень просто.

@BasicMan · 02.11.2009, 11:14

О_О

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

Задаём в качестве min максимально возможное число

это ж скока? ∞+1

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

а в качестве max минимально возможное число

а это скока? -∞-1

@кот Бегемот · 02.11.2009, 17:02

Диапазон для вещественных чисел находится в пределах от -Е+38 до +Е+38. Внимательнее читайте учебник по Бейсику.

Новые блоги и статьи Все статьи Все блоги /
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Нашел на реддите интересную статью под названием «Кто-нибудь знает, где получить бесплатный компьютер или. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .

@DGrad 1 / 1 / 2 Регистрация: 13.10.2009 Сообщений: 16

	Определение индекса последнего max и первого min элемента последовательности 13.10.2009, 13:55. Показов 2453. Ответов 16 Метки нет (Все метки) Доброго времени суток, уважаемые программеры и сисадмины. Помогите пожалуйста в решении казалось бы лёгкой на первый взгляд задачи. В одну и ту же переменную последовательно вводятся действительные числа. Количество вводимых чисел заранее не известно. Определить номер и значение последнего максимального числа Определить номер и значение первого минимального числа. ЯП - QBasic. Заранее благодарю. 0

@BasicMan 19318 / 2625 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	13.10.2009, 14:04
	DGrad, алгоритм потянет или нужна инпуты - принты писать? 0

@DGrad 1 / 1 / 2 Регистрация: 13.10.2009 Сообщений: 16
	13.10.2009, 14:09 [ТС]
	Можно и с инпутами. Я малость не догоняю сути задачи. 0

@DGrad 1 / 1 / 2 Регистрация: 13.10.2009 Сообщений: 16
	13.10.2009, 15:18 [ТС]
	В этом-то вся и фишка. Не зря же в условии задачи указано, что выудить первый минимум и последний максимум. А в этом коде получается просто минимум последовательности и максимум последовательности. Кажись тут имеется ввиду что-то вроде функции (подобие синусоиды). График функции меняет направление. И при смене направления получается либо минимум, либо максимум (точка перегиба). Вот и надо их поймать. Первый минимум и последний максимум. По этой мысли идеи есть? За код спасибо. 0

@Toxa33rus 3917 / 918 / 125 Регистрация: 16.04.2009 Сообщений: 1,944
	13.10.2009, 16:48
	Может все проще? Имеется ввиду что если минимальным является 0, то когда мы введем первый раз 0, он станет минимумом, а когда второй раз опять ноль введем то старый минимум должен остаться, а вот при максимумах наоборот последний должен затереть старый. КОроче в одном случае "если <", а в другом "если >=" 0

@BasicMan 19318 / 2625 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	13.10.2009, 17:36
	Toxa33rus, не. нам нужен не минимум минимовый. а 1й минимум Добавлено через 35 секунд поэтому может 1й минимум и не 0 быть а +1 или +2 или -3 0

@DGrad 1 / 1 / 2 Регистрация: 13.10.2009 Сообщений: 16
	14.10.2009, 07:06 [ТС]
	А максимум последний как зацепить? 0

@BasicMan 19318 / 2625 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	14.10.2009, 10:59
	а с максимумом сложнее. вот прикинь такая последовательность 1,2,3,4,5 5 это максимум? или еще прикольнее 1,2,3,4,5,6,7,5,4,3,2,3 последняя 3 это максимум? если да, то анализируй возрастание последовательности и ее спад. и точку перед спадом запоминай. а потом следующую точку перед спадом. а если спада не было. то последняя точка и будет последним максимумом 1

@DGrad 1 / 1 / 2 Регистрация: 13.10.2009 Сообщений: 16
	14.10.2009, 15:07 [ТС]
	Не текстовые true и false не проканали. По всей видимости типа boolean нету. 0

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	01.11.2009, 22:37
	Задача очень примитивная. Задаём в качестве min максимально возможное число, а в качестве max минимально возможное число. Дальше последовательно вводим числа и пишем два условия: если число больше минимума, запоминаем его и его номер в двух переменных, если число больше или равно максимуму, запоминаем его и его номер в двух других переменных. Когда ввод кончился, выводим все 4 значения. Очень просто. 0

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	02.11.2009, 17:02
	Диапазон для вещественных чисел находится в пределах от -Е+38 до +Е+38. Внимательнее читайте учебник по Бейсику. 2