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

lemon3ater · 19.04.2010

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

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-ем задании косяк, но незнаю точно.. <_<
Чуваки всем спасибо заранее))

Vlanib · 20.04.2010

1) От 1 до 20

2)

Код:

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.

lemon3ater · 20.04.2010

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

Vlanib · 20.04.2010

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

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

lemon3ater · 20.04.2010

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

ЗЫ Админы тему можно закрывать вопрос исчерпан)