Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите решить простую задачку 
:(
    Опции темы
shefsky
  Дата 19.2.2003, 05:29 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Задача.
Имеется последовательность из N отрицательных чисел.
Требуется найти среди них максимальное.
Составить алгоритм и его програмные реализации на
естественном языке и на языке VBA.
Заранее спасибо.
  Вверх
cardinal
Дата 19.2.2003, 05:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Цитата
Имеется последовательность из N отрицательных чисел.


Ну и где она имеется. С массивами работать можно? Или нет никаких ограничений по реализации?
Если делать можно как угодно, то пиши - сляпаем как не фиг делать cool.gif


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Asp root
Дата 19.2.2003, 19:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 163
Регистрация: 27.1.2003

Репутация: нет
Всего: нет
Цитата(cardinal @ 18.2.2003, 21:57)
сляпаем как не фиг делать

Это точно!
Токо поточнее опиши как надо откуд чего брать?

--------------------
It's only a game ...
PM MAIL ICQ   Вверх
cardinal
Дата 20.2.2003, 10:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Ну например вот так:

Код
Option Explicit
Private massiv(9) As Integer

Private Sub Command1_Click()
Dim n As Integer
n = take(massiv)
End Sub

Private Sub Form_Load()
massiv(0) = -14
massiv(1) = -51
massiv(2) = -3
massiv(3) = -34
massiv(4) = -41
massiv(5) = -6
massiv(6) = -17
massiv(7) = -8
massiv(8) = -4
massiv(9) = -72
End Sub

Private Function take(n() As Integer) As Integer
Dim a As Integer
Dim b As Integer
b = n(0)
For a = 1 To 9
   If n(a) > b Then
       b = n(a)
   End If
Next
take = b
End Function


Помоему комментарии тут не нужны rolleyes.gif
Хотя если надо, то напишем smile.gif


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0430 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.