VBA - Задача по информатике

[Triz]

Задание следующее: Создать проект, который определяет максимальное значение из введённых чисел. Количество чисел заранее неизвестно. Прошу помощи в решении задачи)

[Triz]

Я смотрю, наплыв лентяев попер на форуме. Все вопросы подобного типа буду сразу отправлять в тест форум. Без объяснений, пусть учат правила форума, если учить язык у них "нет времени".

[Triz]

а можете это в программном коде записать?

[Coutty]

Числа вводятся и попадают в массив.

Потом последовательно каждый элемент массива сравнивается с некоторой переменной (изначально равна нулю, если не брать в расчёт, что максимальным числом может быть отрицательное). Если в массиве меньше - переходим к следующему элементу, если больше - записываем в эту переменную и идём дальше.

По окончании просмотра массива вывести число на экран.

Вам ведь нужен только алгоритм, а код сами желаете написать?

[Coutty]

Цитата Coutty:



Числа вводятся и попадают в массив.

VBA - Задача по информатике

А если там стописяттыщмильёнов чисел? В задаче же не сказано, что их надо помнить все?



Первое введенное число принимаем за максимальное (присваиваем значение переменной).

Дальше в цикле:

Следующее введеное число сравниваем с переменной. Если оно больше - меняем значение переменной.

Повторяем до тех пор, пока вводятся числа.



Код на бейсике не скажу - не знаю.

[CyberDaemon]

Цитата CyberDaemon:



А если там стописяттыщмильёнов чисел? В задаче же не сказано, что их надо помнить все?

VBA - Задача по информатике

Значит, по окончании ввода можно вывести сообщение: "Программа выполнила недопустимую операцию и будет закрыта". Кто проверит?)

А так-то да, этот алгоритм лучше. Тем более меньше кода будет.

[Coutty]

можно еще проверить способ с сортировкой массива (вдруг быстрее окажется)...

[Sham]

Цитата Sham:



проверить способ с сортировкой массива

VBA - Задача по информатике

не окажется. Время сортировки N*Log(N), а время поиска максимума N

я и не знал что на js можно так просто массивы делать, всю жизнь через Array

[Sham]

Цитата Triz:



определяет максимальное значение из введённых чисел

VBA - Задача по информатике

Код:

Код: Выделить всё

Max = 0
Do
Input x
If x > Max Then Max = x
Msgbox Max
Loop

[Pliomera]

Цитата Pliomera:



Max = 0

VBA - Задача по информатике

Некорректно

-1

-100

-234

-1.234

Результат =0, а должно быть -1



Код:

Код: Выделить всё

Input x
Max = x
Msgbox Max
Do
Input x
If x > Max Then Max = x
Msgbox Max
Loop

^^^Как-то так.

А как отсюда выйти?