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

  • Автор темы lemon3ater
  • Дата начала
Статус
Закрыто для дальнейших ответов.
L

lemon3ater

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

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

Vlanib

#2
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.
 
L

lemon3ater

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

Vlanib

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

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

lemon3ater

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

ЗЫ Админы тему можно закрывать вопрос исчерпан)
 
Статус
Закрыто для дальнейших ответов.