Прошу помощи с 3-мя заданиями, маленькие, но не по силам

Тема в разделе "Visual Basic", создана пользователем lemon3ater, 19 апр 2010.

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

    lemon3ater Гость

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

    1) В каком диапазоне лежит значение переменной Х в результате выполнения фрагмента программы:

    Dim x As Integer
    X=Int((Rnd*20)+1)

    2) Составить проект, определяющий, существует ли треугольник со сторонами a, b, c введенными с клавиатуры. При этом выводится соответствующиее сообщение.

    3) Чему будет равно значение переменной S в результате выполнения фрагмента программы:

    Dim K, S As Integer
    S=0
    For I=1 to 5
    F=S+k
    Next K

    Похоже в 3-ем задании косяк, но незнаю точно.. <_<
    Чуваки всем спасибо заранее))
     
  2. Vlanib

    Vlanib Гость

    1) От 1 до 20

    2)
    Код (LotusScript):
    Dim a, b, c
    a = InputBox("Введите длину стороны a:")
    b = InputBox("Введите длину стороны b:")
    c = InputBox("Введите длину стороны c:")
    If ((a + b > c) And (b + c > a) And (c + a > b)) Then
    MsgBox "abc может быть треугольником"
    Else
    MsgBox "abc не может быть треугольником"
    End If
    3) Точно косяк. S всегда будет 0.
     
  3. lemon3ater

    lemon3ater Гость

    Спасибо дружище, только вот у меня к первому вопрос, почему получилось до 20? <_<
     
  4. Vlanib

    Vlanib Гость

    To produce random integers in a given range, use this formula:

    Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
     
  5. lemon3ater

    lemon3ater Гость

    Мм, ясно спасибо еще раз :)

    ЗЫ Админы тему можно закрывать вопрос исчерпан)
     
Загрузка...
Похожие Темы - Прошу помощи мя
  1. webwareroot
    Ответов:
    0
    Просмотров:
    115
  2. virusksv
    Ответов:
    2
    Просмотров:
    1.199
  3. beloff
    Ответов:
    5
    Просмотров:
    1.847
  4. nemo85
    Ответов:
    3
    Просмотров:
    1.477
  5. xavi
    Ответов:
    1
    Просмотров:
    1.832
Статус темы:
Закрыта.

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