1. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

не могу справиться с составлением программы на нахождение наибольшего

Тема в разделе "Visual Basic", создана пользователем Kseniya, 23 янв 2011.

Статус темы:
Закрыта.
  1. Kseniya

    Kseniya Гость

    Репутация:
    0
    Уважаемые программисты!
    Я недавно начала изучать информатику и у меня никак не получается составить программы для нахождение наибольшего и наименьшего делителя натурального числа (две разных программы) в visual basic

    надеюсь на вашу помощь :(
     
  2. andrey24

    andrey24 Member

    Репутация:
    0
    Регистрация:
    8 июл 2010
    Сообщения:
    20
    Симпатии:
    0
    Жесть )))

    Код:
    Dim max as integer
    Dim min as integer
    Dim chisla(5) as integer
    'Допустим у нас есть какой-то массив чисел chisla(5)
    
    min=chisla(0)
    max=chisla(0)
    
    for i=0 to 5
    if min > chisla(i) then min=chisla(i)
    if max < chisla(i) then max=chisla(i)
    next
    
    'таким образом на выходе мы имеем максимальное число (max) из массива (chisla) и минимальное (min)
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей